Private Sub Picture1_Paint()
创新互联公司是一家专业提供洪洞企业网站建设,专注与成都做网站、网站设计、H5建站、小程序制作等业务。10年已为洪洞众多企业、政府机构等服务。创新互联专业网络公司优惠进行中。
Dim l As Long, t As Long
l = (Picture1.Width - Picture1.ScaleWidth) / 2 '求左右边偏差
t = (Picture1.Height - Picture1.ScaleHeight) / 2 '求上下边偏差
Picture1.PaintPicture Me.Picture, 0, 0, , , Picture1.Left + l, Picture1.Top + t, Picture1.ScaleWidth, Picture1.ScaleHeight '载入图片,就用这行
'Picture1.PaintPicture Me.Image, 0, 0, , , Picture1.Left + l, Picture1.Top + t, Picture1.ScaleWidth, Picture1.ScaleHeight '复制的图片,就用这行
End Sub
Option Explicit
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, _
ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, _
ByVal hObject As Long) As Long
Private Sub Form_Load()
Form1.BorderStyle = 0
Dim Bitmap
Me.AutoRedraw = True
Bitmap = CreateCompatibleBitmap(Me.hdc, 0, 0)
SelectObject Me.hdc, Bitmap '设置窗体透明
End Sub
Private Sub Form_Click()
End '单击窗体任何地方都是退出程序
End Sub
自己写的一段代码。你看一下吧。。我写是完全的。直接没有了标题栏，如果想要标题栏的话。把其中的 Form1.BorderStyle = 0 这句去掉就可以了。
如果要按照你的要求，只能说没办法。VB.Net的Label不像VB6可以透明到看到后面的控件。GDI+在控件上写是Paint事件还有就是楼上的方法，也可以把BackColor设成Transparent