Question

如何实现对VB主窗体Form1中的部分矩形区域截图，并将图片保存为jpg格式？

用VB6.0实现，本人vb比较菜，所以最好是完整代码，也希望能附上注释，在这里多谢了~
借助外部工具比较简单，我想用代码实现 ，希望高手帮一下，非常感谢！！
辛语辛辰 ，savepicture可以保存图片，不过我想保存时主窗体中的一部分，并且上面可能有控件，不知道还有什么方法吗？

Answer 1

Dim t As Boolean
Dim f As Boolean

Private Sub Form_Load()
Pic.Height = 100
Pic.Width = 100
Pic.AutoRedraw = True
End Sub

Private Sub Pic0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If t = False Then
Pic.Left = X
Pic.Top = Y
End If

If Button = 1 And f = False Then
t = True
Pic.Width = X - Pic.Left
Pic.Height = Y - Pic.Top
Pic.PaintPicture Pic0.Picture, 0, 0, , , Pic.Left, Pic.Top, Pic.Width, Pic.Height
End If
End Sub

Private Sub Pic0_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then f = True
Pic2.Picture = Pic.Image
If Button = 2 Then
t = False
f = False
Pic.Width = 100
Pic.Height = 100
End If
End Sub
注释不用了吧，用SavePicture 语句保存图片

说详细点，它截取的是背景

Answer 2

有个很简单的方法，你打开一个QQ的聊天窗口，然后然后点截图，把图截取下来后在聊天窗口点右键另存为就可以选择想要的格式保存

Answer 3

用一个PictureBox控件设置隐藏
用PaintPicture 方法将你要矩形区域图拷贝到PictureBox
然后用SavePicture 语句保存PictureBox中的图片

Answer 4

可以用PaintPicture 方法截取图片
然后用SavePicture 语句保存图片
具体你可以查MSDN