摘要载入中…　　　　请稍等…















内容载入中…　　　　请稍等…

生成一个透明窗体

 2009-1-5 21:15:33　　　来源：互联网　　
   

　·在运行时动态生成多个相同的控件？　·透明的Form上显示背景透通图　·实现窗体内部的左右移动 
生成一个透明窗体 
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 As Integer
Me.AutoRedraw = True
hBitmap = CreateCompatibleBitmap(Me.hdc, 0, 0)
SelectObject Me.hdc, hBitmap
Me.Refresh
End Sub
　[1]