📄 窗口.frm
字号:
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "字模提取软件"
ClientHeight = 6030
ClientLeft = 45
ClientTop = 405
ClientWidth = 10020
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6030
ScaleWidth = 10020
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox picMask
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 5655
Index = 0
Left = 0
ScaleHeight = 5655
ScaleWidth = 9885
TabIndex = 0
Top = 0
Width = 9885
Begin VB.Frame frmFont
Caption = "字体选择"
Enabled = 0 'False
Height = 1455
Left = 4860
TabIndex = 36
Top = 3330
Width = 1215
Begin VB.PictureBox picMask
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 1245
Index = 5
Left = 30
ScaleHeight = 1245
ScaleWidth = 1095
TabIndex = 37
Top = 180
Width = 1095
Begin VB.CheckBox chkUnderline
Caption = " 下划线"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 90
TabIndex = 41
Top = 690
Width = 1100
End
Begin VB.CheckBox chkStrikeThrough
Caption = " 删除线"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = -1 'True
EndProperty
Height = 180
Left = 90
TabIndex = 40
Top = 960
Width = 1100
End
Begin VB.CheckBox chkBold
Caption = " 粗体"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 90
TabIndex = 39
Top = 90
Value = 1 'Checked
Width = 1100
End
Begin VB.CheckBox chkItalic
Caption = " 斜体"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 90
TabIndex = 38
Top = 420
Width = 1100
End
End
End
Begin VB.PictureBox picFrame
BackColor = &H80000007&
Height = 4635
Left = 60
ScaleHeight = 4575
ScaleWidth = 4575
TabIndex = 14
Top = 90
Width = 4635
Begin VB.Shape Shape1
BorderStyle = 0 'Transparent
FillColor = &H00004040&
FillStyle = 0 'Solid
Height = 255
Index = 0
Left = 240
Shape = 3 'Circle
Top = 120
Width = 255
End
Begin VB.Label lblMail
BackStyle = 0 'Transparent
Caption = "MAIL"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 255
Left = 60
MousePointer = 99 'Custom
TabIndex = 17
Top = 4320
Width = 405
End
Begin VB.Label lblWeb
BackStyle = 0 'Transparent
Caption = "WEB"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 255
Left = 600
MousePointer = 99 'Custom
TabIndex = 16
Top = 4320
Width = 375
End
Begin VB.Label lblReverse
BackStyle = 0 'Transparent
Caption = "反色操作"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 255
Left = 3780
MousePointer = 99 'Custom
TabIndex = 15
Top = 4320
Width = 795
End
End
Begin VB.Frame frmColor
Caption = "颜色选择"
Height = 3195
Left = 4860
TabIndex = 13
Top = 90
Width = 1215
Begin VB.PictureBox picMask
BorderStyle = 0 'None
Height = 2985
Index = 1
Left = 60
ScaleHeight = 2985
ScaleWidth = 1095
TabIndex = 18
Top = 180
Width = 1100
Begin VB.OptionButton optColor
BackColor = &H00FF00FF&
Caption = " 粉色"
Height = 375
Index = 6
Left = 120
TabIndex = 24
Top = 1560
Width = 975
End
Begin VB.OptionButton optColor
BackColor = &H00FFFF00&
Caption = " X 色"
Height = 375
Index = 5
Left = 120
TabIndex = 23
Top = 2040
Width = 975
End
Begin VB.OptionButton optColor
BackColor = &H0000FFFF&
Caption = " 黄色"
Height = 375
Index = 4
Left = 120
TabIndex = 22
Top = 120
Value = -1 'True
Width = 975
End
Begin VB.OptionButton optColor
BackColor = &H00FF0000&
Caption = " 蓝色"
Height = 375
Index = 3
Left = 120
TabIndex = 21
Top = 2520
Width = 975
End
Begin VB.OptionButton optColor
BackColor = &H0000FF00&
Caption = " 绿色"
Height = 375
Index = 2
Left = 120
TabIndex = 20
Top = 600
Width = 975
End
Begin VB.OptionButton optColor
BackColor = &H000000FF&
Caption = " 红色"
Height = 375
Index = 1
Left = 120
TabIndex = 19
Top = 1080
Width = 975
End
End
End
Begin VB.CommandButton cmdOK
Caption = "提取字模(&O)"
Height = 375
Left = 8640
TabIndex = 12
Top = 3240
Width = 1215
End
Begin VB.TextBox txtOutput
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 675
Left = 0
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 11
Top = 4800
Width = 9825
End
Begin VB.PictureBox picOutput
Appearance = 0 'Flat
BackColor = &H80000005&
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 2415
Left = 6240
ScaleHeight = 2385
ScaleMode = 0 'User
ScaleWidth = 2385
TabIndex = 10
Top = 90
Width = 2415
End
Begin VB.CommandButton cmdCopy
Caption = "到剪贴板(&C)"
Height = 375
Left = 8640
TabIndex = 9
Top = 3600
Width = 1215
End
Begin VB.TextBox txtInput
BeginProperty Font
Name = "宋体"
Size = 36
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 810
Left = 7440
MaxLength = 1
TabIndex = 8
Top = 3930
Width = 915
End
Begin VB.CheckBox chkWH
Caption = "加宽"
Enabled = 0 'False
Height = 315
Left = 7440
TabIndex = 7
Top = 3480
Width = 855
End
Begin VB.Frame frmShape
Caption = "Shape"
Height = 855
Left = 6300
TabIndex = 6
Top = 2550
Width = 975
Begin VB.PictureBox picMask
BorderStyle = 0 'None
Height = 615
Index = 2
Left = 60
ScaleHeight = 615
ScaleWidth = 885
TabIndex = 25
Top = 210
Width = 885
Begin VB.OptionButton optCircle
Caption = "圆形"
Height = 315
Left = 120
TabIndex = 27
Top = 300
Width = 675
End
Begin VB.OptionButton optSquare
Caption = "方形"
Height = 375
Left = 120
TabIndex = 26
Top = -30
Value = -1 'True
Width = 675
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -