📄 form1.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 7440
ClientLeft = 60
ClientTop = 345
ClientWidth = 10755
LinkTopic = "Form1"
ScaleHeight = 7440
ScaleWidth = 10755
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame2
Height = 135
Left = 0
TabIndex = 61
Top = 6120
Width = 10815
End
Begin VB.CommandButton CommandStartPlayDuan
Caption = " 开始 播放表"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 6000
TabIndex = 60
Top = 6480
Width = 1095
End
Begin VB.Frame FrameDuan
Caption = "多段"
Height = 855
Left = 120
TabIndex = 55
Top = 4200
Width = 5295
Begin MSComCtl2.UpDown UpDownDuanNo
Height = 390
Left = 2341
TabIndex = 59
Top = 240
Width = 315
_ExtentX = 556
_ExtentY = 688
_Version = 393216
AutoBuddy = -1 'True
BuddyControl = "TextDuanNo"
BuddyDispid = 196612
OrigLeft = 2160
OrigTop = 240
OrigRight = 2475
OrigBottom = 615
Max = 63
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.TextBox TextDuanNo
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
Height = 390
Left = 1680
TabIndex = 58
Top = 240
Width = 660
End
Begin VB.CheckBox CheckDuan
Caption = "是否多段"
Height = 255
Left = 120
TabIndex = 56
Top = 360
Width = 1095
End
Begin VB.Label LabelDuanNo
Caption = "段号"
Height = 255
Left = 1320
TabIndex = 57
Top = 360
Width = 375
End
End
Begin MSComCtl2.UpDown UpDownDelay
Height = 375
Left = 2820
TabIndex = 53
Top = 360
Width = 315
_ExtentX = 556
_ExtentY = 661
_Version = 393216
AutoBuddy = -1 'True
BuddyControl = "TextDelay"
BuddyDispid = 196615
OrigLeft = 5040
OrigTop = 4320
OrigRight = 5355
OrigBottom = 4695
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.TextBox TextDelay
Height = 375
Left = 2040
TabIndex = 52
Top = 360
Width = 780
End
Begin VB.ComboBox ComboDateType
Height = 300
ItemData = "Form1.frx":0000
Left = 2040
List = "Form1.frx":0016
TabIndex = 51
Text = "Combo1"
Top = 360
Width = 3495
End
Begin VB.TextBox TextText
Height = 375
Left = 2040
TabIndex = 49
Top = 360
Width = 3375
End
Begin VB.TextBox TextRet
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 960
TabIndex = 48
Top = 5280
Width = 855
End
Begin VB.CommandButton ButtonDown
Caption = "下移"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 9840
TabIndex = 46
Top = 5400
Width = 855
End
Begin VB.CommandButton ButtonUp
Caption = "上移"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 8520
TabIndex = 45
Top = 5400
Width = 975
End
Begin VB.CommandButton ButtonExit
Caption = "关闭"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 1320
TabIndex = 44
Top = 6480
Width = 1935
End
Begin VB.CommandButton ButtonDelete
Caption = "删除"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6960
TabIndex = 43
Top = 5400
Width = 1095
End
Begin VB.CommandButton ButtonAdd
Caption = "加入"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5520
TabIndex = 42
Top = 5400
Width = 1095
End
Begin VB.ComboBox ComboMode
Height = 300
ItemData = "Form1.frx":006A
Left = 2880
List = "Form1.frx":00A4
TabIndex = 41
Text = "Combo1"
Top = 3720
Width = 2535
End
Begin VB.Frame FrameFontStyle
Caption = "字体风格"
Height = 2775
Left = 3240
TabIndex = 25
Top = 840
Width = 2175
Begin VB.ComboBox ComboFormat
Height = 300
ItemData = "Form1.frx":0185
Left = 600
List = "Form1.frx":01A4
TabIndex = 38
Text = "Combo1"
Top = 2160
Width = 1455
End
Begin MSComCtl2.UpDown UpDownZoom
Height = 270
Left = 1560
TabIndex = 37
Top = 1680
Width = 315
_ExtentX = 556
_ExtentY = 476
_Version = 393216
AutoBuddy = -1 'True
BuddyControl = "TextZoom"
BuddyDispid = 196627
OrigLeft = 1560
OrigTop = 1560
OrigRight = 1875
OrigBottom = 1815
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.TextBox TextZoom
Enabled = 0 'False
Height = 270
Left = 840
TabIndex = 36
Top = 1680
Width = 660
End
Begin MSComCtl2.UpDown UpDownSpace
Height = 270
Left = 1560
TabIndex = 34
Top = 1200
Width = 315
_ExtentX = 556
_ExtentY = 476
_Version = 393216
AutoBuddy = -1 'True
BuddyControl = "TextSpace"
BuddyDispid = 196628
OrigLeft = 1440
OrigTop = 1200
OrigRight = 1755
OrigBottom = 1455
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.TextBox TextSpace
Enabled = 0 'False
Height = 270
Left = 840
TabIndex = 33
Top = 1200
Width = 660
End
Begin VB.CheckBox CheckReverse
Caption = "反白"
Height = 255
Left = 1200
TabIndex = 31
Top = 720
Width = 735
End
Begin VB.CheckBox CheckDoubleLines
Caption = "双线体"
Height = 255
Left = 120
TabIndex = 30
Top = 720
Width = 855
End
Begin VB.OptionButton OptionFore4
Caption = "橙"
Height = 180
Left = 1560
TabIndex = 29
Top = 360
Width = 495
End
Begin VB.OptionButton OptionFore3
Caption = "绿"
Height = 180
Left = 1080
TabIndex = 28
Top = 360
Width = 495
End
Begin VB.OptionButton OptionFore2
Caption = "红"
Height = 180
Left = 600
TabIndex = 27
Top = 360
Width = 495
End
Begin VB.OptionButton OptionFore1
Caption = "黑"
Height = 180
Left = 120
TabIndex = 26
Top = 360
Width = 495
End
Begin VB.Label LabelFormat
Caption = "对齐方式"
Height = 375
Left = 120
TabIndex = 39
Top = 2160
Width = 495
End
Begin VB.Label LabelZoom
Caption = "水平放大"
Height = 255
Left = 120
TabIndex = 35
Top = 1680
Width = 735
End
Begin VB.Label Label1
Caption = "字间距"
Height = 255
Left = 120
TabIndex = 32
Top = 1200
Width = 615
End
End
Begin MSComCtl2.UpDown UpDownVelocity
Height = 375
Left = 1560
TabIndex = 24
Top = 3720
Width = 315
_ExtentX = 556
_ExtentY = 661
_Version = 393216
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -