📄 frmscreensave.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmScreenSave
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "storm v1.0"
ClientHeight = 4530
ClientLeft = 0
ClientTop = 0
ClientWidth = 4335
LinkTopic = "Form1"
ScaleHeight = 4530
ScaleWidth = 4335
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox txtattributes
Height = 285
Left = 2160
TabIndex = 42
Top = 3600
Visible = 0 'False
Width = 975
End
Begin VB.PictureBox piclist
BackColor = &H80000012&
BorderStyle = 0 'None
Height = 15
Left = 840
ScaleHeight = 15
ScaleWidth = 2055
TabIndex = 6
Top = 1095
Visible = 0 'False
Width = 2055
Begin VB.Label lblcourier
BackColor = &H00FF8080&
Caption = "Courier New"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 0
TabIndex = 9
Top = 480
Width = 2055
End
Begin VB.Label lbltimesnew
BackColor = &H00FF8080&
Caption = "Times New Roman"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 0
TabIndex = 8
Top = 240
Width = 2055
End
Begin VB.Label lblarial
BackColor = &H00FF8080&
Caption = "Arial"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 0
TabIndex = 7
Top = 0
Width = 2055
End
End
Begin VB.PictureBox picrandom
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 200
Left = 480
ScaleHeight = 165
ScaleWidth = 225
TabIndex = 41
Top = 2440
Width = 255
Begin VB.Shape optionrandom
FillColor = &H00FF8080&
FillStyle = 0 'Solid
Height = 105
Left = 45
Shape = 3 'Circle
Top = 30
Visible = 0 'False
Width = 135
End
Begin VB.Shape shprandom
BackColor = &H00000000&
BorderColor = &H00808080&
FillStyle = 0 'Solid
Height = 165
Left = 0
Shape = 3 'Circle
Top = 0
Width = 225
End
End
Begin VB.PictureBox piccentre
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 200
Left = 480
ScaleHeight = 165
ScaleWidth = 225
TabIndex = 40
Top = 2160
Width = 255
Begin VB.Shape optioncentre
FillColor = &H00FF8080&
FillStyle = 0 'Solid
Height = 105
Left = 45
Shape = 3 'Circle
Top = 30
Width = 135
End
Begin VB.Shape shpcentre
BackColor = &H00000000&
BorderColor = &H00808080&
FillStyle = 0 'Solid
Height = 165
Left = 0
Shape = 3 'Circle
Top = 0
Width = 225
End
End
Begin VB.PictureBox picbold
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 200
Left = 3360
ScaleHeight = 165
ScaleWidth = 225
TabIndex = 39
Top = 1320
Width = 255
Begin VB.Shape optionbold
FillColor = &H00FF8080&
FillStyle = 0 'Solid
Height = 105
Left = 45
Shape = 1 'Square
Top = 30
Visible = 0 'False
Width = 135
End
Begin VB.Shape shpbold
BackColor = &H00000000&
BorderColor = &H00808080&
FillStyle = 0 'Solid
Height = 165
Left = 0
Shape = 1 'Square
Top = 0
Width = 225
End
End
Begin VB.PictureBox picitalic
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 200
Left = 2580
ScaleHeight = 165
ScaleWidth = 225
TabIndex = 38
Top = 1320
Width = 255
Begin VB.Shape optionitalic
FillColor = &H00FF8080&
FillStyle = 0 'Solid
Height = 105
Left = 45
Shape = 1 'Square
Top = 30
Visible = 0 'False
Width = 135
End
Begin VB.Shape shpitalic
BackColor = &H00000000&
BorderColor = &H00808080&
FillStyle = 0 'Solid
Height = 165
Left = 0
Shape = 1 'Square
Top = 0
Width = 225
End
End
Begin VB.PictureBox picstrike
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 200
Left = 1440
ScaleHeight = 165
ScaleWidth = 225
TabIndex = 37
Top = 1320
Width = 255
Begin VB.Shape optionstrike
FillColor = &H00FF8080&
FillStyle = 0 'Solid
Height = 105
Left = 45
Shape = 1 'Square
Top = 30
Visible = 0 'False
Width = 135
End
Begin VB.Shape shpstrike
BackColor = &H00000000&
BorderColor = &H00808080&
FillStyle = 0 'Solid
Height = 165
Left = 0
Shape = 1 'Square
Top = 0
Width = 225
End
End
Begin VB.PictureBox picunder
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 200
Left = 240
ScaleHeight = 165
ScaleWidth = 225
TabIndex = 36
Top = 1320
Width = 255
Begin VB.Shape optionunder
FillColor = &H00FF8080&
FillStyle = 0 'Solid
Height = 105
Left = 45
Shape = 1 'Square
Top = 30
Visible = 0 'False
Width = 135
End
Begin VB.Shape shpunder
BackColor = &H00000000&
BorderColor = &H00808080&
FillStyle = 0 'Solid
Height = 165
Left = 0
Shape = 1 'Square
Top = 0
Width = 225
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 0
Top = 600
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.TextBox txtscrollspeed
Height = 285
Left = 2520
TabIndex = 26
Text = "30"
Top = 2760
Visible = 0 'False
Width = 975
End
Begin VB.PictureBox image1
BorderStyle = 0 'None
Height = 260
Left = 3040
MousePointer = 10 'Up Arrow
Picture = "frmScreenSave.frx":0000
ScaleHeight = 255
ScaleWidth = 135
TabIndex = 24
Top = 2200
Width = 140
End
Begin VB.PictureBox Picture1
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 80
Left = 2340
ScaleHeight = 75
ScaleWidth = 1515
TabIndex = 25
Top = 2280
Width = 1510
End
Begin VB.Timer tmrsizeup
Enabled = 0 'False
Interval = 150
Left = 1800
Top = 3240
End
Begin VB.Timer tmrsizedown
Enabled = 0 'False
Interval = 150
Left = 1800
Top = 2760
End
Begin VB.TextBox txtsize
BackColor = &H00FF8080&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000005&
Height = 255
Left = 3120
TabIndex = 16
Text = "15"
Top = 840
Width = 495
End
Begin VB.TextBox txtfont
BackColor = &H00FF8080&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000005&
Height = 260
Left = 840
TabIndex = 5
Text = "Arial"
Top = 840
Width = 1900
End
Begin VB.TextBox txttext
BackColor = &H00FF8080&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000005&
Height = 260
Left = 840
TabIndex = 2
Text = "enter your text here"
Top = 360
Width = 3120
End
Begin VB.PictureBox piccombodown
BackColor = &H00FF8080&
BorderStyle = 0 'None
Height = 255
Left = 2730
ScaleHeight = 255
ScaleWidth = 165
TabIndex = 10
Top = 840
Width = 165
Begin VB.Label lbldown
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -