我在哪？Notes知道！

大家好，才是真的好。话说人生有三大哲理性问题值得深入思考：一我是谁？二我在哪？三发生了什么事情？利用GPS或北斗定位，我们很容易搞清楚第二个问题，即我在哪。

有心人应该记得，我们提到过很多，不是在文字的夹缝里，而是在Notes Domino V11新功能介绍大幅篇章中，说了很多关于V11的LotusScript语言的增强。是的，V11中的LotusScript多了几个类，NotesJSON是一个很重要的类，还有，就是今天我们要介绍的主角——NotesGPS类。

随着Notes Domino V11 Beta2版本的发布和下载，NotesGPS类的应用浮出了我的公众号。今天我们就给一个例子来测试NotesGPS类的使用，不过，目前NotesGPS只支持移动设备上的HCL Nomad，至于桌面端的Notes客户机支持，也许需要在正式版本发布后吧？

先上代码为敬：

Dim session As New NotesSession
Dim GPS As NOTESGPS '定义GPS类
Set GPS = session.Creategps() '创建GPS实例
Dim hasAccess As Boolean 
hasAccess = GPS.Requestaccess() '判断在手机或移动设备上是否具备获取GPS的权限
If hasAccess Then '如果有权限
Dim pos As NOTESGPSPOSITION '定义地理位置
Set pos = GPS.Getcurrentposition() '实例化当前设备的地理位置
Dim coo As NOTESGPSCOORDINATES
Set coo = pos.Coordinates '获取地理位置的坐标
Dim lat As Double
Dim lot As Double
lat = coo.Latitude '获取坐标纬度
lot = coo.Longitude  '获取坐标经度
End If
Msgbox "坐标：纬度 " & lat & " 经度 " & lot

注释得很清楚了吧？希望插进来的这些乱七八糟的广告，不要把我排版优雅的代码给打乱了。让我们看看效果图：

完美！对，我们在视图中写了一个操作按钮，然后再操作按钮中Click事件里写了一串代码，不多，加上空行总共才21行。希望在执行有报错时，不要提示第32行有错误。

我知道你们非常想看效果，那我们就来看吧。用移动设备上的HCL Nomad客户机打开这个应用，找到这个视图，点击一下“GPS”按钮，叮，第一个坐标对话框就清晰地展现出来了：

叮的声音是我自己配的，实际弹出对话框是无声的，不过无声胜有声。

当然，这里只是一个基础，获得数字坐标以后，我们很容易把它转变为具体的地图地址，我相信，一些脑袋奇特的大牛准备好了很多花式玩法。

好了，今天我们就介绍到这里吧。如意犹未尽，请继续保持关注哦。

更多精彩内容请关注微信公众号“协作者”

原文地址：https://mp.weixin.qq.com/s/ITADL0628i8dHGMNnjvftQ