vb.netgdi透明,vb 透明窗体

VB6或者Vb.Net或者GDI，如何设置单张png图片的透明度，并且平滑没有毛刺？

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

网站标题：vb.netgdi透明,vb 透明窗体
URL地址：http://myzitong.com/article/hcsgdo.html