GEOLOCATION库，获取定位坐标的例子及移植办法

IPSC1978.GICP.NET

GEOLOCATION库，获取定位坐标的例子及移植办法 - 文章首页→返回版区

■标题:GEOLOCATION库，获取定位坐标的例子及移植办法

■作者:IPSC [2026/2/11 10:28:41]
通过网盘分享的文件：GPS获取GeoLocation库下载.zip

链接: https://pan.baidu.com/s/11FdkPRCkbKAF9DNsn9mVRg?pwd=0759 提取码: 0759

如何移植到自己APP

把两个库文件解压到库文件文件夹，在打开的B4A库列表右键刷新，把GETLOCATION库打上勾

在要使用的页面文件里

[vb]
Sub Class_Globals'这个模块加下面这行
Public GeoLoc As GeoLocator
[/vb]

[vb]
Public Sub Initialize As Object'这个模块加下面这行

GeoLoc.Initialize("GeoLocation")
[/vb]

然后在要定位的按钮模块里加上如下即可
[vb]
Log("开始获取GeoLoc.geoAddress")

GeoLoc.geoAddress '目前所在地

Log("button1-GEO库→帼家:" & GeoLoc.Country) '帼家

Log("button1-GEO库→省:" & GeoLoc.State) '省、自治区、州、直辖市

Log("button1-GEO库→城市:" & GeoLoc.City) '地市盟

Log("button1-GEO库→门牌:" & GeoLoc.KnownName) '道路门牌号码及建筑物名称

Log("button1-GEO库→详细地址:" & GeoLoc.Address) '含以上除帼家名称之外的所有详细地址

Log("button1-GEO库→邮编:" & GeoLoc.PostalCode) '邮政编码没有，返回null

Log("button1-GEO库→经度:" & GeoLoc.Longitude) '经度

Log("button1-GEO库→纬度:" & GeoLoc.Lattitude) '纬度

Log("地址:" & GeoLoc.Address)

'
要转换为中国测绘局标准GCJ-02坐标经度+0.004391 纬度-0.002471

Dim body As String=""

Dim gcj02 As String

body=GeoLoc.Longitude & "," & GeoLoc.Lattitude

gcj02="g" & (GeoLoc.Longitude+0.004391) & "," & (GeoLoc.Lattitude-0.002471)
[/vb]

另外，还要加上这个无内容模块，否则会闪退
[vb]
Sub GeoLocation_Location(success As Boolean, Lattitude As Double, Longitude As Double, info As String, isMockLocation As Boolean)

''
'虽然这里没有内容，但这个子程序不可删除，否则闪退。

End Sub

[/vb]

【回复/版区/上篇/下篇/发贴/仅文字/HTML】

【倒序/最近21条回复】(暂无)

(查看完整版网页)

短讯|首页|登录|算法|电脑版 .
DK MiniBBS Plus v2.0
mm0759.com
57 毫秒 .