frmtheme.frm

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

VERSION 5.00
Begin VB.Form frmTheme 
   Caption         =   "生成专题地图"
   ClientHeight    =   4350
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   2820
   LinkTopic       =   "Form1"
   ScaleHeight     =   4350
   ScaleWidth      =   2820
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Height          =   375
      Left            =   720
      TabIndex        =   4
      Top             =   3720
      Width           =   1215
   End
   Begin VB.ListBox lstFields 
      Height          =   1860
      Left            =   480
      MultiSelect     =   1  'Simple
      TabIndex        =   3
      Top             =   1680
      Width           =   1815
   End
   Begin VB.ComboBox cboType 
      Height          =   300
      Left            =   480
      TabIndex        =   1
      Top             =   720
      Width           =   1815
   End
   Begin VB.Label Label2 
      Caption         =   "选择字段："
      Height          =   255
      Left            =   480
      TabIndex        =   2
      Top             =   1320
      Width           =   1095
   End
   Begin VB.Label Label1 
      Caption         =   "专题地图样式"
      Height          =   375
      Left            =   480
      TabIndex        =   0
      Top             =   360
      Width           =   1815
   End
End
Attribute VB_Name = "frmTheme"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim pField As MapXLib.Field
Dim oLayer As MapXLib.Layer
Dim oDS As MapXLib.DataSet
Dim ThemeType As Integer

Private Sub cboType_Click()
  Select Case Me.cboType.ListIndex
      Case 0
        ThemeType = 0
      Case 1
        ThemeType = 1
      Case 2
        ThemeType = 2
      Case 3
        ThemeType = 3
      Case 4
        ThemeType = 4
      Case 5
        ThemeType = 5
      Case 6
        ThemeType = 6
  End Select
End Sub

Private Sub cmdok_Click()
  Dim SelCount As Integer
  Dim ThemeFields() As String
  Dim i As Integer, J As Integer
  
  
  If lstFields.SelCount = 0 Then
    MsgBox "请先选择字段", vbInformation
    Exit Sub
  End If

  SelCount = lstFields.SelCount
  ReDim ThemeFields(SelCount - 1) As String
  
  For i = 0 To lstFields.ListCount - 1
    If lstFields.Selected(i) = True Then
        ThemeFields(J) = lstFields.List(i)
        J = J + 1
    End If
  Next i
  oDS.Themes.Add ThemeType, ThemeFields
  Unload Me
  
  
End Sub

Private Sub Form_Load()
  Dim i As Integer
  
  cboType.AddItem "范围图"
  cboType.AddItem "直方图"
  cboType.AddItem "饼图"
  cboType.AddItem "等级符号图"
  cboType.AddItem "点密度图"
  cboType.AddItem "独立值图"
  cboType.AddItem "默认"
  cboType.ListIndex = 6
  
  Set oLayer = frmMain.MapDisp.Layers(frmMain.lstLayers.List(frmMain.lstLayers.ListIndex))
  Set oDS = frmMain.MapDisp.DataSets(frmMain.lstLayers.List(frmMain.lstLayers.ListIndex))
  
  For i = 1 To oDS.fields.Count
    Select Case oDS.fields(i).Type
      Case 1:
        lstFields.AddItem oDS.fields(i).Name
      Case 0:
    End Select
  Next i
  
End Sub