VB截图程序.docx

自定义截图为command1全屏command4清除截图command5抓取活动窗口command7保存截图command2打印结果command6退出command3Form1 CommonDialog控件Timer无边框的form2Label Shape左上角右上角左下角右下角代码如下：form1全部代码Private Sub Form_Load()Timer1.Interval = 55 设定时间, 如果太小的话,程序来回晃了End Sub 使得窗口隐藏如果需要按键组合:则If GetAsyncKeyState(vbKeyF12) And GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeyMenu) Then其中的(vbkey)就是按键码,,,(vbkeycontrol)代表Ctrl键(vbKeyMenu)代表Alt键Private Sub Timer1_Timer()If GetAsyncKeyState(vbKeyMenu) And GetAsyncKeyState(vbKeyS) Then 检查是否按下Alt+S键If Form1.Visible = True ThenForm1.Visible = False 或 form1.hideElseIf Form1.Visible = False ThenForm1.Visible = True 或 form1.showEnd IfEnd IfEnd Sub 抓取整屏Private Sub Command4_Click() Dim EndTime As Date EndTime = DateAdd(s, 0.001, Now) Do Until Now EndTime DoEvents Loop Set Picture1.Picture = CaptureScreen()End SubPrivate Sub Command4_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 1 Then MsgBox 请使用键盘快捷键Alt+S End If Button参数说明: 1:鼠标左键 2:鼠标右键 4:鼠标中键End Sub 清除PictureBox中的结果.Private Sub Command5_Click() Set Picture1.Picture = LoadPicture(E:\图片\花.jpg) nothingEnd Sub 打印PictureBox中现在显示的结果.Private Sub Command6_Click() PrintPictureToFitPage Printer, Picture1.Picture Printer.EndDocEnd Sub 两秒后抓取活动窗口。Private Sub Command7_Click() MsgBox 关闭此对话框2秒后将抓取活动窗口。 提示对话框 Dim EndTime As Date EndTime = DateAdd(s, 2, Now) Do Until Now EndTime DoEvents Loop Set Picture1.Picture = CaptureActiveWindow() 设立焦点到窗口。 Me.SetFocusEnd Sub 抓取窗口任意部分的函数 Public Function CaptureWindow(ByVal hWndSrc As Long, ByVal Client As Boolean, ByVal LeftSrc As Long, ByVal TopSrc As Long, ByVal WidthSrc As Long, ByVal HeightSrc As Long) As Picture Dim hDCMemory As Long Dim hBmp As Long Dim hBmpPrev As Long Dim r As Long Dim hD