vb 实现透明窗体

xiaojiongen

实现透明窗体的代码如下:

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()
Dim hbitmap
Me.AutoRedraw = True
hbitmap = CreateCompatibleBitmap(Me.hdc, 0, 0)
SelectObject Me.hdc, hbitmap
Me.Refresh
End Sub

12秒88

不应该是透明吧,应该叫做快照.

iptton

没用过VB，不过知道一些所谓的透明其实就是一个技巧
先把应用程序后面的东西做一个快照
然后在本程序窗口“透明”部分显示那部分快照...

iptton

PS:我想知道LZ发这帖的目的....

sharp19

学习一下，看不懂