地图应用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 地图应用

共有4776人关注过本帖树形打印复制链接主题：地图应用

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/10 20:29:00 [显示全部帖子]

以下是引用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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/10 21:01:00 [显示全部帖子]

以下是引用cglsg5076在2018/5/10 20:44:00的发言：
谢谢老师，我需要打开全球的地区，按照您的方法只能打开部分地图，只包括中国，无法看到全球其他部分的地图，请问如何实现。谢谢。

试试

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=85030&skin=0

百度api自己学习一下

http://lbsyun.baidu.com/index.php?title=webapi/appendix

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/10 21:02:00 [显示全部帖子]

以下是引用cglsg5076在2018/5/10 20:50:00的发言：
请问老师，如何让地图显示经纬度？

js的地图api看一下，主要是修改map模板文件。

http://lbsyun.baidu.com/index.php?title=jspopular

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/13 10:05:00 [显示全部帖子]

以下是引用cglsg5076在2018/5/13 8:16:00的发言：

var map = new BMap.Map("container");

map.centerAndZoom(new BMap.Point(116.403884,39.914887), 13);

map.enableScrollWheelZoom();

map.enableAutoResize();

修改项目文件夹下的map模板文件，在文件里面写页面代码。

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/13 15:09:00 [显示全部帖子]

具体实例发上来测试。

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/13 19:19:00 [显示全部帖子]

修改map文件

下载信息 [文件大小：下载次数： ]
点击浏览该文件:map.zip

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/27 15:32:00 [显示全部帖子]

以下是引用cglsg5076在2018/5/26 20:55:00的发言：
比如输出2018-1-11日的数据，但是程序不输出，如果删除filter语句，程序输出全部数据。您看如何能够实现按照不同的时间，输出数据到文件。谢谢

Dim ex As New Exporter
ex.SourceTableName = "NextDay"
ex.filepath ="d:\1.mdb"
ex.Filter = "[Date] = #" & e.Form.Controls("DateTimePicker1").value & "#"
ex.Export()
messagebox.show("completed")

下一主题 >> << 上一主题

主题：地图应用