最近遇到个小难题,就是关于在vb中定义自己的坐标系的问题,大家都知道,vb中本身的坐标系是最左上角是坐标原点,那样的话很不方便,我想自定义一个让坐标原点位于窗体的中间,如同数学中的直角坐标系,效果图就象上图,这样的话,就可以任意的找到各个点的坐标了!
望各位兄弟姐妹不吝赐教,在这里先谢谢了!

Scale

使用Scale[(xleft,ytop)-(xright,ybottom)]

先谢谢楼上两位
能不能说的具体一点!!!!
最好用个具体数字说明一下!!

Option Explicit

Private Sub Form_Activate()
Me.Line (-360, 0)-(360, 0)
Me.Line (0, 360)-(0, -360)

Dim i As Integer

For i = -360 To 360 Step 60
Me.CurrentX = i
Me.CurrentY = 0
Print CStr(i)
Me.Line (i, 0)-(i, 20)
Next
End Sub

Private Sub Form_Load()
Me.Scale (-360, 360)-(360, -360)
End Sub

谢谢楼上这位朋友,现在已经明白!!

晕..这代码也加精?不是吧.

MM的代码，不管是什么都加精~~~~`顶一个

晕晕.

汗....