在VB中如何给image控件中图象赋坐标值，并显示我输入的坐标在地图中的位置

Question

我想在VB中加一张中国地图.用text输入2个坐标值，在地图中用红点显示我输入坐标值的地点，不用考虑是东经还是西经，只是张中国地图，谢谢了，我需要用什么控件，简单写下代码最好，可以联系我qq：276204746

Answer 1

用Image,Label,Shape，导入图片到Image,Label用来显示文字，shape用来表示小圆圈等：）

Answer 2

Option Explicit
Dim strMap As String
Private Sub btnSetXY_Click()
    If txtX.Text = "" Or txtY.Text = "" Then Exit Sub
    picMap.Cls
    picMap.AutoRedraw = True
    picMap.Picture = LoadPicture(strMap)
    picMap.Scale (0, 1000)-(2000, 0)    '定义坐标系统，左上角：（0，1000），右下角：（2000，0） 这个看实际情况而定
    picMap.PSet (txtX.Text, txtY.Text)
End SubPrivate Sub Form_Load()
    picMap.Picture = LoadPicture(strMap)
End Sub需要代码，请和我联系

Answer 3

3楼能加下我QQ吗？我是VB新手，不太明白，这个论坛也用不太好，如果能帮我解决问题分就给你了

Answer 4

你能简单做1下发我邮箱里面吗？我邮箱[email protected]不用多复杂，谢谢了