数据源打开、添加图层代码.frm

用于在supermap下的地图显示功能,是gis专业的二次开发首要做的

VERSION 5.00
Object = "{A61255F7-0A20-431C-86CE-78C14314BE9E}#5.3#0"; "SuperWkspManager.ocx"
Object = "{03ED3B1E-ED1B-4A2E-8FE3-D8D1A673F5D4}#5.3#0"; "SuperMap.ocx"
Begin VB.Form 示例程序 
   Caption         =   "Form1"
   ClientHeight    =   7665
   ClientLeft      =   60
   ClientTop       =   435
   ClientWidth     =   10545
   LinkTopic       =   "Form1"
   ScaleHeight     =   7665
   ScaleWidth      =   10545
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "打开数据源"
      Height          =   615
      Left            =   480
      TabIndex        =   2
      Top             =   360
      Width           =   2055
   End
   Begin SuperMapLib.SuperWorkspace SuperWorkspace1 
      Left            =   720
      Top             =   2760
      _Version        =   327683
      _ExtentX        =   847
      _ExtentY        =   847
      _StockProps     =   0
   End
   Begin SuperWkspManagerLib.SuperWkspManager SuperWkspManager1 
      Height          =   5775
      Left            =   0
      TabIndex        =   1
      Top             =   1080
      Width           =   3255
      _Version        =   327683
      _ExtentX        =   5741
      _ExtentY        =   10186
      _StockProps     =   0
   End
   Begin SuperMapLib.SuperMap SuperMap1 
      Height          =   5775
      Left            =   3240
      TabIndex        =   0
      Top             =   1080
      Width           =   7095
      _Version        =   327683
      _ExtentX        =   12515
      _ExtentY        =   10186
      _StockProps     =   160
   End
End
Attribute VB_Name = "示例程序"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
SuperWorkspace1.Open "G:\data\World.smw"
SuperWkspManager1.Refresh
End Sub

Private Sub Form_Load()
SuperWkspManager1.Connect SuperWorkspace1.object
SuperMap1.Connect SuperWorkspace1.object
End Sub

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

Private Sub SuperWkspManager1_LDbClick(ByVal nFlag As SuperMapLib.seSelectedItemFlag, ByVal strSelected As String, ByVal strParent As String)
Dim objlayers As soLayers
Dim objdataset As soDataset

If nFlag = scsDataset Then
    Set objlayers = SuperMap1.Layers
    Set objdataset = SuperWorkspace1.Datasources(strParent).Datasets(strSelected)
    objlayers.AddDataset objdataset, False
    SuperMap1.Refresh
End If

If nFlag = scsMap Then
    SuperMap1.OpenMap "World"
    SuperMap1.Refresh
End If


End Sub