?? selectedform.frm
字號:
VERSION 5.00
Begin VB.Form SelectedForm
Caption = "Selection"
ClientHeight = 4620
ClientLeft = 45
ClientTop = 330
ClientWidth = 3750
LinkTopic = "Form3"
ScaleHeight = 4620
ScaleWidth = 3750
StartUpPosition = 3 'Windows Default
Begin VB.ComboBox cboIDs
Height = 288
Left = 120
TabIndex = 1
Text = "Combo1"
Top = 1320
Width = 3012
End
Begin VB.ListBox fieldList
Height = 1815
Left = 120
Sorted = -1 'True
TabIndex = 0
Top = 2400
Width = 3012
End
Begin VB.Label Numfound
Caption = "Numfound"
Height = 252
Left = 120
TabIndex = 4
Top = 240
Width = 1932
End
Begin VB.Label featurePrompt
Caption = "Current Feature ID:"
Height = 372
Left = 120
TabIndex = 3
Top = 840
Width = 3012
End
Begin VB.Label ftypeLabel
Caption = "ftypeLabel"
Height = 372
Left = 120
TabIndex = 2
Top = 1920
Width = 3012
End
End
Attribute VB_Name = "SelectedForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cboIDs_Click()
Dim curfield As MapObjects2.Field
Dim i As Integer
If SelectedFormUp Then
Exit Sub
End If
gSelection.MoveFirst
fieldList.Clear
For i = 1 To cboIDs.ListIndex
gSelection.MoveNext
Next i
For Each curfield In gSelection.Fields
If curfield.Type = moString Then
fieldList.AddItem curfield.Name + " = " + curfield.Value
Else
fieldList.AddItem curfield.Name + " = " + curfield.ValueAsString
End If
Next curfield
Form1.Map1.FlashShape gSelection("shape").Value, 3
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set gSelection = ActiveLayer.SearchExpression("featureId = -1")
Form1.Map1.Refresh
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -