📄 frmoptions.frm
字号:
GridLinesFixed = 1
SelectionMode = 1
AllowUserResizing= 3
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.Frame Frame5
Caption = "Format"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1080
Left = 293
TabIndex = 14
Top = 2161
Width = 4125
Begin VB.ComboBox cmbDebugColors
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
ItemData = "frmOptions.frx":2002
Left = 330
List = "frmOptions.frx":201B
Style = 2 'Dropdown List
TabIndex = 15
Top = 420
Width = 2790
End
Begin VB.Label lblDebugColor
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 390
Left = 3405
TabIndex = 16
Top = 375
Width = 390
End
End
Begin VB.Frame Frame4
Caption = "Font"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1410
Left = 293
TabIndex = 9
Top = 580
Width = 4125
Begin VB.ComboBox cmbDebugFonts
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
ItemData = "frmOptions.frx":20BC
Left = 1005
List = "frmOptions.frx":20D2
Sorted = -1 'True
Style = 2 'Dropdown List
TabIndex = 11
Top = 375
Width = 2790
End
Begin VB.ComboBox cmbDebugFontSize
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
ItemData = "frmOptions.frx":2115
Left = 1005
List = "frmOptions.frx":2117
Style = 2 'Dropdown List
TabIndex = 10
Top = 878
Width = 825
End
Begin VB.Label Label5
Caption = "Font:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 330
TabIndex = 13
Top = 420
Width = 1320
End
Begin VB.Label Label4
Caption = "Size:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 330
TabIndex = 12
Top = 930
Width = 675
End
End
Begin VB.Frame Frame3
Caption = "Sample"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1380
Left = -74707
TabIndex = 7
Top = 3412
Width = 4125
Begin RichTextLib.RichTextBox richSample
Height = 840
Left = 330
TabIndex = 8
Top = 330
Width = 3465
_ExtentX = 6112
_ExtentY = 1482
_Version = 393217
BorderStyle = 0
ReadOnly = -1 'True
ScrollBars = 3
TextRTF = $"frmOptions.frx":2119
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.Frame Frame2
Caption = "Coding Colours"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1080
Left = -74707
TabIndex = 4
Top = 2161
Width = 4125
Begin VB.ComboBox cmbEditorColours
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
ItemData = "frmOptions.frx":219B
Left = 330
List = "frmOptions.frx":21AB
Sorted = -1 'True
Style = 2 'Dropdown List
TabIndex = 5
Top = 420
Width = 2790
End
Begin VB.Label lblEditorColor
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 390
Left = 3405
TabIndex = 6
Top = 375
Width = 390
End
End
Begin VB.Frame Frame1
Caption = "Font"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1410
Left = -74707
TabIndex = 1
Top = 580
Width = 4125
Begin VB.ComboBox cmbEditorFonts
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
ItemData = "frmOptions.frx":21DB
Left = 1005
List = "frmOptions.frx":21F1
Sorted = -1 'True
Style = 2 'Dropdown List
TabIndex = 37
Top = 375
Width = 2790
End
Begin VB.CheckBox chkEditorFontBold
Caption = "Bold"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 2265
TabIndex = 32
Top = 930
Width = 1305
End
Begin VB.ComboBox cmbEditorFontSize
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
ItemData = "frmOptions.frx":2234
Left = 1005
List = "frmOptions.frx":2236
Style = 2 'Dropdown List
TabIndex = 3
Top = 878
Width = 825
End
Begin VB.Label Label1
Caption = "Font:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 330
TabIndex = 38
Top = 420
Width = 510
End
Begin VB.Label Label2
Caption = "Size:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 330
TabIndex = 2
Top = 930
Width = 510
End
End
End
Begin VB.Image Image2
Height = 7125
Left = 0
Picture = "frmOptions.frx":2238
Top = 0
Width = 1980
End
End
Attribute VB_Name = "frmOptions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Type Colours
EditorCharacterColor As Long
EditorIntegerColor As Long
EditorCommentsColor As Long
EditorBackgroundColor As Long
DebugBreakPointColor As Long
DebugBreakPointTextColor As Long
DebugExecutionPointColor As Long
DebugExecutionPointTextColor As Long
DebugNormalTextColor As Long
DebugNormalBackColor As Long
WPColor As Long
wpBackColor As Long
SimEffectColor As Long
End Type
Dim TempColors As Colours
Private Sub TempColorSettings()
TempColors.EditorCharacterColor = Editor.CharacterColor
TempColors.EditorCommentsColor = Editor.CommentsColor
TempColors.EditorIntegerColor = Editor.IntegerColor
TempColors.EditorBackgroundColor = Editor.BackgroundColor
TempColors.DebugBreakPointColor = Debuger.BreakPointColor
TempColors.DebugBreakPointTextColor = Debuger.BreakPointTextColor
TempColors.DebugExecutionPointColor = Debuger.ExecutionColor
TempColors.DebugExecutionPointTextColor = Debuger.ExecutionTextColor
TempColors.DebugNormalTextColor = Debuger.NormalTextColor
TempColors.DebugNormalBackColor = Debuger.NormalBackColor
End Sub
Private Sub chkShowGrid_Click()
If chkShowGrid.Value Then
DebugSample.GridLines = flexGridFlat
Else
DebugSample.GridLines = flexGridNone
End If
End Sub
Private Sub chkShowLineNumber_Click()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -