📄 frmcifa.frm
字号:
VERSION 5.00
Begin VB.Form frmCiFa
BackColor = &H00C0E0FF&
Caption = "词法分析"
ClientHeight = 6555
ClientLeft = 75
ClientTop = 645
ClientWidth = 8880
FillColor = &H008080FF&
LinkTopic = "Form1"
ScaleHeight = 6555
ScaleWidth = 8880
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin VB.Timer Timer1
Interval = 100
Left = 2520
Top = 120
End
Begin VB.ListBox lstToken
BackColor = &H000080FF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4140
ItemData = "frmCiFa.frx":0000
Left = 360
List = "frmCiFa.frx":0002
TabIndex = 71
Top = 3960
Width = 2055
End
Begin VB.TextBox Source
BackColor = &H80000001&
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3015
Left = 360
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 0
Text = "frmCiFa.frx":0004
Top = 360
Width = 2055
End
Begin VB.TextBox txtCurrentStr
BackColor = &H00808000&
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5640
TabIndex = 25
Top = 480
Width = 2655
End
Begin VB.ListBox lstKeyWord
BackColor = &H0080FF80&
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1260
ItemData = "frmCiFa.frx":0078
Left = 9120
List = "frmCiFa.frx":007A
TabIndex = 23
Top = 120
Width = 2415
End
Begin VB.HScrollBar HScroll1
Height = 255
LargeChange = 6
Left = 3120
Max = 2000
SmallChange = 3
TabIndex = 6
Top = 7920
Width = 2535
End
Begin VB.CommandButton comCiFaBegin
BackColor = &H000000FF&
Caption = "开始"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3120
Style = 1 'Graphical
TabIndex = 2
Top = 0
Width = 975
End
Begin VB.Label Label5
BackColor = &H0080C0FF&
BorderStyle = 1 'Fixed Single
Caption = "保留字"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1335
Left = 8760
TabIndex = 72
Top = 120
Width = 375
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H0080C0FF&
BorderStyle = 1 'Fixed Single
Caption = "词法分析输出："
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 1
Left = 240
TabIndex = 70
Top = 3600
Width = 2175
End
Begin VB.Line Line53
X1 = 4800
X2 = 3600
Y1 = 600
Y2 = 600
End
Begin VB.Label Label3
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "A"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 405
Index = 3
Left = 4800
TabIndex = 69
Top = 480
Width = 660
End
Begin VB.Label Label3
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "A"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 345
Index = 2
Left = 11040
TabIndex = 68
Top = 7920
Width = 600
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "慢"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 1
Left = 5760
TabIndex = 67
Top = 7920
Width = 315
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "快"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 0
Left = 2760
TabIndex = 66
Top = 7920
Width = 315
End
Begin VB.Label Label
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFC0&
BorderStyle = 1 'Fixed Single
Caption = "读字符"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 0
Left = 3240
TabIndex = 65
Top = 120
Width = 765
End
Begin VB.Line Line52
X1 = 3600
X2 = 11400
Y1 = 7680
Y2 = 7680
End
Begin VB.Line Line51
X1 = 3600
X2 = 3600
Y1 = 7200
Y2 = 7680
End
Begin VB.Label Label
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFC0&
BorderStyle = 1 'Fixed Single
Caption = "非法符号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 28
Left = 3180
TabIndex = 64
Top = 7080
Width = 1005
End
Begin VB.Line Line50
X1 = 3600
X2 = 3600
Y1 = 6000
Y2 = 7200
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "Y"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 23
Left = 7200
TabIndex = 63
Top = 5280
Width = 135
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "Y"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 22
Left = 9480
TabIndex = 62
Top = 6480
Width = 135
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "N"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 21
Left = 8880
TabIndex = 61
Top = 6960
Width = 135
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "N"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 20
Left = 6600
TabIndex = 60
Top = 6240
Width = 135
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "N"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 19
Left = 7080
TabIndex = 59
Top = 5760
Width = 135
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "Y"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -