📄 frmabout.frm
字号:
VERSION 5.00
Begin VB.Form frmAbout
BackColor = &H00000000&
BorderStyle = 3 'Fixed Dialog
Caption = "About David Midkiff"
ClientHeight = 2055
ClientLeft = 2340
ClientTop = 1935
ClientWidth = 5910
ClipControls = 0 'False
ControlBox = 0 'False
ForeColor = &H00FFFFFF&
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1418.397
ScaleMode = 0 'User
ScaleWidth = 5549.795
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmdOK
BackColor = &H00FFFFFF&
Cancel = -1 'True
Caption = "OK"
Default = -1 'True
Height = 345
Left = 4560
Style = 1 'Graphical
TabIndex = 0
Top = 1680
Width = 1260
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "www.mp3.com/m-dj"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 3600
MouseIcon = "frmAbout.frx":0000
MousePointer = 99 'Custom
TabIndex = 7
ToolTipText = "http://www.mp3.com/m-dj"
Top = 1320
Width = 1695
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "mdj2023@hotmail.com"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 3600
MouseIcon = "frmAbout.frx":030A
MousePointer = 99 'Custom
TabIndex = 6
ToolTipText = "mailto:mdj2023@hotmail.com"
Top = 1080
Width = 1935
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "MZEuro"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 3600
MouseIcon = "frmAbout.frx":0614
MousePointer = 1 'Arrow
TabIndex = 5
Top = 840
Width = 735
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "Music:"
ForeColor = &H00FFFFFF&
Height = 255
Left = 2040
TabIndex = 4
Top = 1320
Width = 1455
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "Email address:"
ForeColor = &H00FFFFFF&
Height = 255
Left = 2040
TabIndex = 3
Top = 1080
Width = 1455
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "AIM Screen Name:"
ForeColor = &H00FFFFFF&
Height = 255
Left = 2040
TabIndex = 2
Top = 840
Width = 1455
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = $"frmAbout.frx":091E
ForeColor = &H00FFFFFF&
Height = 615
Left = 2040
TabIndex = 1
Top = 120
Width = 3855
End
Begin VB.Image Image1
Height = 1815
Left = 120
Picture = "frmAbout.frx":09A7
Top = 120
Width = 1740
End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const READ_CONTROL = &H20000
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _
KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _
KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL
Const HKEY_LOCAL_MACHINE = &H80000002
Const ERROR_SUCCESS = 0
Const REG_SZ = 1
Const REG_DWORD = 4
Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location"
Const gREGVALSYSINFOLOC = "MSINFO"
Const gREGKEYSYSINFO = "SOFTWARE\Microsoft\Shared Tools\MSINFO"
Const gREGVALSYSINFO = "PATH"
Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub cmdOK_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.ForeColor = &HFFFFFF: Label7.ForeColor = &HFFFFFF
End Sub
Private Sub Form_Load()
SetWinOnTop = SetWindowPos(frmAbout.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.ForeColor = &HFFFFFF: Label7.ForeColor = &HFFFFFF
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.ForeColor = &HFFFFFF: Label7.ForeColor = &HFFFFFF
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.ForeColor = &HFFFFFF: Label7.ForeColor = &HFFFFFF
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.ForeColor = &HFFFFFF: Label7.ForeColor = &HFFFFFF
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.ForeColor = &HFFFFFF: Label7.ForeColor = &HFFFFFF
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.ForeColor = &HFFFFFF: Label7.ForeColor = &HFFFFFF
End Sub
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.ForeColor = &HFFFFFF: Label7.ForeColor = &HFFFFFF
End Sub
Private Sub Label6_Click()
On Error Resume Next
Shell "start.exe mailto:mdj2023@hotmail.com?Subject=From dFreeze About Window", vbHide
End Sub
Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.ForeColor = &HFF&
Label7.ForeColor = &HFFFFFF
End Sub
Private Sub Label7_Click()
On Error Resume Next
Shell "start.exe http://www.mp3.com/m-dj", vbHide
End Sub
Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.ForeColor = &HFFFFFF
Label7.ForeColor = &HFF&
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -