重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
1、将窗口的TransparencyKey属性设置成某一种颜色(在显示时,这种颜色会显示为透明),如:
网站建设哪家好,找创新互联建站!专注于网页设计、网站建设、微信开发、微信小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了莆田免费建站欢迎大家使用!
Me.TransparencyKey = System.Drawing.Color.Red(可在属性窗口中指定或通过代码设置)
2、将Label的BackColor属性设置为与窗口的TransparencyKey属性相同的颜色,如:
Me.label1.BackColor = System.Drawing.Color.Red(可在属性窗口中指定或通过代码设置)
或
Me.label1.BackColor = Me.TransparencyKey(只能通过代码设置)
3、将Label的ForeColor属性设置为与窗口的TransparencyKey属性不相的颜色,如:
Me.label1.ForeColor = System.Drawing.Color.Blue(可在属性窗口中指定或通过代码设置)
Label1.Text = "12时演示:" + Now.ToString("yyyy-MM-dd hh:mm:ss")
Label2.Text = "24时演示:" + Now.ToString("yyyy-MM-dd HH:mm:ss")
Label3.Text = "UTC时演示:" + System.DateTime.UtcNow.ToString("yyyy-MM-dd HH:mm:ss")
Label4.Text = "时间为不补0:" + Now.ToString("yyyy-MM-dd H:m:s")
Label5.Text = "时间戳:" + CLng(System.DateTime.UtcNow.Subtract(New Date(1970, 1, 1, 0, 0, 0)).TotalMilliseconds).ToString
Label 控件不可以水平,上下居中
不过可以用 PictureBox 控件做到
拖动一个 PictureBox 控件到工程,并命名为 picTextShow,把 AutoDraw 设为 True,加上以下代码就可以实现:
Option Explicit Private Sub Form_Load() picTextShow.CurrentX=(picTextShow.ScaleWidth-picTextShow.TextWidth("要显示的文本"))/2 picTextShow.CurrentY=(picTextShow.ScaleHeight-picTextShow.TextHeight("要显示的文本"))
picTextShow.Print "要显示的文本" End Sub
这样文本就可以在图片框中间显示了。
提供一点思路仅供参考:在界面画一个label,设置为可以
自动换行
,隐藏,然后有label需要动态加载就拷贝这个界面上画的label的属性。