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
说得我晕了,你自己看看是不是这个效果
[email protected]
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
与上面的相比,这个更是厉害,可以按任意色深的图像创建窗口,并支持从区域文件载入,这样就可以更讯速的创建异形窗口了。
不行啊,我换了一个gif图片窗口就出错了
紧急需要!紧急需要!紧急需要!紧急需要!紧急需要!紧急需要!紧急需要!紧急需要!紧急需要!紧急需要!紧急需要!