www.pudn.com > mapxoracle.zip > mapxv4.bas

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