扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
创新互联建站是专业的洋县网站建设公司，洋县接单;提供网站制作、成都网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行洋县网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
Me.Label1.BackColor = System.Drawing.Color.Transparent
End Sub
没问题哦。。
为了线程安全，微软规定线程不能直接访问窗体控件，需要用委托的方式，窗体代码中增加：
Delegate Sub SetTextDelegate(txt As String)
Private Sub SetText(ByVal Result As String)
If Me.lblTime.InvokeRequired Then
Dim d As New SetTextDelegate(AddressOf SetText)
Me.Invoke(d, New Object() {Result})
Else
Me.lblTime.Text = Result
End If
End Sub
然后在线程中需要更改lblTime时，用：
SetText("当前时间:" System.DateTime.Now)
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（可在属性窗口中指定或通过代码设置）
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网