frmtheme1.frm

都是基于VB所做的程序集合,值得大家作为实践的参考资料.

VERSION 5.00
Begin VB.Form frmTheme1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "专题图"
   ClientHeight    =   3885
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6315
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3885
   ScaleWidth      =   6315
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Tag             =   "1823"
   Begin VB.ComboBox cmbLayerName 
      Height          =   315
      Left            =   3630
      Style           =   2  'Dropdown List
      TabIndex        =   3
      Top             =   1590
      Width           =   2235
   End
   Begin VB.ComboBox cmbType 
      Height          =   315
      Left            =   3630
      Style           =   2  'Dropdown List
      TabIndex        =   2
      Top             =   2100
      Width           =   2235
   End
   Begin VB.CommandButton btnCancel 
      Cancel          =   -1  'True
      Caption         =   "放弃(&C)"
      Height          =   375
      Left            =   4830
      TabIndex        =   1
      Tag             =   "3058"
      Top             =   3465
      Width           =   1200
   End
   Begin VB.CommandButton btnNext 
      Caption         =   "下一步(&N)"
      Default         =   -1  'True
      Height          =   375
      Left            =   3255
      TabIndex        =   0
      Tag             =   "3130"
      Top             =   3465
      Width           =   1200
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   3090
      Left            =   225
      Picture         =   "frmTheme1.frx":0000
      Top             =   75
      Width           =   1695
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000005&
      X1              =   0
      X2              =   6405
      Y1              =   3360
      Y2              =   3360
   End
   Begin VB.Line Line2 
      BorderColor     =   &H80000003&
      X1              =   0
      X2              =   6405
      Y1              =   3345
      Y2              =   3345
   End
   Begin VB.Label lblDtName 
      Caption         =   "图层名称"
      Height          =   240
      Left            =   2130
      TabIndex        =   6
      Tag             =   "3237"
      Top             =   1635
      Width           =   1200
   End
   Begin VB.Label Label2 
      Caption         =   "专题图类型"
      Height          =   270
      Left            =   2130
      TabIndex        =   5
      Tag             =   "3238"
      Top             =   2190
      Width           =   1200
   End
   Begin VB.Label Label1 
      Caption         =   "本向导能帮助你创建和修改专题图。请先选择用于作专题图的图层和要作的专题图的类型"
      Height          =   705
      Left            =   2295
      TabIndex        =   4
      Tag             =   "3235"
      Top             =   255
      Width           =   3390
   End
End
Attribute VB_Name = "frmTheme1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'=========================================
'专题图向导第一步,选择单一专题图或者专题图向导
'=========================================
Option Explicit

Private Sub btnCancel_Click()
      Unload Me
End Sub

Private Sub btnNext_Click()
      Me.Hide
      '根据选项显示下一步专题图制作向导
      Select Case cmbType.Text
            Case "单值专题图"
                  frmThemeUnique.Show vbModal
            Case "范围分段图"
                  frmThemeWizard1_R.Show vbModal
            Case "点密度图"
                  frmThemeDotDensity.Show vbModal
            Case "统计图"
                  frmThemeWizard1_G.Show vbModal
            Case "等级符号图"
                  frmThemeGraduatedSymbol.Show vbModal
            Case "标签专题图"
                  frmThemeLabel.Show vbModal
      End Select
End Sub

Private Sub Form_Load()
      Dim objLayer As soLayer
      Dim strName As String
      Set objLayer = frmMain.SuperMap1.Layers.Item(1)
      If objLayer Is Nothing Then
            MsgBox "错误！", vbInformation
            Exit Sub
      End If
      For Each objLayer In frmMain.SuperMap1.Layers
            If objLayer.Dataset.Vector Then                '矢量数据才能做专题图
                  cmbLayerName.AddItem objLayer.Name
            End If
      Next
      Set objLayer = Nothing
      cmbLayerName.ListIndex = 0
      '添加专题图类型列表框
      With cmbType
            .AddItem "单值专题图"
            .AddItem "范围分段图"
            .AddItem "点密度图"
            .AddItem "统计图"
            .AddItem "等级符号图"
            .AddItem "标签专题图"
            .ListIndex = 0
      End With
End Sub