VB的坐标系设定有关问题

VB的坐标系设定问题
Scale方法是建立用户坐标系的方法，其语法如下：对象.]Scale [(xLeft，yTop) - (xRight，yBotton)]
照道理来说，yTop > yBotton 的数值的，毕竟是从左上角画到右下角
但下面的一个小代码却告诉我实际情况不是这样，大家可以说明一下原因吗？

VB code

Private Sub Form_Click()Scale (0, 0)-(100, 100)Line (0, 0)-(100, 100)End Sub

这里，右下角坐标的y值已经大于左上角坐标的y值，这从逻辑上说不通啊
但结果却和下面的代码效果一样

VB code

Private Sub Form_Click()Scale (0, 0)-(100, -100)Line (0, 0)-(100, -100)End Sub

[解决办法]
Scale (0, 0)-(100, 100)
即表单的范围是(0,0)-(100,100)的矩形范围内，你的线Line (0, 0)-(100, 100)即为右上角至左下角

Scale (0, 0)-(100, -100)
即表单的范围是(0,0)-(100,-100)的矩形范围内，你的线Line (0, 0)-(100, -100)不还是右上角至左下角，所以结果一样
[解决办法]
Private Sub Form_Click()
Scale (0, 0)-(100, 100) '规定左上角的坐标为 0,0 右下角坐标为100,100
Line (0, 0)-(100, 100)' 从左上角到右下角画根直线，注意，line函数以scale后的坐标系为基准
End Sub

查看更多 下一篇