vb 窗体 放大

Question

单击按钮，弹出一个新窗体2，在窗体2中将窗体1的（X1，Y1）——（X2，Y2）——（X3，Y3）——（X4，Y4）的区域放大（当然放大的倍数可调最好了）。
当窗体1的内容变化时候，窗体2同步，我想要用定时器刷新吧，但代码不会写。
求代码，谢谢！
若ok再追20分!

Answer 1

放大代码如下：
Private Sub Command1_Click()
Dim 放大窗体 As Form
Set 放大窗体 = New Form2
放大窗体.PaintPicture Me.Image, 0, 0, 放大窗体.ScaleWidth, 放大窗体.ScaleHeight, x1, y1, 你要的宽度, 你要得高度
放大窗体.Show
End Sub

当变化的时候你在调用一下这个代码就行了

追问

我的第一个窗体的图案是在窗体上画是，没有用picture控件。

另外，同步2个窗体的内容怎么弄，不用timer来刷新吗？

追答

我也没用picture控件啊，不知道你为何会有此疑问。
对于窗体同步的问题，可以使用timer控件来刷新，也可以使用其它方法，这个要具体问题具体分析，不过建议你自己先尝试一下，这样对你的学习是很有帮助的

Answer 2

PaintPicture 方法 可以实现你的目的

追问

能不能写些代码，刚学，有些不懂。谢谢！

追答

Private Sub Command1_Click()
Form2.AutoRedraw = True
Form2.PaintPicture Me.Image, 0, 0, Form2.ScaleWidth, Form2.ScaleHeight, 0, 0, 500, 500
Form2.Show
End Sub