frmthemewizard1_r.frm

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

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmThemeWizard1_R 
   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             =   "2921"
   Begin VB.CommandButton btnRndSetColor 
      Caption         =   "随机设色"
      Height          =   330
      Left            =   4335
      TabIndex        =   18
      Tag             =   "3240"
      Top             =   2850
      Width           =   930
   End
   Begin VB.CommandButton btnCancel 
      Cancel          =   -1  'True
      Caption         =   "放弃(&C)"
      Height          =   375
      Left            =   4830
      TabIndex        =   17
      Tag             =   "3058"
      Top             =   3465
      Width           =   1200
   End
   Begin VB.CommandButton btnOK 
      Caption         =   "完成(&O)"
      Default         =   -1  'True
      Height          =   375
      Left            =   3255
      TabIndex        =   16
      Tag             =   "3133"
      Top             =   3465
      Width           =   1200
   End
   Begin VB.CommandButton btnBack 
      Caption         =   "上一步(&B)"
      Height          =   375
      Left            =   2055
      TabIndex        =   15
      Tag             =   "3129"
      Top             =   3465
      Width           =   1200
   End
   Begin VB.CommandButton btnReCompute 
      Caption         =   "重新计算"
      Height          =   330
      Left            =   5265
      TabIndex        =   10
      Tag             =   "3250"
      Top             =   2850
      Width           =   930
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   1725
      Left            =   1860
      TabIndex        =   4
      Top             =   1050
      Width           =   4425
      _ExtentX        =   7805
      _ExtentY        =   3043
      _Version        =   393216
      FixedCols       =   0
      BackColorBkg    =   16777215
      AllowBigSelection=   0   'False
      GridLines       =   2
      AllowUserResizing=   3
   End
   Begin VB.Frame Frame2 
      Height          =   450
      Left            =   1860
      TabIndex        =   5
      Top             =   2730
      Width           =   2430
      Begin VB.Label lblStartColor 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   1  'Fixed Single
         Height          =   270
         Left            =   645
         TabIndex        =   13
         Top             =   135
         Width           =   495
      End
      Begin VB.Label Label7 
         Alignment       =   2  'Center
         Caption         =   "终止色"
         Height          =   225
         Left            =   1155
         TabIndex        =   12
         Tag             =   "3249"
         Top             =   180
         Width           =   645
      End
      Begin VB.Label lblEndColor 
         BackColor       =   &H0000FF00&
         BorderStyle     =   1  'Fixed Single
         Height          =   270
         Left            =   1800
         TabIndex        =   11
         Top             =   135
         Width           =   495
      End
      Begin VB.Label Label5 
         Alignment       =   2  'Center
         Caption         =   "起始色"
         Height          =   225
         Left            =   90
         TabIndex        =   14
         Tag             =   "3248"
         Top             =   180
         Width           =   555
      End
   End
   Begin VB.ComboBox cmbCount 
      Height          =   315
      Left            =   5085
      TabIndex        =   2
      Text            =   "10"
      Top             =   225
      Width           =   1155
   End
   Begin VB.ComboBox cmbPrecision 
      Height          =   315
      Left            =   5100
      Style           =   2  'Dropdown List
      TabIndex        =   3
      Top             =   645
      Width           =   1140
   End
   Begin VB.ComboBox cmbCarveUp 
      Height          =   315
      ItemData        =   "frmThemeWizard1_R.frx":0000
      Left            =   2775
      List            =   "frmThemeWizard1_R.frx":0002
      Style           =   2  'Dropdown List
      TabIndex        =   1
      Top             =   645
      Width           =   1170
   End
   Begin VB.ComboBox cmbFieldName 
      Height          =   315
      Left            =   2775
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   225
      Width           =   1185
   End
   Begin MSComDlg.CommonDialog cdlColor 
      Left            =   1020
      Top             =   3390
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   3090
      Left            =   90
      Picture         =   "frmThemeWizard1_R.frx":0004
      Top             =   150
      Width           =   1695
   End
   Begin VB.Line Line2 
      BorderColor     =   &H80000003&
      X1              =   0
      X2              =   6800
      Y1              =   3330
      Y2              =   3330
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000005&
      X1              =   0
      X2              =   6800
      Y1              =   3345
      Y2              =   3345
   End
   Begin VB.Label Label4 
      Caption         =   "取舍精度"
      Height          =   225
      Left            =   4125
      TabIndex        =   9
      Tag             =   "3247"
      Top             =   705
      Width           =   870
   End
   Begin VB.Label Label3 
      Caption         =   "分段数量"
      Height          =   225
      Left            =   4095
      TabIndex        =   8
      Tag             =   "3245"
      Top             =   300
      Width           =   870
   End
   Begin VB.Label Label2 
      Caption         =   "分段方式"
      Height          =   240
      Left            =   1905
      TabIndex        =   7
      Tag             =   "3246"
      Top             =   675
      Width           =   870
   End
   Begin VB.Label Label1 
      Caption         =   "字段名称"
      Height          =   225
      Left            =   1905
      TabIndex        =   6
      Tag             =   "3244"
      Top             =   300
      Width           =   870
   End
End
Attribute VB_Name = "frmThemeWizard1_R"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'说 明：用来创建范围分段专题图
Option Explicit

Private Sub btnBack_Click()
      Unload Me
      frmTheme1.Show
End Sub

Private Sub btnCancel_Click()
      Unload Me
      Unload frmTheme1
End Sub

Private Sub btnOK_Click()
      '赋分段的分界值
      Dim objLayer As soLayer
      Dim objThemeR As soThemeRange
      Dim nBreakCount As Integer
      Dim i As Integer
      Dim nDtType As seDatasetType
      
      Set objLayer = frmMain.SuperMap1.Layers.Item(frmTheme1.cmbLayerName.Text)
      If objLayer Is Nothing Then Exit Sub
      nDtType = objLayer.Dataset.Type
      
      Set objThemeR = objLayer.ThemeRange
      If MSFlexGrid1.Rows < 3 Then Exit Sub
      
      nBreakCount = cmbCount.Text
      objThemeR.BreakCount = nBreakCount
      objThemeR.Field = cmbFieldName.Text
      
      Select Case cmbCarveUp.ListIndex
            Case 0 '等距
                  objThemeR.Make scrConstant, nBreakCount
            Case 1 '等计数
                  objThemeR.Make scrEqualCount, nBreakCount
            Case 2 '对数
                  objThemeR.Make scrLog, nBreakCount