本文详细介绍如何截取屏幕画面
事实上，这是摸拟按下Print Screen的作法
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const theScreen = 1
Const theForm = 0
Private Sub Command1_Click()
Call keybd_event(vbKeySnapshot, theForm, 0, 0)
'若theForm改成theScreen则Copy整个Screen
DoEvents
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
End Sub
责编：豆豆技术应用
正在加载评论...
- Visual Basic 9
- Visual Basic/VB入门教程
- Visual Basic界面/视图
- Visual Basic图像/多媒体
- Visual Basic数据库
- Visual Basic文件/目录/磁盘
- Visual Basic网络通信编程
- Visual Basic系统编程
- Visual Basic控件编程
- Visual Basic/VB源码下载