frmedittheme.frm

师兄做的一个利用VB结合mapx组件做的超市查询小系统

VERSION 5.00
Begin VB.Form frmEditTheme 
   Caption         =   "编辑专题地图"
   ClientHeight    =   4320
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   3495
   LinkTopic       =   "Form1"
   ScaleHeight     =   4320
   ScaleWidth      =   3495
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      Height          =   450
      Left            =   1920
      TabIndex        =   2
      Top             =   3650
      Width           =   1215
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Height          =   450
      Left            =   240
      TabIndex        =   1
      Top             =   3650
      Width           =   1215
   End
   Begin VB.ListBox lstThemes 
      Height          =   3120
      Left            =   480
      TabIndex        =   0
      Top             =   360
      Width           =   2415
   End
End
Attribute VB_Name = "frmEditTheme"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim A(100, 2)

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdok_Click()
    Dim DS As MapXLib.DataSet
    Dim TM As MapXLib.Theme
    
    For i = 1 To lstThemes.ListCount
      If A(i, 2) = lstThemes.ListIndex + 1 Then
        II = i
      End If
    Next
    If ModiLegend = False Then
        If Trim(Me.lstThemes.Text) <> "" Then
            Set DS = frmMain.MapDisp.DataSets(frmMain.lstLayers.List(frmMain.lstLayers.ListIndex))
            Set TM = DS.Themes.Item(Me.lstThemes.Text)
            TM.ThemeDlg
        Else
            MsgBox "请先选择专题集.", vbInformation
        End If
    Else
        If Trim(Me.lstThemes.Text) <> "" Then
            Set DS = frmMain.MapDisp.DataSets(frmMain.lstLayers.List(frmMain.lstLayers.ListIndex))
            Set TM = DS.Themes.Item(Me.lstThemes.Text)
            TM.Legend.LegendDlg
        Else
            MsgBox "请先选择专题集.", vbInformation
        End If
    End If
    
    Set DS = Nothing
    Set TM = Nothing
End Sub

Private Sub Form_Load()
    Dim DS As DataSet
    Dim i As Integer, J As Integer
    
    II = 1
    For i = 1 To frmMain.MapDisp.Layers.Count
    Set DS = frmMain.MapDisp.DataSets(i)
        For J = 1 To DS.Themes.Count
            Me.lstThemes.AddItem DS.Themes(J).Name
            A(II, 1) = i
            A(II, 2) = lstThemes.ListCount
            II = II + 1
        Next
    Next
End Sub