Question

visual basic中怎么画坐标系

Answer 1

要画坐标系，一般都要先自定义一下坐标。

比如：

设置窗体ScaleMode属性为0

Private Sub Form_Load()

  Me.AutoRedraw = True

  '自定义坐标

  Me.Scale (-10, 10)-(10, -10)

  '画坐标轴

  Me.Line (-10, 0)-(10, 0)

  Me.Line (0, 10)-(0, -10)

  '画坐标轴标志“X”

  Me.CurrentX = 9.5

  Me.CurrentY = -0.5

  Me.Print "X"

  '画坐标轴标志“Y”

  Me.CurrentX = 0.5

  Me.CurrentY = 9.5

  Me.Print "Y"

End Sub