vb点虐 lable的简单介绍

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

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

没问题哦。。

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