VB怎么做个截图工具

就想要个小工具

1.我需要的是局部截图，首先要选择区域，像QQ的截图一样，用鼠标划选。

2.选择区域以后，这个区域就固定了，截图时就截这个区域里面的。

3.需要一个显示区域，不用很大，截图以后图片自动进入显示区域。

4.再截图时，自动更换显示的图片。

5.需要快捷键。

会的加我QQ也行哈，627179319.积分没问题

到时需要源码以及成品。谢谢。

我已经加你了请

VB源码

QQ制作屏幕截图.rar

已发送油箱，请查收

邮箱留下我把源码给你

这东西可以百度到```

    有这类的 API```

    有源码下载`

1. 启动新 VisualBasic 常用 Exe 项目。 默认情况下创建 Form 1。 2. 在 项目 菜单上, 选择将一个新模块添加到现有项目 添加模块 。   3. 向窗体, 名称之一添加两 图片框 Pic_Edit （目标）, 和其他名称 Pic_Dest （目标）。 4. 将是 Pic_Edit Picture 属性设置为要从中选择区域位图 5. 将是 Pic_Dest AutoRedraw 属性设置为 True   6. 以下代码添加到 Module 1：Public Const INVERSE = 6 Public Const DOT = 2 Public Const SOLID = 0 Public OrigX As Long Public OrigY As Long Public DestX As Long Public DestY As Long Public Sub Draw_Selection_Rectangle()     ' Set drawing mode to INVERSE since this routine also used to erase     ' the selection rectangle by simply drawing over the currently     ' displayed rectangle         With Editor.Pic_Edit         .DrawMode = INVERSE         .DrawStyle = DOT         Editor.Pic_Edit.Line (OrigX, OrigY)-(DestX, DestY), , B         .DrawStyle = SOLID     End With End Sub Public Sub Copy_Rectangle()     With Editor.Pic_Dest         .Cls         .Visible = True         .Height = DestY - OrigY         .Width = DestX - OrigX         .PaintPicture Editor.Pic_Edit, 0, 0, (DestX - OrigX), _             (DestY - OrigY), OrigX, OrigY, (DestX - OrigX), _             (DestY - OrigY), vbSrcCopy     End With         ' Make sure the clipboard is clear, then copy the image:     Clipboard.Clear     Clipboard.SetData Editor.Pic_Dest.Image End Sub                                         7. 以下代码添加到 Form 1：Private Sub Pic_Edit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)     If Button = 1 Then Pic_Edit.Refresh     Pic_Dest.Visible = False     OrigX = X     OrigY = Y     DestX = OrigX     DestY = OrigY     Call Module1.Draw_Selection_Rectangle End Sub Private Sub Pic_Edit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)            If Button = 1 Then         DestX = X         DestY = Y         Pic_Edit.Refresh         Call Module1.Draw_Selection_Rectangle     End If End Sub Private Sub Pic_Edit_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)     ' Check to see if mouse moved or goes the "wrong" way:     If DestX <= OrigX Or DestY <= OrigY Then         Pic_Edit.Refresh         Exit Sub     End If         If Button = 1 Then Call Copy_Rectangle End Sub                                         8. 启动应用程序并选择用鼠标与位图的区域。 当您松开鼠标按钮, Pic_Dest 出现 备注 所选区域： 如果备份 MS 画图、 MSWord 或任何其他应用程序可能需要粘贴位图, 打开您就可以粘贴到该应用程序图像的选定部分。 也可以通过剪贴板查看程序查看剪贴板的内容。