module1.bas

mo2.4+vb开发的一个小的地理信息系统

Attribute VB_Name = "Module1"
Public lar As New MapObjects2.MapLayer '定义了全局图层变量
Public selpnt As MapObjects2.Point   '定义了一个点对象
Public recs As MapObjects2.Recordset '定义了一个记录集
Public lars As MapObjects2.Layers '定义一个图层集
Public strcondition As String '定义了一个全局的字符串