mapxv4.bas

一个vb+oracle的例子

Attribute VB_Name = "Module1"
'创建新层
 Global rect As New MapXLib.Rectangle
'图形输入
Global FormIndex As Long

Global ODBCFlag As Boolean
Global IsOracle As Boolean
Global Option_AddToDataset As Boolean
Global Option_AddToGeoDict As Boolean
Global Option_InfoTip As Boolean

Global Const CreateSymbolTool = 1
Global Const CreateTextTool = 2
Global Const CreateLineTool = 3
Global Const CreatePolyLineTool = 4
Global Const CreateArcTool = 5
Global Const CreateRectTool = 6
Global Const CreateRectRegionTool = 7
Global Const CreateCircleRegionTool = 8
Global Const CreateEllipseRegionTool = 9
Global Const CreatePolygonTool = 10
Global Const MoveFeatures = 11

'对象编辑
Global CopyFtrs As MapXLib.Features
Global MoveFtrs As MapXLib.Features
Global xf As Single, xe As Single
Global yf As Single, ye As Single

'浏览窗口
Global BrowserFlag As Boolean
Global EditFlag As Integer

'专题图
Global ThemeType As Integer
Global ThemeFields() As String


Public Const GMEM_MOVEABLE = &H2

Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, _
                            ByVal dwBytes As Long) As Long
Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" _
                            (ByVal lpString1 As Any, _
                             ByVal lpString2 As Any) As Long


Public Sub ChangeCombo()
    
    Dim lyr As MapXLib.layer
    Dim ds As MapXLib.Dataset
    Dim i As Integer
    Dim TmpStr As String
    Dim TmpInt As Integer
    
    '填充图层选择组合框
    ToolBars.Combo1.Clear
    For Each lyr In Formmain.Map1.Layers
       ToolBars.Combo1.AddItem lyr.name
    Next
    
    If ToolBars.Combo1.ListCount > 0 Then
       ToolBars.Combo1.ListIndex = 0
       TmpStr = Formmain.Map1.Layers.Item(1).name
       Formmain.Map1.Layers(TmpStr).Editable = True
    End If
    
    '填充数据集组合框
    ToolBars.Combo2.Clear
    TmpInt = 0
    For Each ds In Formmain.Map1.Datasets
      
      ToolBars.Combo2.AddItem ds.name
      If ds.name = TmpStr Then ToolBars.Combo2.ListIndex = TmpInt
      TmpInt = TmpInt + 1
    Next
    
    
End Sub