首页 > > 程序设计 > VB >

桌面屏幕翻转

2018-06-17 17:12:43来源：未知阅读 ()

PrivateDeclareFunctionGetDesktopWindowLib"user32"()AsLong
PrivateDeclareFunctionGetDCLib"user32"(ByValhwndAsLong)AsLong
PrivateDeclareFunctionStretchBltLib"gdi32"_
(ByValhdcAsLong,_
ByValxAsLong,_
ByValyAsLong,_
ByValnWidthAsLong,_
ByValnHeightAsLong,_
ByValhSrcDCAsLong,_
ByValxSrcAsLong,_
ByValySrcAsLong,_
ByValnSrcWidthAsLong,_
ByValnSrcHeightAsLong,_
ByValdwRopAsLong)AsLong

PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
End
EndSub

PrivateSubForm_Load()
’settheshowintaskbarpropertytofalse
’settheborderstyleoftheformtonone
Form1.AutoRedraw=True
Form1.ScaleMode=vbPixels
a=GetDesktopWindow()
b=GetDC(a)
StretchBltForm1.hdc,0,0,Screen.Width,Screen.Height,b,0,_
Screen.Height,Screen.Width,-Screen.Height,vbSrcCopy
EndSub->

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有