📄 topscores.frm
字号:
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "00:99:99"
Height = 195
Index = 1
Left = 3720
TabIndex = 35
Top = 660
Width = 630
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "00:99:99"
Height = 195
Index = 0
Left = 3720
TabIndex = 34
Top = 450
Width = 630
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "255"
Height = 195
Index = 5
Left = 3090
TabIndex = 33
Top = 1470
Width = 270
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "255"
Height = 195
Index = 4
Left = 3090
TabIndex = 32
Top = 1260
Width = 270
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "255"
Height = 195
Index = 3
Left = 3090
TabIndex = 31
Top = 1065
Width = 270
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "255"
Height = 195
Index = 2
Left = 3090
TabIndex = 30
Top = 855
Width = 270
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "255"
Height = 195
Index = 1
Left = 3090
TabIndex = 29
Top = 660
Width = 270
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "255"
Height = 195
Index = 0
Left = 3090
TabIndex = 28
Top = 450
Width = 270
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "Name1"
Height = 195
Index = 5
Left = 720
TabIndex = 27
Top = 1470
Width = 510
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "Name1"
Height = 195
Index = 4
Left = 720
TabIndex = 26
Top = 1260
Width = 510
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "Name1"
Height = 195
Index = 3
Left = 720
TabIndex = 25
Top = 1065
Width = 510
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "Name1"
Height = 195
Index = 2
Left = 720
TabIndex = 24
Top = 855
Width = 510
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "Name1"
Height = 195
Index = 1
Left = 720
TabIndex = 23
Top = 660
Width = 510
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "Name1"
Height = 195
Index = 0
Left = 720
TabIndex = 22
Top = 450
Width = 510
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "6"
Height = 195
Index = 5
Left = 270
TabIndex = 11
Top = 1470
Width = 90
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "5"
Height = 195
Index = 4
Left = 270
TabIndex = 10
Top = 1266
Width = 90
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "4"
Height = 195
Index = 3
Left = 270
TabIndex = 9
Top = 1062
Width = 90
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "3"
Height = 195
Index = 2
Left = 270
TabIndex = 8
Top = 858
Width = 90
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "2"
Height = 195
Index = 1
Left = 270
TabIndex = 7
Top = 654
Width = 90
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "1"
Height = 195
Index = 0
Left = 270
TabIndex = 6
Top = 450
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Time"
Height = 195
Index = 3
Left = 3720
TabIndex = 5
Top = 240
Width = 345
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Moves"
Height = 195
Index = 2
Left = 3090
TabIndex = 4
Top = 240
Width = 480
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Name"
Height = 195
Index = 1
Left = 720
TabIndex = 3
Top = 240
Width = 420
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Level"
Height = 195
Index = 0
Left = 90
TabIndex = 2
Top = 240
Width = 390
End
End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, _
ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Private pbAltF4 As Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeyF4) And (Shift And vbAltMask) Then
'ALT+F4 pressed
'Set a form-level flag (to be read by code below)
pbAltF4 = True
End If
End Sub
'This shows you to prevent user from exiting if
'if ALT+F4 is pressed.
Private Sub Form_QueryUnload(Cancel As Integer, _
UnloadMode As Integer)
'When ALT+F4 is pressed,
'UnloadMode is set to vbFormControlMenu
If pbAltF4 And UnloadMode = vbFormControlMenu Then
Cancel = True
'reset
pbAltF4 = False
End If
End Sub
Public Function DisableCloseButton(frm As Form) As Boolean
'PURPOSE: Removes X button from a form
'EXAMPLE: DisableCloseButton Me
'RETURNS: True if successful, false otherwise
'NOTES: Also removes Exit Item from
' Control Box Menu
Dim lHndSysMenu As Long
Dim lAns1 As Long, lAns2 As Long
lHndSysMenu = GetSystemMenu(frm.hwnd, 0)
'remove close button
lAns1 = RemoveMenu(lHndSysMenu, 6, MF_BYPOSITION)
'Remove seperator bar
lAns2 = RemoveMenu(lHndSysMenu, 5, MF_BYPOSITION)
'Return True if both calls were successful
DisableCloseButton = (lAns1 <> 0 And lAns2 <> 0)
End Function
Private Sub Form_Load()
Dim a As Boolean
a = DisableCloseButton(Me)
End Sub
Private Sub Frame1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Me.Hide
End Sub
Private Sub Frame2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Me.Hide
End Sub
Private Sub Label1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Me.Hide
End Sub
Private Sub Label2_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Me.Hide
End Sub
Private Sub Label3_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Me.Hide
End Sub
Private Sub Label4_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Me.Hide
End Sub
Private Sub Label5_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Me.Hide
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -