📄 mp3play.frm
字号:
VERSION 5.00
Begin VB.Form Form11
AutoRedraw = -1 'True
BorderStyle = 0 'None
Caption = "Form11"
ClientHeight = 5145
ClientLeft = 0
ClientTop = 105
ClientWidth = 7485
LinkTopic = "Form11"
LockControls = -1 'True
Picture = "Mp3Play.frx":0000
ScaleHeight = 5145
ScaleWidth = 7485
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Showlistmig
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 495
Left = 6000
ScaleHeight = 495
ScaleWidth = 735
TabIndex = 13
Top = 2160
Width = 735
End
Begin VB.Timer Timer1
Left = 3120
Top = 2280
End
Begin VB.PictureBox Statemig3
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 495
Left = 6000
ScaleHeight = 495
ScaleWidth = 735
TabIndex = 12
Top = 4320
Width = 735
End
Begin VB.PictureBox Statemig2
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 495
Left = 6000
ScaleHeight = 495
ScaleWidth = 735
TabIndex = 11
Top = 3600
Width = 735
End
Begin VB.PictureBox Statemig1
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 495
Left = 6000
ScaleHeight = 495
ScaleWidth = 735
TabIndex = 10
Top = 2880
Width = 735
End
Begin VB.PictureBox Mutemig
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 495
Left = 6000
ScaleHeight = 495
ScaleWidth = 735
TabIndex = 9
Top = 1440
Width = 735
Begin VB.Image Mutedangmig
Height = 255
Left = 240
Top = 120
Width = 255
End
End
Begin VB.PictureBox Jinmig
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 495
Left = 6000
ScaleHeight = 495
ScaleWidth = 735
TabIndex = 8
Top = 0
Width = 735
Begin VB.Image Dangmig
Height = 255
Left = 0
Top = 0
Width = 375
End
Begin VB.Image Jingmig
Height = 135
Left = 0
Stretch = -1 'True
Top = 240
Width = 15
End
End
Begin VB.PictureBox Closemig
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 495
Left = 5040
ScaleHeight = 495
ScaleWidth = 735
TabIndex = 7
Top = 4320
Width = 735
End
Begin VB.PictureBox Minmig
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 495
Left = 5040
ScaleHeight = 495
ScaleWidth = 735
TabIndex = 6
Top = 3600
Width = 735
End
Begin VB.PictureBox Playmig
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Enabled = 0 'False
Height = 495
Left = 5040
ScaleHeight = 495
ScaleWidth = 735
TabIndex = 5
Top = 2880
Width = 735
End
Begin VB.PictureBox Qianmig
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Enabled = 0 'False
Height = 495
Left = 5040
ScaleHeight = 495
ScaleWidth = 735
TabIndex = 4
Top = 2160
Width = 735
End
Begin VB.PictureBox Stopmig
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Enabled = 0 'False
Height = 495
Left = 5040
ScaleHeight = 495
ScaleWidth = 735
TabIndex = 3
Top = 1440
Width = 735
End
Begin VB.PictureBox Nextmig
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Enabled = 0 'False
Height = 495
Left = 5040
ScaleHeight = 495
ScaleWidth = 735
TabIndex = 2
Top = 720
Width = 735
End
Begin VB.PictureBox Openmig
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 495
Left = 5040
ScaleHeight = 495
ScaleWidth = 735
TabIndex = 1
Top = 0
Width = 735
End
Begin VB.PictureBox cd1
Height = 480
Left = 4440
ScaleHeight = 420
ScaleWidth = 1140
TabIndex = 14
Top = 2160
Width = 1200
End
Begin VB.PictureBox wmp
Height = 2655
Left = 0
ScaleHeight = 2595
ScaleWidth = 4875
TabIndex = 0
Top = 0
Visible = 0 'False
Width = 4935
End
End
Attribute VB_Name = "Form11"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim vol As Integer
Public Metop As Long
Public Meleft As Long
Public Jinb As Single
Public Dangleft As Integer
Public sta As Boolean
Public MusicIndex As Integer
Dim Meskin As String
Private Sub Closemig_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static Onmig As Boolean
With Closemig
'模拟MouseOut事件
If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then
ReleaseCapture
Onmig = False
Set .Picture = LoadPicture(App.Path & "\mp3\close1.gif")
Else
SetCapture .hWnd
If Onmig = False Then
Set .Picture = LoadPicture(App.Path & "\mp3\close2.gif")
Onmig = True
End If
End If
End With
End Sub
Private Sub Closemig_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then
Exit Sub
End If
SetWindowLong Me.hWnd, GWL_WNDPROC, preWinProc
End
End Sub
Private Sub Form_Load()
Dim n As Long
Meskin = "红粉菲菲"
wmp.settings.volume = 60
vol = wmp.settings.volume
Call Mp3skin
Me.Width = Picture1.Width
Me.Height = Picture1.Height
n = PicProc(Picture1)
SetWindowRgn Me.hWnd, n, True
Form16.Visible = False
Call Mp3list
ShowTitleBar Form16, False
Form16.Width = Form16.Picture1.Width
Form16.Height = Form16.Picture1.Height
n = PicProc(Form16.Picture1)
SetWindowRgn Form16.hWnd, n, True
preWinProc = GetWindowLong(Form11.hWnd, GWL_WNDPROC)
SetWindowLong Form11.hWnd, GWL_WNDPROC, AddressOf Wndproc
End Sub
Private Sub Form_Unload(Cancel As Integer)
SetWindowLong Me.hWnd, GWL_WNDPROC, preWinProc
End Sub
Private Sub HScroll1_Change()
End Sub
Private Sub Minmig_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static Onmig As Boolean
With Minmig
'模拟MouseOut事件
If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then
ReleaseCapture
Onmig = False
Set .Picture = LoadPicture(App.Path & "\mp3\min1.gif")
Else
SetCapture .hWnd
If Onmig = False Then
Set .Picture = LoadPicture(App.Path & "\mp3\min2.gif")
Onmig = True
End If
End If
End With
End Sub
Private Sub Minmig_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then
Exit Sub
End If
Me.Hide
Form16.Hide
SetWindowPos Form18.hWnd, -1, 0, 0, 0, 0, 3
Form18.Show
End Sub
Private Sub Nextmig_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static Onmig As Boolean
With Nextmig
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -