?? frmabout.frm
字號:
VERSION 5.00
Begin VB.Form frmAbout
BorderStyle = 3 'Fixed Dialog
ClientHeight = 4704
ClientLeft = 48
ClientTop = 48
ClientWidth = 7584
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4704
ScaleWidth = 7584
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Visible = 0 'False
Begin VB.Frame fraMainFrame
Height = 4590
Left = 120
TabIndex = 0
Top = 0
Width = 7380
Begin VB.PictureBox picLogo
AutoSize = -1 'True
Height = 432
Left = 360
Picture = "frmAbout.frx":0000
ScaleHeight = 384
ScaleWidth = 384
TabIndex = 2
Top = 480
Width = 432
End
Begin VB.Label lblLicenseTo
Alignment = 1 'Right Justify
Caption = "使用權(quán)屬于"
BeginProperty Font
Name = "宋體"
Size = 8.4
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 1
Tag = "使用權(quán)屬于"
Top = 240
Width = 6855
End
Begin VB.Label lblProductName
AutoSize = -1 'True
Caption = "基于GIS的地震分析預(yù)報系統(tǒng)"
BeginProperty Font
Name = "楷體_GB2312"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 876
TabIndex = 9
Tag = "產(chǎn)品"
Top = 1200
Width = 6180
End
Begin VB.Label lblCompanyProduct
AutoSize = -1 'True
Caption = "中國地震局"
BeginProperty Font
Name = "宋體"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 2505
TabIndex = 8
Tag = "公司產(chǎn)品"
Top = 765
Width = 1890
End
Begin VB.Label lblPlatform
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Windows平臺"
BeginProperty Font
Name = "宋體"
Size = 15.6
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 5070
TabIndex = 7
Tag = "平臺"
Top = 2400
Width = 1935
End
Begin VB.Label lblVersion
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "2.0"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 6600
TabIndex = 6
Tag = "版本"
Top = 2880
Width = 408
End
Begin VB.Label lblWarning
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Left = 120
TabIndex = 3
Tag = "警告"
Top = 3240
Width = 6855
End
Begin VB.Label lblCompany
BeginProperty Font
Name = "宋體"
Size = 9.6
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1560
TabIndex = 5
Tag = "公司"
Top = 3960
Width = 2415
End
Begin VB.Label lblCopyright
Caption = "<基于GIS的地震分析預(yù)報系統(tǒng)>研制組"
BeginProperty Font
Name = "宋體"
Size = 11.4
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3120
TabIndex = 4
Tag = "版權(quán)"
Top = 3600
Width = 4095
End
End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Dim CurPath As String, DirFile As String
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -