85问答库 > VB中在窗体上定义坐标系，并画出坐标系，怎么定义是定义的窗体最大化时的坐标系？

VB中在窗体上定义坐标系，并画出坐标系，怎么定义是定义的窗体最大化时的坐标系？

2025-06-29 08:39:31

推荐回答（2个）

回答1：

Private Sub Form_Load()
Form2.AutoRedraw = True
End Sub

Private Sub Form_Resize()
Form2.Cls
Form2.Scale (-20000, 20000)-(20000, -20000)
Form2.DrawWidth = 3
Form2.Line (-15000, 0)-(15000, 0), vbBlue
Form2.ForeColor = vbBlue
Form2.Print "x"
Form2.DrawWidth = 2
Form2.DrawWidth = 1.2
Form2.Line (0, -15000)-(0, 15000)
Form2.ForeColor = vbBlue
Form2.Print "y"
Form2.CurrentX = 0
Form2.CurrentY = 0
Form2.Print "0"
End Sub

回答2：

你的代码没问题，问题是代码必须写在Private Sub Form_Resize()事件中，并且前面要加CLS语句
，并且最重要的form2的AutoRedraw 属性必须设定为true！！！

Private Sub Form_Resize()

Cls

Form2.Scale (-20000, 20000)-(20000, -20000)
Form2.DrawWidth = 3
Form2.Line (-15000, 0)-(15000, 0), vbBlue
Form2.ForeColor = vbBlue
Form2.Print "x"
Form2.DrawWidth = 2
Form2.DrawWidth = 1.2
Form2.Line (0, -15000)-(0, 15000)
Form2.ForeColor = vbBlue
Form2.Print "y"
Form2.CurrentX = 0
Form2.CurrentY = 0
Form2.Print "0"

End Sub