Question

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

想在窗体上定义一个坐标系，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"
但是运行后窗体最大化时只在左上角有个小的坐标系，而不是在窗体中间。
请问怎么解决？

Answer 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

追问

能加下QQ吗，还有些问题想问你！谢谢了

Answer 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