frmmain.frm

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

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{03ED3B1E-ED1B-4A2E-8FE3-D8D1A673F5D4}#5.2#0"; "SuperMap.ocx"
Begin VB.Form frmMain 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "创建专题图示范"
   ClientHeight    =   6555
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9345
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6555
   ScaleWidth      =   9345
   StartUpPosition =   2  'CenterScreen
   Begin SuperMapLib.SuperWorkspace SuperWorkspace1 
      Left            =   2100
      Top             =   3525
      _Version        =   327682
      _ExtentX        =   847
      _ExtentY        =   847
      _StockProps     =   0
   End
   Begin SuperMapLib.SuperMap SuperMap1 
      Height          =   6015
      Left            =   60
      TabIndex        =   8
      Top             =   450
      Width           =   9210
      _Version        =   327682
      _ExtentX        =   16245
      _ExtentY        =   10610
      _StockProps     =   160
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   4005
      Top             =   3045
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CommandButton btnViewEntire 
      Caption         =   "全幅显示"
      Height          =   375
      Left            =   5820
      TabIndex        =   7
      Top             =   30
      Width           =   1155
   End
   Begin VB.CommandButton btnZoomFree 
      Caption         =   "自由缩放"
      Height          =   375
      Left            =   4665
      TabIndex        =   6
      Top             =   30
      Width           =   1155
   End
   Begin VB.CommandButton btnZoomOut 
      Caption         =   "缩小"
      Height          =   375
      Left            =   3510
      TabIndex        =   5
      Top             =   30
      Width           =   1155
   End
   Begin VB.CommandButton btnZoomIn 
      Caption         =   "放大"
      Height          =   375
      Left            =   2355
      TabIndex        =   4
      Top             =   30
      Width           =   1155
   End
   Begin VB.CommandButton btnPan 
      Caption         =   "漫游"
      Height          =   375
      Left            =   1200
      TabIndex        =   3
      Top             =   30
      Width           =   1155
   End
   Begin VB.CommandButton btnSelect 
      Caption         =   "选择"
      Height          =   375
      Left            =   45
      TabIndex        =   2
      Top             =   30
      Width           =   1155
   End
   Begin VB.CommandButton btnCreateTheme 
      Caption         =   "创建专题图"
      Height          =   375
      Left            =   6975
      TabIndex        =   1
      Top             =   30
      Width           =   1155
   End
   Begin VB.CommandButton btnClose 
      Caption         =   "关闭"
      Height          =   375
      Left            =   8130
      TabIndex        =   0
      Top             =   30
      Width           =   1155
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'=====================================SuperMap Objects示范工程说明=======================================
'
'功能简介：示范如何自己编写代码来制作专题图
'所用控件：Supermap控件和SuperWorkspace控件
'所用数据：..\Data\world下的World.sdb和World.sdd两个文件中的一部分
'操作说明：
'         1、使用"选择"、"漫游"、"放大"、"缩小"、"自由缩放"、"全幅显示"按钮可以对地图进行基本操作。
'         2、点击"创建专题图"按钮，你就可以在专题地图向导的指导下，创建自己想要的专题图。
'         3、注意:用图例控件还可以不写一句代码来制作专题图，但你不能控制。用此方法来制作专题图，
'                 完全可以由你来控制。
'
'===================================SuperMap Objects示范工程说明结束=====================================
Option Explicit

Private Sub btnClose_Click()
      Unload Me
End Sub

Private Sub btnSelect_Click()
    SuperMap1.Action = scaSelect     '选择
End Sub

Private Sub btnPan_Click()
      SuperMap1.Action = scaPan      '漫游
End Sub

Private Sub btnZoomIn_Click()
      SuperMap1.Action = scaZoomIn   '放大
End Sub

Private Sub btnZoomOut_Click()
      SuperMap1.Action = scaZoomOut  '缩小
End Sub

Private Sub btnZoomFree_Click()
      SuperMap1.Action = scaZoomFree '自由缩放
End Sub

Private Sub btnViewEntire_Click()
      SuperMap1.ViewEntire           '全幅显示
End Sub

Private Sub btnCreateTheme_Click()
     frmTheme1.Show vbModal          '显示专题地图制作向导
End Sub

Private Sub Form_Load()
      SuperMap1.Connect SuperWorkspace1.Object
      
      Dim strAlias As String                '数据源别名
      Dim nEngineType As seEngineType       '数据引擎类型
      Dim strDataSourceName As String       '数据源绝对路径名
      Dim objDataSource As soDataSource     '数据源对象,指向打开的数据源
      Dim bReadOnly As Boolean              '数据源里的数据是否只读
      Dim bAddToHead As Boolean             '是否加到最上面
      Dim i As Integer                      '循环变量
      
      strAlias = "World"
      nEngineType = sceSDBPlus                  'SuperMap支持多种类型，此处为SDB类型
      strDataSourceName = App.Path & "\..\data\world\world.sdb"
      bReadOnly = True
      
      '打开数据源
      Set objDataSource = SuperWorkspace1.OpenDataSource(strDataSourceName, strAlias, nEngineType, bReadOnly)
      If objDataSource Is Nothing Then
            MsgBox "打开数据源失败！", vbInformation
      Else
            bAddToHead = True
            '把数据源中的所有图层加入到SuperMap中
            SuperMap1.Layers.AddDataset objDataSource.Datasets.Item("grid"), bAddToHead
            SuperMap1.Layers.AddDataset objDataSource.Datasets.Item("World"), bAddToHead
      End If
      '刷新地图窗口
      SuperMap1.Refresh
      '释放内存
      Set objDataSource = Nothing
End Sub

Private Sub Form_Unload(Cancel As Integer)
      SuperMap1.Disconnect
      SuperMap1.Close
      SuperWorkspace1.Close
End Sub