以下是引用cglsg5076在2018/5/10 20:09:00的发言：
请问老师，我直接打开提供的地图简单应用的foxtable程序，为什么不能显示地图？百度地图是不是有时候不能打开？（网络是通的）
api变了，改成
Dim txt_addr As WinForm.TextBox = e.Form.Controls("TextBox1")
'取得地图的坐标
Dim XMLH As Object
XMLH = CreateObject("Microsoft.XMLHTTP")
XMLH.open("GET", "http://api.map.baidu.com/geocoder/v2/?address=" & txt_addr.Text & "&output=json&ak=hAaa2NLELKdAIfMhMjnuEgi1", True)
XMLH.send(Nothing)
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=73838&skin=0
加好友 
发短信
Post By：2018/5/10 20:29:00 [只看该作者]
