VB 截图 抓图
来源:互联网 发布:怎样安装app软件 编辑:程序博客网 时间:2024/05/01 19:36
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, _
ByVal hMem As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, _
ByVal hObject As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
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
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, _
ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, _
ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As Long) As Long
Private Sub Command1_Click()
Me.Visible = False
SourceDC = CreateDC("DISPLAY", 0, 0, 0)
DestDC = CreateCompatibleDC(SourceDC)
Bhandle = CreateCompatibleBitmap(SourceDC, 800, 600)
SelectObject DestDC, Bhandle
BitBlt DestDC, 0, 0, 800, 600, SourceDC, 0, 0, &HCC0020
Wnd = Screen.ActiveForm.hwnd
OpenClipboard Wnd
EmptyClipboard
SetClipboardData 2, Bhandle
CloseClipboard
DeleteDC DestDC
ReleaseDC Dhandle, SourceDC
Me.Picture = Clipboard.GetData()
Me.Visible = True
End Sub
Private Sub Command2_Click()
Me.Picture = Me.Image
''保存捕捉的图片
CommonDialog1.Filter = "BMP文件(*.bmp)|*.bmp|JPG文件(*.jpg)|*.jpg"
CommonDialog1.ShowSave
CommonDialog1.Flags = &H2 + &H4 + &H8
If CommonDialog1.FileName <> "" Then
SavePicture Me.Picture, CommonDialog1.FileName
End If
End Sub
Private Sub Command3_Click()
End
End Sub
- VB 截图 抓图
- VB实现抓屏/截图的代码
- 抓屏 截图
- Qvod电影不能抓图,截屏全是黑色,视频截图黑屏
- VC++屏幕抓图、屏幕截图并保存
- 红蜻蜓抓图精灵 网页截图 ,Ctrl+Shift+C
- 怎样用MAC自带的抓图软件截图
- BCB屏幕截图(抓图)程序-转
- VB屏幕截图1
- VB 抓屏
- vb.net抓屏
- VB 隐藏窗口截图/不可视区域载图
- vb屏幕截图压缩代码
- 最好用的截图抓图-推荐-点评-对比-分析-下载:
- Vb.net2005实现屏幕截图功能
- VB截图代码(超高质量)
- VB.NET屏幕截图方法2则
- 在VB.NET中进行抓屏
- 数学与科学随想
- 创建一个圆形的按钮(JAVA)
- 幸福必读
- 查找
- 软件版本号命名规则详解
- VB 截图 抓图
- 从魔术师到统计学家1
- IBM WebSphere 开发者技术期刊
- ShaderSimpler(3) : 卡通渲染
- 用gridview显示来自excel表格里的数据
- 从魔术师到统计学家 2
- [ Vocabulary Building ]Unit 2
- IPHLPAPI.DLL的作用
- 跟风C++主题年:从虚析构函数想到的内存基本模型