用百度实现啊
在表单里添加一个textbox。一个commandbutton
command1.click 里输入：

! start http://map.baidu.com/#word=allt(thisform.text1.value)

[quote]用百度实现啊
在表单里添加一个textbox。一个commandbutton
command1.click 里输入：

! start http://map.baidu.com/#word=allt(thisform.text1.value)
[/quote]
谢谢您的回答。
试了下，先弹出DOS窗口，然后启动IE，感觉很不好，还有我代码是改成
local aa
aa=allt(thisform.text1.value)
! start http://map.baidu.com/#word=&aa
才可以的，不然百度上的文字框一直是allt(thisform.text1.value)，没明白是为什么。

我自己的想法是，能不能不通过IE 自己要如何设计才能在软件的界面自己显示地图呢？
有控件可以实现这个功能吗？

呵，我没有VFP，没有调试忘了，

呵，VFP也可直接调IE，
你要在表单上显示地图，
你可以在表单上添加一个 microsoft web 浏览器  控件
就应该可以实现。。

ThisForm.AddObject("Web","Olecontrol","Shell.Explorer.2")   
  ThisForm.Web.Navigate2("http://map.baidu.com/")   
  ThisForm.Web.Width   =  600      
  ThisForm.Web.Height   =   400
  ThisForm.Web.Visible   =   .T.


以上代码可以实现在表单看地图的功能。

用百度地图感觉很多没用的信息，
找了下，发现这个不错。
http://uu.51ditu.com/uu/uu.swf。

但是有一个问题，每次关闭都提示脚本错误，谁帮我看下，谢谢。


[img]http://imgqun.qq.com/cgi-bin/img?uuid=202b2f6a2518f1406f2a7528a6003cc8ee[/img]
用百度的地图不会提示这个问题，是不是因为这个链接是FLASH的原因？


ThisForm.AddObject("Web","Olecontrol","Shell.Explorer.2")   
ThisForm.Web.Navigate2("http://uu.51ditu.com/uu/uu.swf")   
ThisForm.Web.Width   =  700      
ThisForm.Web.Height   =   500
ThisForm.Web.Visible   =   .T.

是的，你要以再找一个好点的地图，现在在线地图多的是