- 博客(0)
- 资源 (5)
- 收藏
- 关注
vb写的屏幕截图 小软件
vb写的屏幕截图 小软件
源码
Option Explicit
Dim screenhwnd, screendc, rc
'<<<<<<<<<<<<<<<<<<<截图<<<<<<<<<<<<<<<<<<
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC 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 dwRop As Long) As Long '以下API函数可以通过VB自带的API文本浏览器复制而来。
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long
'<<<<<<<<<<<<<<<<<<<调用QQ截图控件<<<<<<<<<<<<<<<<<<
2010-05-19
VB写的一个简单的屏保
VB做 一个简单的屏保
Option Explicit
Dim screenhwnd, screendc, rc
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC 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 dwRop As Long) As Long '以下API函数可以通过VB自带的API文本浏览器复制而来。
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
2008-09-07
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人