frmselectlayer.frm

FloodEvaluation-程序是gis方面的程序

VERSION 5.00
Begin VB.Form frmSelectLayer 
   BackColor       =   &H80000016&
   Caption         =   "选择图层"
   ClientHeight    =   1395
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3120
   Icon            =   "frmSelectLayer.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   1395
   ScaleWidth      =   3120
   StartUpPosition =   3  'Windows Default
   Begin VB.ComboBox ComboList 
      Height          =   315
      Left            =   240
      TabIndex        =   2
      Top             =   480
      Width           =   2535
   End
   Begin VB.CommandButton OK 
      Caption         =   "确 定"
      Height          =   375
      Left            =   480
      TabIndex        =   1
      Top             =   960
      Width           =   735
   End
   Begin VB.CommandButton Cancel 
      Caption         =   "退 出"
      Height          =   375
      Left            =   1800
      TabIndex        =   0
      Top             =   960
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "请从下拉框中选择所需图层："
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   120
      Width           =   2415
   End
End
Attribute VB_Name = "frmSelectLayer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public pMap As IMap
Public selLayerStr As String

Private Sub Cancel_Click()
    selLayerStr = ""
    Unload Me
End Sub

Private Sub form_load()
  
    If pMap Is Nothing Then
       MsgBox "图层列表初始化出错！"
       OK.Enabled = False
       Exit Sub
    End If
    
    Dim intCount As Integer
    For intCount = 0 To pMap.LayerCount - 1
       ComboList.AddItem pMap.Layer(intCount).name
    Next
    
    If pMap.LayerCount > 0 Then ComboList.Text = pMap.Layer(0).name
    
    selLayerStr = ""
  
End Sub

Private Sub OK_Click()
    selLayerStr = ComboList.Text
'    If frmSelectLayer.selLayerStr = "" Then
'        MsgBox "Failed to select layer!"
'        Exit Sub
'    Else
'        MsgBox "OK to layer" & frmSelectLayer.selLayerStr
'    End If
'
'    Set frmTableFields.pMap = pMap
'    frmTableFields.selLayerStr = frmSelectLayer.selLayerStr
'    frmTableFields.Show
    Unload Me
End Sub