用VB6屏幕截图

2024年4月5日发(作者：)

用VB6.0实现，本人vb比较菜，所以最好是完整代码，也希望能附上注释，在这里

多谢了~

问题补充：

借助外部工具比较简单，我想用代码实现 ，希望高手帮一下，非常感谢！！

辛语辛辰 ，savepicture可以保存图片，不过我想保存时主窗体中的一部分，并且上

面可能有控件，不知道还有什么方法吗？

最佳答案

Dim t As Boolean

Dim f As Boolean

Private Sub Form_Load()

= 100

= 100

draw = True

End Sub

Private Sub Pic0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y

As Single)

If t = False Then

= X

= Y

End If

If Button = 1 And f = False Then

t = True

= X -

= Y -

icture e, 0, 0, , , , , ,

End If

End Sub

Private Sub Pic0_MouseUp(Button As Integer, Shift As Integer, X As Single, Y