十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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(可在属性窗口中指定或通过代码设置)