怎样区分画线时的XY轴

发布网友发布时间：2024-10-18 19:01

共2个回答

热心网友时间：2024-11-08 09:55

不知道你设置了坐标没有,如果没有的话,(0,1) 到(0,-1)这两个坐标你画出来,就在一点上,所以根本看不出来

你可以重新设置坐标系
Private Sub Form_Click()
Form1.Scale (-2, 2)-(2, -2) '加上这一句
Line (0, 1)-(0, -1)
Line (1, 0)-(-1, 0)
End Sub

热心网友时间：2024-11-08 10:01

你如果在FORM_LOAD 函数里添加这两项是没有用的
换成 FORM_CLICK 可以画但是由于两点的距离是按系统坐标来的所以距离很小
给你个程序吧、、
自己看看
Private Sub Form_Click()
ScaleLeft = -200: ScaleTop = 250: ScaleWidth = 500: ScaleHeight = -400
Line (-200, 0)-(300, 0): Line (0, 250)-(0, -150)
CurrentX = 0: CurrentY = 0: Print 0
CurrentX = 260: CurrentY = 20: Print "X轴"
CurrentX = 10: CurrentY = 240: Print "Y轴"
End Sub