国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發(fā)設(shè)計 > 正文

桌面屏幕翻轉(zhuǎn)

2019-11-18 17:28:19
字體：大 中 小
供稿：網(wǎng)友
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->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 霍林郭勒市| 五莲县| 剑河县| 郴州市| 上思县| 武夷山市| 都江堰市| 依安县| 社旗县| 酒泉市| 德州市| 吴忠市| 阆中市| 文成县| 绥江县| 临城县| 修武县| 高清| 台北县| 灵武市| 武定县| 宜春市| 通化市| 宁德市| 阿荣旗| 县级市| 江达县| 象州县| 凉山| 云阳县| 延庆县| 哈密市| 惠水县| 江安县| 资阳市| 长丰县| 阜康市| 巴楚县| 广汉市| 临澧县| 英山县|