首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

急VB中坐标有关问题

2012-01-16 
急:VB中坐标问题各位高手:VB窗体中x、y坐标零点在哪儿?如果可以设置的话,该如何设置。请求高手的援助!!![解

急:VB中坐标问题
各位高手:VB窗体中x、y坐标零点在哪儿?如果可以设置的话,该如何设置。
请求高手的援助!!!

[解决办法]
好像是可以通过SCALE来设置的,不过一般我都是直接用该点做原点的,因为X方向和数学坐标是一样的,Y方向只要用屏幕的高度减去数学坐标就映射过去了
[解决办法]
自定义坐标如下,Y坐标依旧是上下颠倒的

Option Explicit

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Debug.Print X, Y
Circle (X, Y), 10
End Sub

Private Sub Form_Paint()
Cls
Line (-100, 0)-(100, 0)
Line (0, -100)-(0, 100)
End Sub

Private Sub Form_Resize()
Me.ScaleMode = vbUser
Me.ScaleLeft = -100
Me.ScaleWidth = 200
Me.ScaleTop = -100
Me.ScaleHeight = 200
Form_Paint
End Sub

热点排行