如何冻结桌面,并可用鼠标在桌面上画框,像QQ的捕获屏幕
大家看看QQ的捕获屏幕那个功能是如何实现的呢 问题点数：50、回复次数：4Top
1 楼wzzwwz（皮皮鲁）回复于 2005-05-22 16:37:11 得分 0
学习ingTop
2 楼Geo_Cra（无铭人氏）回复于 2005-05-22 16:55:34 得分 5
用一个占满屏幕的窗口来模拟，将屏幕上的东西全部拷贝进去Top
3 楼tanaya（唐博士http://blog.csdn.net/tanaya）回复于 2005-05-22 16:57:59 得分 5
首先截获全屏,然后显示为全屏方式.下面要做的,就是在图片上画一个矩形方框了
一个MouseDown,然后是MouseMove,再就是一个MouseUp就搞定了
Top
4 楼tanaya（唐博士http://blog.csdn.net/tanaya）回复于 2005-05-22 16:59:36 得分 40
截获全屏:
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
keybd_event vbKeySnapshot, 0&, 0&, 0&
DoEvents
Image1.Picture = Clipboard.GetData(vbCFBitmap)
End Sub
Top
