?? frmedittheme.frm
字號:
VERSION 5.00
Begin VB.Form frmEditTheme
Caption = "編輯專題地圖"
ClientHeight = 4320
ClientLeft = 60
ClientTop = 450
ClientWidth = 3495
LinkTopic = "Form1"
ScaleHeight = 4320
ScaleWidth = 3495
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton cmdCancel
Caption = "取消"
Height = 450
Left = 1920
TabIndex = 2
Top = 3650
Width = 1215
End
Begin VB.CommandButton cmdOK
Caption = "確定"
Height = 450
Left = 240
TabIndex = 1
Top = 3650
Width = 1215
End
Begin VB.ListBox lstThemes
Height = 3120
Left = 480
TabIndex = 0
Top = 360
Width = 2415
End
End
Attribute VB_Name = "frmEditTheme"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim A(100, 2)
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdok_Click()
Dim DS As MapXLib.DataSet
Dim TM As MapXLib.Theme
For i = 1 To lstThemes.ListCount
If A(i, 2) = lstThemes.ListIndex + 1 Then
II = i
End If
Next
If ModiLegend = False Then
If Trim(Me.lstThemes.Text) <> "" Then
Set DS = frmMain.MapDisp.DataSets(frmMain.lstLayers.List(frmMain.lstLayers.ListIndex))
Set TM = DS.Themes.Item(Me.lstThemes.Text)
TM.ThemeDlg
Else
MsgBox "請先選擇專題集.", vbInformation
End If
Else
If Trim(Me.lstThemes.Text) <> "" Then
Set DS = frmMain.MapDisp.DataSets(frmMain.lstLayers.List(frmMain.lstLayers.ListIndex))
Set TM = DS.Themes.Item(Me.lstThemes.Text)
TM.Legend.LegendDlg
Else
MsgBox "請先選擇專題集.", vbInformation
End If
End If
Set DS = Nothing
Set TM = Nothing
End Sub
Private Sub Form_Load()
Dim DS As DataSet
Dim i As Integer, J As Integer
II = 1
For i = 1 To frmMain.MapDisp.Layers.Count
Set DS = frmMain.MapDisp.DataSets(i)
For J = 1 To DS.Themes.Count
Me.lstThemes.AddItem DS.Themes(J).Name
A(II, 1) = i
A(II, 2) = lstThemes.ListCount
II = II + 1
Next
Next
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -