gongxiang.bas

vb+mapx小型地图系统

Attribute VB_Name = "Module1"
Public Const LookInfoTool = 1
Public Const distancetool = 2
Public c_theme As MapXLib.Theme
Public c_mydataset As New MapXLib.Dataset
Public c_themename As String
Public select_rs As New ADODB.Recordset
Public select_cnn As New ADODB.Connection
Public Const mousepoint = 3
Public isdatahas As Boolean
Public ds1 As MapXLib.Dataset
Public datahasLayer As Integer
Dim look_lyr As New MapXLib.layer

'Public Function isselectfeature() As Boolean
'Dim f_layer As MapXLib.Layer
'Dim f_fea As MapXLib.Feature

'Dim f_i As Integer, f_j As Integer
'f_j = 0
'f_i = 0
'For Each f_layer In Map1.Layers
            'f_i = f_i + 1
         'If f_layer.Editable And f_layer.Selection.Count > 0 Then
        ' Set f_fea = f_layer.Selection.Clone
         
         'f_j = f_i
        ' End If
    ' Next
         '  MsgBox "先设置一个图层为可编辑"
          ' isselectfeature = False
          '
          '
         '  Else
          '
          ' isselectfeature = True
           
         '  End If
           
         
'End Function



'Public Function casestyle() As String
'Dim f_newstyle As New MapXLib.Style
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()

    Private Sub Form_Initialize()

        InitCommonControls

    End Sub