mainfrm.frm

vb 写的播放器 对新的开发者很有用。写的不错。非常实际

Private Sub BalanceScrollBar_KeyDown(KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub

Private Sub Form_Load()
LoadSetting
If TopFlag = True Then
 SetAllTop
 MenuFrm.MainfrmMenu_TopAllTime.Checked = True
Else
 SetAllNoTop
 MenuFrm.MainfrmMenu_TopAllTime.Checked = False
End If

Skin1.Picture = Skin_1.Picture
Skin2.Picture = Skin_2.Picture
Skin3.Picture = Skin_3.Picture
Skin4.Picture = Skin_4.Picture
Skin8.Picture = Skin_8.Picture
Skin9.Picture = Skin_9.Picture
Skin10.Picture = Skin_10.Picture
Skin11.Picture = Skin_11.Picture
Skin12.Picture = Skin_12.Picture
Skin13.Picture = Skin_13.Picture
Skin_main.Picture = Skin1.Picture
AddTray Mainfrm, MenuFrm.TrayMenu

If SimpleFlag1 = False Then
 BitBlt Skin_TitleBar.hDC, 0, 0, 300, 14, Skin3.hDC, 27, 0, SRCCOPY
Else
 BitBlt Mainfrm.Skin_TitleBar.hDC, 0, 0, 300, 14, Mainfrm.Skin3.hDC, 27, 29, SRCCOPY
 Mainfrm.Height = 215
 TitleBarButton(3).Visible = True
 TitleBarButton(4).Visible = True
 TitleBarButton(5).Visible = True
 TitleBarButton(6).Visible = True
 TitleBarButton(7).Visible = True
 TitleBarButton(8).Visible = True
 TitleBarButton(1).ToolTipText = "还原窗口模式"
End If

BitBlt Skin_cbuttons1.hDC, 0, 0, 300, 20, Skin2.hDC, 0, 0, SRCCOPY
BitBlt Skin_cbuttons2.hDC, 0, 0, 300, 20, Skin2.hDC, 114, 0, SRCCOPY

If ShuffleFlag = True Then
 BitBlt Skin_shuffle.hDC, 0, 0, 100, 20, Skin4.hDC, 28, 0, SRCCOPY '关闭
 Skin_shuffle.ToolTipText = "顺序播放"
 MenuFrm.MainfrmMenu_随机播放.Checked = False
 MenuFrm.TrayMenu_随机播放.Checked = False
Else
 BitBlt Skin_shuffle.hDC, 0, 0, 100, 20, Skin4.hDC, 28, 30, SRCCOPY
 Skin_shuffle.ToolTipText = "随机播放"
 MenuFrm.MainfrmMenu_随机播放.Checked = True
 MenuFrm.TrayMenu_随机播放.Checked = True
End If

If RepFlag = True Then
 BitBlt Skin_rep.hDC, 0, 0, 100, 20, Skin4.hDC, 0, 0, SRCCOPY '关闭
 Skin_rep.ToolTipText = "非循环播放"
 MenuFrm.MainfrmMenu_循环播放.Checked = False
 MenuFrm.TrayMenu_循环播放.Checked = False
Else
 BitBlt Skin_rep.hDC, 0, 0, 100, 20, Skin4.hDC, 0, 30, SRCCOPY
 Skin_rep.ToolTipText = "循环播放"
 MenuFrm.MainfrmMenu_循环播放.Checked = True
 MenuFrm.TrayMenu_循环播放.Checked = True
End If

BitBlt VolumeScrollBar.hDC, 0, 0, 80, 20, Skin8.hDC, 0, 150, SRCCOPY '15,30,45....
BitBlt Volume_ScrollBar.hDC, 0, 0, 18, 10, Skin8.hDC, 15, 422, SRCCOPY
BitBlt BalanceScrollBar.hDC, 0, 0, 110, 20, Skin9.hDC, 9, 210, SRCCOPY '15,30,45....
BitBlt Balance_ScrollBar.hDC, 0, 0, 18, 10, Skin9.hDC, 15, 422, SRCCOPY
BitBlt PosScrollBar.hDC, 0, 0, 248, 10, Skin10.hDC, 0, 0, SRCCOPY
BitBlt Pos_ScrollBar.hDC, 0, 0, 30, 10, Skin10.hDC, 248, 0, SRCCOPY
BitBlt Number(0).hDC, 0, 0, 12, 20, Skin11.hDC, 0, 0, SRCCOPY '9的倍数
BitBlt Number(1).hDC, 0, 0, 12, 20, Skin11.hDC, 0, 0, SRCCOPY
BitBlt Number(2).hDC, 0, 0, 12, 20, Skin11.hDC, 0, 0, SRCCOPY
BitBlt Number(3).hDC, 0, 0, 12, 20, Skin11.hDC, 0, 0, SRCCOPY
BitBlt OAIDV.hDC, 0, 0, 10, 45, Skin3.hDC, 305, 0, SRCCOPY
BitBlt Playpaus.hDC, 0, 0, 10, 10, Skin12.hDC, 18, 0, SRCCOPY
BitBlt Monoster(0).hDC, 0, 0, 30, 12, Skin13.hDC, 29, 12, SRCCOPY ',x=0,29
BitBlt Monoster(1).hDC, 0, 0, 30, 12, Skin13.hDC, 0, 0, SRCCOPY 'y=0,12

If MainFlag = True Then
 MenuFrm.TrayMenu_Mainfrm.Checked = True
 MenuFrm.MainfrmMenu_Mainfrm.Checked = True
Else
 MenuFrm.TrayMenu_Mainfrm.Checked = False
 MenuFrm.MainfrmMenu_Mainfrm.Checked = False
 Mainfrm.Hide
End If

If EQFlag = True Then
 BitBlt Skin_Eq.hDC, 0, 0, 100, 20, Skin4.hDC, 0, 73, SRCCOPY 'EQ打开时
 EQfrm.Show
 Skin_Eq.ToolTipText = "隐藏EQ"
 MenuFrm.TrayMenu_Eqfrm.Checked = True
 MenuFrm.MainfrmMenu_Eqfrm.Checked = True
Else
 BitBlt Skin_Eq.hDC, 0, 0, 100, 20, Skin4.hDC, 0, 61, SRCCOPY
 Skin_Eq.ToolTipText = "显示EQ"
 MenuFrm.TrayMenu_Eqfrm.Checked = False
 MenuFrm.MainfrmMenu_Eqfrm.Checked = False
End If
  
If PLFlag = True Then
 BitBlt Skin_Pl.hDC, 0, 0, 100, 20, Skin4.hDC, 23, 73, SRCCOPY 'PL打开时
 Listfrm.Show
 Skin_Pl.ToolTipText = "隐藏PlayList"
 MenuFrm.TrayMenu_Listfrm.Checked = True
 MenuFrm.MainfrmMenu_Listfrm.Checked = True
Else
 BitBlt Skin_Pl.hDC, 0, 0, 100, 20, Skin4.hDC, 23, 61, SRCCOPY
 Skin_Pl.ToolTipText = "显示PlayList"
 MenuFrm.TrayMenu_Listfrm.Checked = False
 MenuFrm.MainfrmMenu_Listfrm.Checked = False
End If

Dim sRet As String
sRet = String(255, " ")
SkDir = Left(sRet, GetPrivateProfileString("SETTING", "SkinDirectory", "", sRet, Len(sRet), App.Path & "\" & "Winamp.ini"))
Text1 = SkDir
LoadSkin SkDir

Set MyVolume = New clsVolume
MyVolume.meOpenMixer
MyVolume.prSpeakerVolume = VolumeValue

Dim CommandReturn As String
CommandReturn = Command
If CommandReturn = "" Then
 If Dir(App.Path & "\Winamp.m3u") <> "" Then Readm3u App.Path & "\Winamp.m3u"
ElseIf Mid(CommandReturn, InStr(CommandReturn, ".") + 1) = "m3u" Then
 Readm3u CommandReturn
Else
 Listfrm.List2.AddItem CommandReturn
 a = CommandReturn
 Do
  pos = InStr(a, "\")
  a = Mid(a, pos + 1)
 Loop Until pos = 0
 a = Left(a, InStr(a, ".") - 1)
 Listfrm.List1.AddItem a
End If
End Sub

Private Sub Form_Deactivate()
If SimpleFlag1 = False Then
 BitBlt Skin_TitleBar.hDC, 0, 0, 1500, 14, Skin3.hDC, 27, 15, SRCCOPY
 Skin_TitleBar.Refresh
Else
 BitBlt Skin_TitleBar.hDC, 0, 0, 1500, 14, Skin3.hDC, 27, 42, SRCCOPY
 Skin_TitleBar.Refresh
End If
End Sub


Private Sub BalanceScrollBar_Click()
MainfrmAct
ClearSonButton
End Sub

Private Sub Image1_Click()
MainfrmAct
ClearSonButton
ChangeSkin
End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
MainfrmAct
ClearSonButton
MouseDown x, y
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
MouseMove x, y, Mainfrm
End Sub
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
MouseUp
End Sub

Private Sub MainMenu_Click()
MainfrmAct
ClearSonButton
PopupMenu MenuFrm.MainfrmMenu, vbPopupMenuLeftAlign Or vbPopupMenuRightButton
End Sub

Private Sub Monoster_Click(Index As Integer)
MainfrmAct
ClearSonButton
End Sub
Private Sub Monoster_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub

Private Sub Number_Click(Index As Integer)
MainfrmAct
ClearSonButton
End Sub

Private Sub OAIDVbutton_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
MainfrmAct
ClearSonButton
BitBlt OAIDV.hDC, 0, 0, 10, 45, Skin3.hDC, 305 + 8 * Index, 44, SRCCOPY
OAIDV.Refresh
End Sub
Private Sub OAIDVbutton_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
BitBlt OAIDV.hDC, 0, 0, 10, 45, Skin3.hDC, 305, 0, SRCCOPY
OAIDV.Refresh
End Sub

Private Sub Pos_ScrollBar_KeyDown(KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub
Private Sub PosScrollBar_KeyDown(KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub

'刷新
Private Sub ReFlashForm_Timer()
MainfrmAct
EQfrmAct
ListfrmAct
ReFlashForm.Enabled = False
End Sub

Private Sub Skin_cbuttons2_KeyDown(KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub

Private Sub Skin_Eq_KeyDown(KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub
Private Sub Skin_Eq_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
MainfrmAct
ClearSonButton
If EQFlag = True Then 'x 0,46,    y 61,73
 BitBlt Skin_Eq.hDC, 0, 0, 100, 20, Skin4.hDC, 46, 73, SRCCOPY
 Skin_Eq.Refresh
Else
 BitBlt Skin_Eq.hDC, 0, 0, 100, 20, Skin4.hDC, 46, 61, SRCCOPY
 Skin_Eq.Refresh
End If
End Sub

Private Sub Skin_Eq_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If EQFlag = True Then
 If y >= 0 And y <= Skin_Eq.Height And x >= 0 And x <= Skin_Eq.Width Then
  BitBlt Skin_Eq.hDC, 0, 0, 100, 20, Skin4.hDC, 0, 61, SRCCOPY
  Skin_Eq.Refresh
  EQfrm.Hide
  EQFlag = False
  Skin_Eq.ToolTipText = "显示EQ"
  MenuFrm.TrayMenu_Eqfrm.Checked = False
  MenuFrm.MainfrmMenu_Eqfrm.Checked = False
 Else
  BitBlt Skin_Eq.hDC, 0, 0, 100, 20, Skin4.hDC, 0, 73, SRCCOPY
  Skin_Eq.Refresh
 End If
Else
 If y >= 0 And y <= Skin_Eq.Height And x >= 0 And x <= Skin_Eq.Width Then
  BitBlt Skin_Eq.hDC, 0, 0, 100, 20, Skin4.hDC, 0, 73, SRCCOPY
  Skin_Eq.Refresh
  EQfrm.Show
  EQFlag = True
  Skin_Eq.ToolTipText = "隐藏EQ"
  Listfrm.Top = EQfrm.Top + EQfrm.Height
  Listfrm.Left = Mainfrm.Left
  MenuFrm.TrayMenu_Eqfrm.Checked = True
  MenuFrm.MainfrmMenu_Eqfrm.Checked = True
 Else
  BitBlt Skin_Eq.hDC, 0, 0, 100, 20, Skin4.hDC, 0, 61, SRCCOPY
  Skin_Eq.Refresh
 End If
End If
MainfrmAct
End Sub

Private Sub Skin_main_KeyDown(KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub
Private Sub Skin_main_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
MainfrmAct
ClearSonButton
MouseDown x, y
End Sub
Private Sub Skin_main_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
MouseMove x, y, Mainfrm
End Sub
Private Sub Skin_main_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
MouseUp
End Sub

Private Sub Skin_Pl_KeyDown(KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub
Private Sub Skin_Pl_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
MainfrmAct
ClearSonButton
If PLFlag = True Then 'x 23,69,    y 61,73
 BitBlt Skin_Pl.hDC, 0, 0, 100, 20, Skin4.hDC, 69, 73, SRCCOPY
 Skin_Pl.Refresh
Else
 BitBlt Skin_Pl.hDC, 0, 0, 100, 20, Skin4.hDC, 69, 61, SRCCOPY
 Skin_Pl.Refresh
End If
End Sub
Private Sub Skin_Pl_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If PLFlag = True Then
 If y >= 0 And y <= Skin_Pl.Height And x >= 0 And x <= Skin_Pl.Width Then
  BitBlt Skin_Pl.hDC, 0, 0, 100, 20, Skin4.hDC, 23, 61, SRCCOPY
  Skin_Pl.Refresh
  Listfrm.Hide
  PLFlag = False
  Skin_Pl.ToolTipText = "显示PlayList"
  MenuFrm.TrayMenu_Listfrm.Checked = False
  MenuFrm.MainfrmMenu_Listfrm.Checked = False
 Else
  BitBlt Skin_Pl.hDC, 0, 0, 100, 20, Skin4.hDC, 23, 73, SRCCOPY
  Skin_Pl.Refresh
 End If
Else
 If y >= 0 And y <= Skin_Pl.Height And x >= 0 And x <= Skin_Pl.Width Then
  BitBlt Skin_Pl.hDC, 0, 0, 100, 20, Skin4.hDC, 23, 73, SRCCOPY
  Skin_Pl.Refresh
  Listfrm.Show
  PLFlag = True
  Skin_Pl.ToolTipText = "隐藏PlayList"
  Listfrm.Top = EQfrm.Top + EQfrm.Height
  Listfrm.Left = Mainfrm.Left
  MenuFrm.TrayMenu_Listfrm.Checked = True
  MenuFrm.MainfrmMenu_Listfrm.Checked = True
 Else
  BitBlt Skin_Pl.hDC, 0, 0, 100, 20, Skin4.hDC, 23, 61, SRCCOPY
  Skin_Pl.Refresh
 End If
End If
MainfrmAct
End Sub

Private Sub Skin_rep_KeyDown(KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub

Private Sub Skin_shuffle_KeyDown(KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub

Private Sub Skin_TitleBar_KeyDown(KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub
Private Sub Skin_TitleBar_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
MainfrmAct
ClearSonButton
MouseDown x, y
End Sub
Private Sub Skin_TitleBar_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
MouseMove x, y, Mainfrm
End Sub
Private Sub Skin_TitleBar_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
MouseUp
End Sub

Private Sub Skin_cbuttons1_1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
MainfrmAct
ClearSonButton
BitBlt Skin_cbuttons1.hDC, 0, 0, 24, 20, Skin2.hDC, 0, 18, SRCCOPY
Skin_cbuttons1.Refresh
End Sub
Private Sub Skin_cbuttons1_1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
BitBlt Skin_cbuttons1.hDC, 0, 0, 24, 20, Skin2.hDC, 0, 0, SRCCOPY
Skin_cbuttons1.Refresh
If y >= 0 And y <= Skin_cbuttons1_1.Height And x >= 0 And x <= Skin_cbuttons1_1.Width Then
 BitBlt Playpaus.hDC, 0, 0, 10, 10, Skin12.hDC, 0, 0, SRCCOPY
 Playpaus.Refresh
 LastMusic

End If
End Sub

Private Sub Skin_cbuttons1_2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
MainfrmAct
ClearSonButton
BitBlt Skin_cbuttons1.hDC, 23, 0, 24, 20, Skin2.hDC, 23, 18, SRCCOPY
Skin_cbuttons1.Refresh
End Sub
Private Sub Skin_cbuttons1_2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
BitBlt Skin_cbuttons1.hDC, 23, 0, 24, 20, Skin2.hDC, 23, 0, SRCCOPY
Skin_cbuttons1.Refresh
If y >= 0 And y <= Skin_cbuttons1_1.Height And x >= 0 And x <= Skin_cbuttons1_1.Width Then
 BitBlt Playpaus.hDC, 0, 0, 10, 10, Skin12.hDC, 0, 0, SRCCOPY
 Playpaus.Refresh
 
 GetMciMode
 If MciMode = "paused" & Chr(0) & Chr(0) Then
  mciExecute ("resume Media1")
 Else
  If Listfrm.List2.ListIndex = -1 Then Exit Sub
  Play Listfrm.List2.Text
 End If

End If
End Sub

Private Sub Skin_cbuttons1_3_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
MainfrmAct
ClearSonButton
BitBlt Skin_cbuttons1.hDC, 46, 0, 24, 20, Skin2.hDC, 46, 18, SRCCOPY
Skin_cbuttons1.Refresh
End Sub
Private Sub Skin_cbuttons1_3_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
BitBlt Skin_cbuttons1.hDC, 46, 0, 24, 20, Skin2.hDC, 46, 0, SRCCOPY
Skin_cbuttons1.Refresh
If y >= 0 And y <= Skin_cbuttons1_1.Height And x >= 0 And x <= Skin_cbuttons1_1.Width Then
 BitBlt Playpaus.hDC, 0, 0, 10, 10, Skin12.hDC, 9, 0, SRCCOPY
 Playpaus.Refresh
 Pause

End If
End Sub