📄 form2.frm
字号:
VERSION 5.00
Begin VB.Form Form2
BackColor = &H00000080&
BorderStyle = 0 'None
Caption = "Form2"
ClientHeight = 9015
ClientLeft = 390
ClientTop = 270
ClientWidth = 11985
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
MouseIcon = "Form2.frx":0000
Picture = "Form2.frx":030A
ScaleHeight = 9415.144
ScaleMode = 0 'User
ScaleWidth = 11981.26
ShowInTaskbar = 0 'False
Begin VB.CommandButton Command5
BackColor = &H000000C0&
Caption = "Exit"
Height = 735
Left = 11040
MaskColor = &H000000FF&
Picture = "Form2.frx":A354
Style = 1 'Graphical
TabIndex = 15
Top = 7920
Width = 855
End
Begin VB.CommandButton Command4
BackColor = &H000000C0&
Caption = "Program"
Height = 735
Left = 9840
MaskColor = &H000000FF&
Picture = "Form2.frx":A46C
Style = 1 'Graphical
TabIndex = 14
Top = 7920
Width = 855
End
Begin VB.CommandButton Command3
BackColor = &H000000C0&
Caption = "Option"
Height = 735
Left = 8640
MaskColor = &H000000FF&
Picture = "Form2.frx":A584
Style = 1 'Graphical
TabIndex = 13
Top = 7920
Width = 855
End
Begin VB.CommandButton Command2
BackColor = &H000000C0&
Caption = "Return"
Enabled = 0 'False
Height = 735
Left = 7440
MaskColor = &H000000FF&
Picture = "Form2.frx":A69C
Style = 1 'Graphical
TabIndex = 12
Top = 7920
Width = 855
End
Begin VB.CommandButton Command1
BackColor = &H000000C0&
Caption = "Start"
Height = 735
Left = 6240
MaskColor = &H000000FF&
Picture = "Form2.frx":A7B4
Style = 1 'Graphical
TabIndex = 11
Top = 7920
Width = 855
End
Begin VB.PictureBox Picture3
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 1095
Left = 120
Picture = "Form2.frx":A8CC
ScaleHeight = 1065
ScaleWidth = 1065
TabIndex = 2
Top = 5760
Width = 1095
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
BackColor = &H00000000&
Enabled = 0 'False
ForeColor = &H80000008&
Height = 1095
Left = 120
Picture = "Form2.frx":C740
ScaleHeight = 1065
ScaleWidth = 1065
TabIndex = 1
Top = 4200
Width = 1095
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 1095
Left = 120
Picture = "Form2.frx":E5B4
ScaleHeight = 1065
ScaleWidth = 1065
TabIndex = 0
Top = 2760
Width = 1095
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "is playing now..."
BeginProperty Font
Name = "Lucida Bright"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF00&
Height = 375
Left = 1800
TabIndex = 10
Top = 2160
Width = 3495
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "Nobody"
BeginProperty Font
Name = "Lucida Handwriting"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF00&
Height = 375
Left = 240
TabIndex = 9
Top = 1560
Width = 3135
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Bicousoft-Ability soft(T)"
Height = 180
Left = 9720
TabIndex = 8
Top = 8760
Width = 2250
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "2003"
BeginProperty Font
Name = "Swis721 BlkOul BT"
Size = 21.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 525
Left = 5760
TabIndex = 7
Top = 1320
Width = 1140
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Soccer Dream"
BeginProperty Font
Name = "ScriptS"
Size = 36
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 1035
Left = 1440
TabIndex = 6
Top = 480
Width = 5010
End
Begin VB.Label Label3
Alignment = 2 'Center
BackColor = &H00000080&
BackStyle = 0 'Transparent
Caption = "Exit game"
BeginProperty Font
Name = "GothicG"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 420
Left = 1680
TabIndex = 5
Top = 6120
Width = 3675
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00000080&
BackStyle = 0 'Transparent
Caption = "Return game"
BeginProperty Font
Name = "GothicG"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808080&
Height = 420
Left = 1680
TabIndex = 4
Top = 4560
Width = 3675
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00000080&
BackStyle = 0 'Transparent
Caption = "Start a new player"
BeginProperty Font
Name = "GothicG"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 420
Left = 1680
TabIndex = 3
Top = 3000
Width = 3675
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Sub Command1_Click()
Form1.Show
Picture2.Enabled = True
Label2.ForeColor = &HFFFFFF
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
Private Sub Command3_Click()
Form5.Show
End Sub
Private Sub Command4_Click()
Form4.Show
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub Picture1_Click()
Form1.Show
Picture2.Enabled = True
Label2.ForeColor = &HFFFFFF
Command2.Enabled = True
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFFFF&
Label2.ForeColor = &HFFFFFF
Label3.ForeColor = &HFFFFFF
End Sub
Private Function rtv_ini_data$(ini_File$, ini_select$, ini_entry$)
' rtv_ini_data("XXX.INI","ENVIRONMENT","PATH")
Dim temp_string As String
Dim DefaultValue As String
Dim Entry As String
Dim EntryValue As String
Dim EntryValueSize As String
Dim box_msg As String
Dim Len_string As String
Dim X As Integer
rtv_ini_data$ = ""
Section$ = ini_select$
Entry$ = ini_entry$
DefaultValue$ = "unknown"
EntryValue$ = Space$(1000)
EntryValueSize = 1000
'读取信息，如不存在则显示错误信息
X% = GetPrivateProfileString(Section$, Entry$, DefaultValue$, EntryValue$, EntryValueSize, ini_File$)
If X% = 0 Then
box_msg$ = " 非法条目 -> " + Section$ + "/" + Entry$
MsgBox box_msg$, 16, "找不到所需字段"
End If
Len_string = Len(Trim$(EntryValue$)) - 1
temp_string = Left$(EntryValue$, Len_string)
rtv_ini_data$ = temp_string
End Function
Private Function upd_ini_data$(ini_File$, ini_select$, ini_entry$, EntryValue$)
' upd_ini_data("XXX.INI","ENVIRONMENT","PATH", "C:\")
upd_ini_data$ = ""
Section$ = ini_select$
Entry$ = ini_entry$
'更新数据
X% = WritePrivateProfileString(Section$, Entry$, EntryValue$, ini_File$)
If X% = 0 Then
box_msg$ = " 非法条目 -> " + Section$ + "/" + Entry$
MsgBox box_msg$, 16, "读取时出错"
End If
End Function
Private Sub Picture2_Click()
Form1.Show
End Sub
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFFFFFF
Label2.ForeColor = &HFFFF&
Label3.ForeColor = &HFFFFFF
End Sub
Private Sub Picture3_Click()
End
End Sub
Private Sub Picture3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFFFFFF
Label2.ForeColor = &HFFFFFF
Label3.ForeColor = &HFFFF&
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -