桌面屏幕翻转

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function StretchBlt Lib "gdi32" _
(ByVal hdc As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal hSrcDC As Long, _
ByVal xSrc As Long, _
ByVal ySrc As Long, _
ByVal nSrcWidth As Long, _
ByVal nSrcHeight As Long, _
ByVal dwRop As Long) As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
End
End Sub

Private Sub Form_Load()
’set the showintaskbar property to false
’set the borderstyle of the form to none
Form1.AutoRedraw = True
Form1.ScaleMode = VBPixels
a = GetDesktopWindow()
b = GetDC(a)
StretchBlt Form1.hdc, 0, 0, Screen.Width, Screen.Height, b, 0, _
Screen.Height, Screen.Width, -Screen.Height, vbSrcCopy
End Sub

上一篇： 利用VB产生屏幕变暗的效果
下一篇： 建立无模式窗口

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!