📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form_IO
AutoRedraw = -1 'True
BorderStyle = 1 'Fixed Single
Caption = "Form1"
ClientHeight = 6150
ClientLeft = 45
ClientTop = 330
ClientWidth = 6285
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 410
ScaleMode = 3 'Pixel
ScaleWidth = 419
StartUpPosition = 3 'Windows Default
Begin VB.PictureBox Picture_Test
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 1500
Left = 3960
ScaleHeight = 98
ScaleMode = 3 'Pixel
ScaleWidth = 98
TabIndex = 5
Top = 840
Width = 1500
End
Begin VB.TextBox txt_Test
BeginProperty Font
Name = "MS Sans Serif"
Size = 29.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 765
Left = 5280
MaxLength = 1
TabIndex = 3
Text = "测"
Top = 60
Width = 705
End
Begin VB.CommandButton Command_Start
Caption = "开始生成"
Height = 495
Left = 0
TabIndex = 14
Top = 5640
Width = 3135
End
Begin VB.CommandButton Command_CpL
Caption = "预计每行字数"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 0
TabIndex = 44
Top = 5280
Width = 3135
End
Begin VB.CheckBox Check_Preview
Caption = "每完成一页都预览"
Height = 300
Left = 3240
TabIndex = 43
Top = 4920
Value = 1 'Checked
Width = 2895
End
Begin VB.FileListBox File_Style
Height = 390
Left = 3600
TabIndex = 42
Top = 2400
Visible = 0 'False
Width = 1335
End
Begin VB.CommandButton Command_Del
Caption = "删除"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4800
TabIndex = 41
Top = 5760
Width = 1455
End
Begin VB.VScrollBar VScroll_C
Height = 255
Index = 2
Left = 4440
Max = 0
Min = 120
SmallChange = 10
TabIndex = 36
Top = 600
Width = 255
End
Begin VB.VScrollBar VScroll_C
Height = 255
Index = 1
Left = 4200
Max = 0
Min = 255
SmallChange = 10
TabIndex = 35
Top = 600
Width = 255
End
Begin VB.VScrollBar VScroll_C
Height = 255
Index = 0
Left = 3960
Max = 0
Min = 255
SmallChange = 10
TabIndex = 34
Top = 600
Width = 255
End
Begin VB.CommandButton Command_Add
Caption = "保存"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3240
TabIndex = 33
Top = 5760
Width = 1575
End
Begin VB.ComboBox Combo_Style
Height = 420
Left = 3240
TabIndex = 32
Text = "默认设置"
Top = 5280
Width = 3015
End
Begin VB.HScrollBar HScroll_scr
Height = 255
Left = 5280
Max = 10
TabIndex = 31
Top = 4560
Value = 2
Width = 975
End
Begin VB.HScrollBar HScroll_ys
Height = 255
Left = 5280
Max = 10
TabIndex = 28
Top = 4200
Value = 5
Width = 975
End
Begin VB.HScrollBar HScroll_hr
Height = 255
Left = 5280
Max = 95
Min = 60
TabIndex = 25
Top = 3840
Value = 70
Width = 975
End
Begin VB.VScrollBar VScroll_rb
Height = 1095
Left = 6000
Max = 0
Min = 50
TabIndex = 18
Top = 1560
Width = 255
End
Begin VB.VScrollBar VScroll_rt
Height = 1095
Left = 6000
Max = 51
Min = 100
TabIndex = 17
Top = 480
Value = 100
Width = 255
End
Begin VB.VScrollBar VScroll_lb
Height = 1095
Left = 3240
Max = 0
Min = 50
TabIndex = 16
Top = 1560
Value = 10
Width = 255
End
Begin VB.VScrollBar VScroll_lt
Height = 1095
Left = 3240
Max = 51
Min = 100
TabIndex = 15
Top = 480
Value = 80
Width = 255
End
Begin VB.HScrollBar HScroll_xr
Height = 255
Left = 5160
Max = 100
Min = 60
TabIndex = 13
Top = 2775
Value = 75
Width = 1095
End
Begin VB.HScrollBar HScroll_g2
Height = 255
Left = 4680
Max = 15
Min = 10
TabIndex = 9
Top = 3480
Value = 10
Width = 1575
End
Begin VB.HScrollBar HScroll_g1
Height = 255
Left = 3240
Max = 9
Min = 1
TabIndex = 8
Top = 3480
Value = 5
Width = 1455
End
Begin VB.CommandButton Command_Test
Caption = "测试"
Height = 375
Left = 3240
TabIndex = 4
Top = 0
Width = 3015
End
Begin VB.PictureBox rawPic
AutoRedraw = -1 'True
BeginProperty Font
Name = "黑体"
Size = 72
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2295
Left = 6480
ScaleHeight = 149
ScaleMode = 3 'Pixel
ScaleWidth = 173
TabIndex = 2
Top = 240
Visible = 0 'False
Width = 2655
End
Begin VB.TextBox txt_Input
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 5295
Left = 0
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 1
Text = "Form1.frx":1CCA
Top = 0
Width = 3135
End
Begin VB.PictureBox outPUTpic
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
FillStyle = 0 'Solid
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 2535
Left = 6480
ScaleHeight = 167
ScaleMode = 3 'Pixel
ScaleWidth = 175
TabIndex = 0
Top = 2520
Visible = 0 'False
Width = 2655
End
Begin VB.Label Label6
BackColor = &H000000FF&
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -