在vb填加了一个map控件,知道左下点坐标和右上点坐标,怎么显示所以点的坐标啊,
最好是鼠标移动到那,就显示那样的坐标,应该怎么弄啊,这样的话是按照投影算的,还十九均匀的分坐标啊
Tx1 = , "经度"
Ty1 = "纬度"
Ox1 = Map1.ToMapDistance(X)
Oy1 = Map1.ToMapDistance(Y)Tx2 ="经度"
Ty2 ="纬度"
Ox2 = Map1.ToMapDistance(X)
Oy2 = Map1.ToMapDistance(Y)
Private Sub Map1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Str1 As String
If Tbl Then
Str1 = "x=" ; Format(Dx0 + Map1.ToMapDistance(X) / Dxk, "0.000") ; _
"，y=" ; Format(Dy0 - Map1.ToMapDistance(Y) / Dyk, "0.000")
Else
Str1 = "x=" ; Format(Map1.ToMapDistance(X), "0.000") ; "，y=" ; Format(Map1.ToMapDistance(Y), "0.000")
End If
Label1.Caption = Str1
End Sub
If Tx1 = 0 Or Ty1 = 0 Or Tx2 = 0 Or Ty2 = 0 Then
MsgBox "先点击地图，输入2点经纬度。"
Exit Sub
Else
Tbl = True
Dx0 = (Tx1 * Ox2 - Tx2 * Ox1) / (Ox2 - Ox1)
Dxk = Ox1 / (Tx1 - Dx0)
Dy0 = (Oy1 * Ty2 - Oy2 * Ty1) / (Oy1 - Oy2)
Dyk = Oy1 / (Dy0 - Ty1)
End If
