Question

vb 左下角坐标系 及 寻找坐标方法

本人有2个关于坐标的问题
1，如何生成左下角坐标系，我看了不少代码，但是不知为何就是用不了，我是用picdxf.scale(-5,picdxf.height)-(picdxf.width,-40)不知为何不行，只显示y轴（由于picture下方有STATEBAR所以并非要在刚刚好左下角）
2，我在picture那里生成了图形，如何通过鼠标移动来获取图形中的任意点，我的代码是这样，不是为何不行。
Private Sub picdxf_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If RecordNumber > 0 Then
SBar1.Panels(3).Text = "(" + Format(x, "#####.000") + "," + Format(y, "#####.000") + ")"
End If
End Sub

Answer 1

scale（左上角坐标X，左上角Y）-（右下角坐标X，右下角坐标Y）
这些XY都是你新坐标系下的坐标。

Answer 2

'我测试了以下代码:

Private Sub Form_Load()
Me.AutoRedraw = True
Picture1.Scale (-5, Picture1.Height)-(Picture1.Width, -40)
End Sub

Private Sub Picture1_Click()
Picture1.Line (0, 0)-(Picture1.Width, 0)
Picture1.Line (0, 0)-(0, Picture1.Height)
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = "(" & Format(X, "#####.000") & "," & Format(Y, "#####.000") & ")"
End Sub

'完全正确,也达到了你的要求.证明你的代码没有问题.
'的确是左下角坐标系,所以请检查scale语句是否执行.
'另外不清楚RecordNumber的功能,无法确定.没有它运行完全正确.