frmabout.frm
来自「多种图表的绘制及其运用」· FRM 代码 · 共 547 行 · 第 1/2 页
FRM
547 行
VERSION 5.00
Begin VB.Form frmAbout
BorderStyle = 3 'Fixed Dialog
Caption = "About MyApp"
ClientHeight = 4995
ClientLeft = 2340
ClientTop = 1935
ClientWidth = 6345
ClipControls = 0 'False
LinkTopic = "Form2"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3447.637
ScaleMode = 0 'User
ScaleWidth = 5958.282
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.Frame Frame1
Height = 1110
Left = 135
TabIndex = 14
Top = 2055
Width = 4620
Begin VB.CommandButton cmdRegister
Caption = "Register"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3435
TabIndex = 17
Top = 150
Visible = 0 'False
Width = 1125
End
Begin VB.Label lblRegisteredTo
AutoSize = -1 'True
Caption = "This product is registered to:"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 150
TabIndex = 16
Top = 195
Visible = 0 'False
Width = 2475
End
Begin VB.Label lblUserName
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "FREEWARE"
BeginProperty Font
Name = "Verdana"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 1545
TabIndex = 15
Top = 480
Width = 1500
End
End
Begin VB.TextBox txtDisclaimer
BackColor = &H8000000F&
BorderStyle = 0 'None
ForeColor = &H80000012&
Height = 915
Left = 3345
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 13
TabStop = 0 'False
Text = "frmAbout.frx":0000
Top = 3270
Width = 2850
End
Begin VB.CommandButton cmdCheckForUpdate
Caption = "Check for an update!"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 600
Left = 510
TabIndex = 10
Top = 3420
Width = 2190
End
Begin VB.CommandButton cmdOK
Cancel = -1 'True
Caption = "OK"
Default = -1 'True
Height = 345
Left = 5040
TabIndex = 9
Top = 2310
Width = 1260
End
Begin VB.PictureBox picIcon
Appearance = 0 'Flat
AutoSize = -1 'True
BorderStyle = 0 'None
ClipControls = 0 'False
ForeColor = &H80000008&
Height = 480
Left = 240
Picture = "frmAbout.frx":0163
ScaleHeight = 337.12
ScaleMode = 0 'User
ScaleWidth = 337.12
TabIndex = 0
Top = 240
Width = 480
End
Begin VB.CommandButton cmdSysInfo
Caption = "System Info..."
Height = 345
Left = 5040
TabIndex = 1
Top = 2760
Width = 1245
End
Begin VB.Label Label5
Alignment = 2 'Center
Caption = "Portions Copyright 1998-2002 Yuri Margolin. All rights reserved."
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 75
TabIndex = 12
Top = 4695
Width = 6180
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "e-mail:"
BeginProperty Font
Name = "Verdana"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 75
TabIndex = 11
Top = 1590
Width = 690
End
Begin VB.Label Label3
Alignment = 2 'Center
Caption = "Copyright 2002 Alexander Popov Emulation Soft. All rights reserved."
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 75
TabIndex = 8
Top = 4350
Width = 6195
End
Begin VB.Label lblEmail
AutoSize = -1 'True
BackColor = &H0080FFFF&
Caption = " info@emu8086.com "
BeginProperty Font
Name = "Courier"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 240
Left = 1395
MouseIcon = "frmAbout.frx":046D
MousePointer = 99 'Custom
TabIndex = 7
Top = 1620
Width = 2430
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "homepage:"
BeginProperty Font
Name = "Verdana"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 75
TabIndex = 6
Top = 1200
Width = 1095
End
Begin VB.Label lblURL
AutoSize = -1 'True
BackColor = &H0080FFFF&
Caption = " http://www.emu8086.com/vb/ "
BeginProperty Font
Name = "Courier"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 240
Left = 1395
MouseIcon = "frmAbout.frx":05BF
MousePointer = 99 'Custom
TabIndex = 5
Top = 1215
Width = 3780
End
Begin VB.Line Line1
BorderColor = &H00808080&
BorderStyle = 6 'Inside Solid
Index = 1
X1 = 70.429
X2 = 5817.425
Y1 = 1376.984
Y2 = 1376.984
End
Begin VB.Label lblDescription
AutoSize = -1 'True
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?