vb点虐lable的简单介绍

vb点虐中如何使背景图片上的lable控件透明？

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Label1.BackColor = System.Drawing.Color.Transparent

End Sub

没问题哦。。

vb点虐通过线程给lable.text赋值问题

为了线程安全，微软规定线程不能直接访问窗体控件，需要用委托的方式，窗体代码中增加：

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)

vb点虐中如何实现将label背景变透明，但字体显示出来

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（可在属性窗口中指定或通过代码设置）

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！