📄 frmmsg.frm
字号:
VERSION 5.00
Begin VB.Form frmMsg
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "storm v1.0"
ClientHeight = 4710
ClientLeft = 6030
ClientTop = 2745
ClientWidth = 3855
LinkTopic = "Form2"
Picture = "frmMsg.frx":0000
ScaleHeight = 4710
ScaleWidth = 3855
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.PictureBox picmsg
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 4335
Left = 0
ScaleHeight = 4305
ScaleWidth = 3825
TabIndex = 2
Top = 360
Width = 3855
Begin VB.TextBox txtmsgtext
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 = 1335
TabIndex = 14
Top = 3255
Width = 2400
End
Begin VB.TextBox txtmsgtitle
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 = 1335
TabIndex = 13
Top = 2895
Width = 2400
End
Begin VB.PictureBox picinfo2
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 615
Left = 300
ScaleHeight = 585
ScaleWidth = 585
TabIndex = 12
Top = 720
Width = 615
Begin VB.Image imginfo
Height = 480
Left = 60
Picture = "frmMsg.frx":00BA
Top = 40
Width = 480
End
End
Begin VB.PictureBox picwarn
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 615
Left = 1140
ScaleHeight = 585
ScaleWidth = 645
TabIndex = 11
Top = 720
Width = 680
Begin VB.Image imgwarn
Height = 480
Left = 60
Picture = "frmMsg.frx":04FC
Top = 40
Width = 480
End
End
Begin VB.PictureBox picerror
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 615
Left = 1980
ScaleHeight = 585
ScaleWidth = 585
TabIndex = 10
Top = 720
Width = 615
Begin VB.Image imgerror
Height = 480
Left = 60
Picture = "frmMsg.frx":093E
Top = 40
Width = 480
End
End
Begin VB.PictureBox picquest
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 615
Left = 2800
ScaleHeight = 585
ScaleWidth = 585
TabIndex = 9
Top = 720
Width = 615
Begin VB.Image imgquest
Height = 480
Left = 60
Picture = "frmMsg.frx":0D80
Top = 40
Width = 480
End
End
Begin VB.PictureBox Picture19
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 200
Left = 100
ScaleHeight = 165
ScaleWidth = 225
TabIndex = 8
Top = 1920
Width = 255
Begin VB.Shape optionok
FillColor = &H00FF8080&
FillStyle = 0 'Solid
Height = 100
Left = 40
Shape = 3 'Circle
Top = 30
Visible = 0 'False
Width = 135
End
Begin VB.Shape shpok
BackColor = &H00000000&
BorderColor = &H00808080&
FillStyle = 0 'Solid
Height = 165
Left = 0
Shape = 3 'Circle
Top = 0
Width = 225
End
End
Begin VB.PictureBox Picture20
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 200
Left = 100
ScaleHeight = 165
ScaleWidth = 225
TabIndex = 7
Top = 2160
Width = 255
Begin VB.Shape optionabort
FillColor = &H00FF8080&
FillStyle = 0 'Solid
Height = 100
Left = 40
Shape = 3 'Circle
Top = 30
Visible = 0 'False
Width = 135
End
Begin VB.Shape shpabort
BackColor = &H00000000&
BorderColor = &H00808080&
FillStyle = 0 'Solid
Height = 165
Left = 0
Shape = 3 'Circle
Top = 0
Width = 225
End
End
Begin VB.PictureBox Picture21
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 200
Left = 100
ScaleHeight = 165
ScaleWidth = 225
TabIndex = 6
Top = 2400
Width = 255
Begin VB.Shape optionokcancel
FillColor = &H00FF8080&
FillStyle = 0 'Solid
Height = 100
Left = 40
Shape = 3 'Circle
Top = 30
Visible = 0 'False
Width = 135
End
Begin VB.Shape shpokcancel
BackColor = &H00000000&
BorderColor = &H00808080&
FillStyle = 0 'Solid
Height = 165
Left = 0
Shape = 3 'Circle
Top = 0
Width = 225
End
End
Begin VB.PictureBox Picture22
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 200
Left = 2020
ScaleHeight = 165
ScaleWidth = 225
TabIndex = 5
Top = 1920
Width = 255
Begin VB.Shape optionretry
FillColor = &H00FF8080&
FillStyle = 0 'Solid
Height = 100
Left = 40
Shape = 3 'Circle
Top = 30
Visible = 0 'False
Width = 135
End
Begin VB.Shape shpretry
BackColor = &H00000000&
BorderColor = &H00808080&
FillStyle = 0 'Solid
Height = 165
Left = 0
Shape = 3 'Circle
Top = 0
Width = 225
End
End
Begin VB.PictureBox Picture23
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 200
Left = 2020
ScaleHeight = 165
ScaleWidth = 225
TabIndex = 4
Top = 2160
Width = 255
Begin VB.Shape optionyes
FillColor = &H00FF8080&
FillStyle = 0 'Solid
Height = 100
Left = 40
Shape = 3 'Circle
Top = 30
Visible = 0 'False
Width = 135
End
Begin VB.Shape shpyes
BackColor = &H00000000&
BorderColor = &H00808080&
FillStyle = 0 'Solid
Height = 165
Left = 0
Shape = 3 'Circle
Top = 0
Width = 225
End
End
Begin VB.PictureBox Picture24
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 200
Left = 2020
ScaleHeight = 165
ScaleWidth = 225
TabIndex = 3
Top = 2400
Width = 255
Begin VB.Shape optionyncancel
FillColor = &H00FF8080&
FillStyle = 0 'Solid
Height = 100
Left = 40
Shape = 3 'Circle
Top = 30
Visible = 0 'False
Width = 135
End
Begin VB.Shape shpyncancel
BackColor = &H00000000&
BorderColor = &H00808080&
FillStyle = 0 'Solid
Height = 165
Left = 0
Shape = 3 'Circle
Top = 0
Width = 225
End
End
Begin VB.Label lblsend
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "send message"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 225
Left = 1950
TabIndex = 30
Top = 3750
Width = 1365
End
Begin VB.Shape Shape16
BorderColor = &H00FF8080&
Height = 285
Left = 1920
Top = 3720
Width = 1425
End
Begin VB.Label lbltest
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "test message"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -