xiaojiongen 发表于 2007-5-11 21:40

vb 实现透明窗体

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

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 发表于 2007-5-12 01:02

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

iptton 发表于 2007-5-12 10:33

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

iptton 发表于 2007-5-12 10:34

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

sharp19 发表于 2008-5-21 20:38

学习一下，看不懂
页: [1]
查看完整版本: vb 实现透明窗体