?? frmsymbol.frm
字號:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmSymbol
ClientHeight = 4164
ClientLeft = 60
ClientTop = 348
ClientWidth = 6120
LinkTopic = "Form3"
ScaleHeight = 4164
ScaleWidth = 6120
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdOK
Caption = "OK"
Height = 375
Left = 2160
TabIndex = 1
Top = 3120
Width = 1215
End
Begin VB.PictureBox pctColor
Height = 375
Left = 3240
ScaleHeight = 324
ScaleWidth = 684
TabIndex = 4
Top = 600
Width = 735
End
Begin VB.ComboBox cboStyle
Height = 315
Left = 3240
TabIndex = 3
Text = "Combo1"
Top = 2160
Width = 2055
End
Begin VB.TextBox txtSize
Height = 375
Left = 3240
TabIndex = 2
Text = "Text1"
Top = 1380
Width = 735
End
Begin VB.CommandButton cmdCancel
Caption = "Cancel"
Height = 375
Left = 4440
TabIndex = 0
Top = 3120
Width = 1215
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 480
Top = 3120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Label lblFeature
Height = 375
Left = 2520
TabIndex = 9
Top = 120
Width = 2175
End
Begin VB.Label Label4
Caption = "Feature:"
Height = 375
Left = 960
TabIndex = 8
Top = 120
Width = 1095
End
Begin VB.Label Label1
Caption = "Color"
Height = 375
Left = 1560
TabIndex = 7
Top = 600
Width = 735
End
Begin VB.Label Label2
Caption = "Size"
Height = 375
Left = 1560
TabIndex = 6
Top = 1380
Width = 735
End
Begin VB.Label Label3
Caption = "Style"
Height = 375
Left = 1560
TabIndex = 5
Top = 2160
Width = 735
End
End
Attribute VB_Name = "frmSymbol"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdCancel_Click()
bolChanged = False
Unload Me
End Sub
Private Sub cmdOK_Click()
With frmDrawProps.tempSymbol
.Color = pctColor.BackColor
.Style = cboStyle.ListIndex
.Size = txtSize
End With
bolChanged = True
Unload Me
End Sub
Private Sub Form_Load()
With drawLayer
pctColor.BackColor = frmDrawProps.tempSymbol.Color
lblFeature = frmDrawProps.curFeatureName
txtSize = frmDrawProps.tempSymbol.Size
cboStyle.Clear
Select Case .shapeType
Case moPoint
cboStyle.AddItem "Circle"
cboStyle.AddItem "Square"
cboStyle.AddItem "Triangle"
cboStyle.AddItem "Cross"
Case moLine
cboStyle.AddItem "Solid Line"
cboStyle.AddItem "Dash Line"
cboStyle.AddItem "Dot Line"
cboStyle.AddItem "Dash Dot"
cboStyle.AddItem "Dash Dot Dot"
Case moPolygon
Label2.Visible = False
txtSize.Visible = False
cboStyle.AddItem "Solid Fill"
cboStyle.AddItem "Transparent"
cboStyle.AddItem "Horizontal"
cboStyle.AddItem "Vertical"
cboStyle.AddItem "Upward Diagonal"
cboStyle.AddItem "Downward Diagonal"
cboStyle.AddItem "Cross"
cboStyle.AddItem "Diagonal Cross"
End Select
cboStyle.ListIndex = frmDrawProps.tempSymbol.Style
End With
End Sub
Private Sub pctColor_Click()
Dim curcolor As Long
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.ShowColor
curcolor = CommonDialog1.Color
pctColor.BackColor = curcolor
Exit Sub
ErrHandler:
'do nothing, just exit
Exit Sub
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -