桌面屏幕翻转
PrivateDeclareFunctionGetDesktopWindowLib"user32"()AsLong PrivateDeclareFunctionGetDCLib"user32"(ByValhwndAsLong)AsLong PrivateDeclareFunctionStretchBltLib"gdi32"_ (ByValhdcAsLong,_ ByValxAsLong,_ ByValyAsLong,_ ByValnWidthAsLong,_ ByValnHei
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->
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->
- 上一篇:利用VB产生屏幕变暗的效果
- 下一篇:动态改变屏幕设置
收藏文章
热评话题
- Android定时器实现的几种方式整理及removeCallbacks失效问题解决_Android开发_龙盟编程网
- 在linux中导入sql文件的方法分享(使用命令行转移mysql数据库)_MySQL 技术_龙盟编程网
- 如何应用PHP函数imagettftext处理图片_php编程_个人技术分享
- 如何解决C语言,函数名与宏冲突_C/C++开发_龙盟编程网
- 在ASP.Net中应用Javascript_Javascript编程_龙盟编程网
- 查询反向链接中link和domain的区别_SEO优化_龙盟编程网
- sql 查询本年、本月、本日记录的语句,附SQL日期函数_Sql Server开发_龙盟编程网
精彩图集
精彩文章