📄 form7.frm
字号:
VERSION 5.00
Object = "{3A6644DE-3402-11D9-9DE7-C33FAA87690A}#1.0#0"; "WinXPCEngine.ocx"
Begin VB.Form AboutForm
AutoRedraw = -1 'True
BackColor = &H00FF8080&
BorderStyle = 1 'Fixed Single
Caption = "关于本游戏软件"
ClientHeight = 4530
ClientLeft = 45
ClientTop = 435
ClientWidth = 3090
Icon = "Form7.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
MouseIcon = "Form7.frx":08CA
MousePointer = 99 'Custom
ScaleHeight = 4530
ScaleWidth = 3090
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
BackColor = &H00FF8080&
Cancel = -1 'True
Caption = "关闭(&X)"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1080
Picture = "Form7.frx":1194
Style = 1 'Graphical
TabIndex = 11
ToolTipText = "关闭"
Top = 3720
Width = 975
End
Begin WinXPC_Engine.WindowsXPC WindowsXPC1
Left = -225
Top = 3960
_ExtentX = 6588
_ExtentY = 1085
ColorScheme = 2
Common_Dialog = 0 'False
End
Begin VB.Image Image1
Height = 375
Index = 1
Left = 600
Picture = "Form7.frx":187E
Stretch = -1 'True
ToolTipText = "云南大学"
Top = 3195
Width = 375
End
Begin VB.Image Image1
Height = 375
Index = 0
Left = 578
Picture = "Form7.frx":1F68
Stretch = -1 'True
ToolTipText = "云南大学"
Top = 2700
Width = 375
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "冒青烟工作室"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 240
Index = 11
Left = 1073
TabIndex = 12
Top = 2760
Width = 1440
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "CopyLeft 2007"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 240
Index = 10
Left = 1080
TabIndex = 10
Top = 3240
Width = 1560
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "刘晓东"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 240
Index = 9
Left = 1560
MouseIcon = "Form7.frx":2652
MousePointer = 99 'Custom
TabIndex = 9
ToolTipText = "点击连接到网站"
Top = 2160
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "段鹏"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 240
Index = 8
Left = 1560
MouseIcon = "Form7.frx":2A9C
MousePointer = 99 'Custom
TabIndex = 8
ToolTipText = "点击连接到网站"
Top = 1680
Width = 480
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "康青"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 240
Index = 7
Left = 1560
MouseIcon = "Form7.frx":2EE6
MousePointer = 99 'Custom
TabIndex = 7
ToolTipText = "点击连接到网站"
Top = 1200
Width = 480
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "范轩轩"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 240
Index = 6
Left = 1560
MouseIcon = "Form7.frx":3330
MousePointer = 99 'Custom
TabIndex = 6
ToolTipText = "点击连接到网站"
Top = 720
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "测试员:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 5
Left = 480
TabIndex = 5
Top = 2145
Width = 960
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "编辑:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 4
Left = 720
TabIndex = 4
Top = 1665
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "美工:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 3
Left = 720
TabIndex = 3
Top = 1185
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "设计人:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 2
Left = 480
TabIndex = 2
Top = 705
Width = 960
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "N 迷游戏软件"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 240
Index = 1
Left = 1560
TabIndex = 1
Top = 225
Width = 1440
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FF8080&
Caption = "欢迎使用:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 0
Left = 240
TabIndex = 0
Top = 225
Width = 1200
End
End
Attribute VB_Name = "AboutForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit '强制显式声明模块中的所有变量
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
WindowsXPC1.InitSubClassing '初始化控件
End Sub
Private Sub Label1_Click(Index As Integer)
Dim success As Long
Select Case Index
Case 6 '范轩轩
success = ShellExecute(0&, vbNullString, "http://hi.baidu.com/fanxuanxuan", vbNullString, "C:\", 1)
Case 7 '康青
Case 8 '段鹏
Case 9 '刘晓东
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -