listfrm.frm

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

'  编写日期：2005年08月30日
' **********************************************************************

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Const SRCCOPY = &HCC0020
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_SETANCHORINDEX = &H19C
Private Const LB_ITEMFROMPOINT = &H1A9

Private Declare Sub DragAcceptFiles Lib "shell32.dll" (ByVal hwnd As Long, ByVal fAccept As Long)

Public SimpleFlag2 As Boolean
Public Button1Flag As Boolean
Public Button2Flag As Boolean
Public Button3Flag As Boolean
Public Button4Flag As Boolean
Public Button5Flag As Boolean

Dim DownScroll As Integer
Dim UpScroll As Integer
Dim ScrollFlag As Boolean
Dim ScrollX As Integer
Dim ScrollY As Integer
Dim LastScrollTop As Integer
Dim ListMouseDownFlag As Boolean
Dim ListKeyDownFlag As Boolean

Dim List1Text1 As String
Dim List1Text2 As String
Dim List1Index1 As Integer
Dim List1Index2 As Integer
Dim List2Text1 As String
Dim List2Text2 As String
Dim List2Index1 As Integer
Dim List2Index2 As Integer

Private Sub Command1_Click()
If DownScroll = 6 Then Exit Sub
UpScroll = UpScroll - 1
DownScroll = UpScroll + 6
SendMessage List1.hwnd, LB_SETANCHORINDEX, UpScroll, False
End Sub
Private Sub Command2_Click()
If DownScroll = List1.ListCount - 1 Then Exit Sub
DownScroll = DownScroll + 1
UpScroll = DownScroll - 6
SendMessage List1.hwnd, LB_SETANCHORINDEX, DownScroll, False
End Sub

Private Sub Form_Deactivate()
If SimpleFlag2 = True Then Exit Sub
BitBlt Skin_PlayList1(0).hDC, 0, 0, 35, 22, Skin5.hDC, 0, 21, SRCCOPY
Skin_PlayList1(0).Refresh
BitBlt Skin_PlayList1(1).hDC, 0, 0, 35, 22, Skin5.hDC, 127, 21, SRCCOPY
Skin_PlayList1(1).Refresh
BitBlt Skin_PlayList1(2).hDC, 0, 0, 35, 22, Skin5.hDC, 127, 21, SRCCOPY
Skin_PlayList1(2).Refresh
BitBlt Skin_PlayList1(3).hDC, 0, 0, 35, 22, Skin5.hDC, 127, 21, SRCCOPY
Skin_PlayList1(3).Refresh
BitBlt Skin_PlayList1(4).hDC, 0, 0, 200, 22, Skin5.hDC, 26, 21, SRCCOPY
Skin_PlayList1(4).Refresh
BitBlt Skin_PlayList1(5).hDC, 0, 0, 35, 22, Skin5.hDC, 127, 21, SRCCOPY
Skin_PlayList1(5).Refresh
BitBlt Skin_PlayList1(6).hDC, 0, 0, 35, 22, Skin5.hDC, 127, 21, SRCCOPY
Skin_PlayList1(6).Refresh
BitBlt Skin_PlayList1(7).hDC, 0, 0, 35, 22, Skin5.hDC, 127, 21, SRCCOPY
Skin_PlayList1(7).Refresh
BitBlt Skin_PlayList1(8).hDC, 0, 0, 35, 22, Skin5.hDC, 153, 21, SRCCOPY
Skin_PlayList1(8).Refresh

End Sub

Private Sub Form_Load()
DragAcceptFiles List1.hwnd, True
lPhWnd = SetWindowLong(List1.hwnd, GWL_WNDPROC, AddressOf WndProc)

Skin5.Picture = Skin_5.Picture
Skin14.Picture = Skin_14.Picture
If SimpleFlag2 = False Then
 BitBlt Skin_PlayList1(0).hDC, 0, 0, 35, 22, Skin5.hDC, 0, 0, SRCCOPY
 BitBlt Skin_PlayList1(1).hDC, 0, 0, 35, 22, Skin5.hDC, 127, 0, SRCCOPY
 BitBlt Skin_PlayList1(2).hDC, 0, 0, 35, 22, Skin5.hDC, 127, 0, SRCCOPY
 BitBlt Skin_PlayList1(3).hDC, 0, 0, 35, 22, Skin5.hDC, 127, 0, SRCCOPY
 BitBlt Skin_PlayList1(4).hDC, 0, 0, 200, 22, Skin5.hDC, 26, 0, SRCCOPY
 BitBlt Skin_PlayList1(5).hDC, 0, 0, 35, 22, Skin5.hDC, 127, 0, SRCCOPY
 BitBlt Skin_PlayList1(6).hDC, 0, 0, 35, 22, Skin5.hDC, 127, 0, SRCCOPY
 BitBlt Skin_PlayList1(7).hDC, 0, 0, 35, 22, Skin5.hDC, 127, 0, SRCCOPY
 BitBlt Skin_PlayList1(8).hDC, 0, 0, 35, 22, Skin5.hDC, 153, 0, SRCCOPY
Else
 
 
 
 
 
 
 
 BitBlt Listfrm.Skin_PlayList1(0).hDC, 0, 0, 25, 14, Listfrm.Skin5.hDC, 72, 42, SRCCOPY
 For i = 1 To 4
  BitBlt Listfrm.Skin_PlayList1(i).hDC, 0, 0, 25, 14, Listfrm.Skin5.hDC, 72, 57, SRCCOPY
 Next i
 BitBlt Listfrm.Skin_PlayList1(4).hDC, 24, 0, 25, 14, Listfrm.Skin5.hDC, 72, 57, SRCCOPY
 BitBlt Listfrm.Skin_PlayList1(4).hDC, 48, 0, 25, 14, Listfrm.Skin5.hDC, 72, 57, SRCCOPY
 BitBlt Listfrm.Skin_PlayList1(4).hDC, 72, 0, 25, 14, Listfrm.Skin5.hDC, 72, 57, SRCCOPY
 BitBlt Listfrm.Skin_PlayList1(5).hDC, 0, 0, 25, 14, Listfrm.Skin5.hDC, 72, 57, SRCCOPY
 BitBlt Listfrm.Skin_PlayList1(6).hDC, 0, 0, 25, 14, Listfrm.Skin5.hDC, 72, 57, SRCCOPY
 BitBlt Listfrm.Skin_PlayList1(7).hDC, 0, 0, 25, 14, Listfrm.Skin5.hDC, 72, 57, SRCCOPY
 BitBlt Listfrm.Skin_PlayList1(8).hDC, 0, 0, 25, 14, Listfrm.Skin5.hDC, 124, 57, SRCCOPY
 Listfrm.Height = 210
 Listfrm.PlayListBar(1).ToolTipText = "还原PlayList"
End If
BitBlt Skin_PlayList2(0).hDC, 0, 0, 35, 22, Skin5.hDC, 0, 42, SRCCOPY
BitBlt Skin_PlayList2(1).hDC, 0, 0, 35, 22, Skin5.hDC, 0, 42, SRCCOPY
BitBlt Skin_PlayList2(2).hDC, 0, 0, 35, 22, Skin5.hDC, 0, 42, SRCCOPY
BitBlt Skin_PlayList2(3).hDC, 0, 0, 35, 22, Skin5.hDC, 0, 42, SRCCOPY
BitBlt Skin_PlayList2(4).hDC, 0, 0, 35, 22, Skin5.hDC, 0, 42, SRCCOPY
BitBlt Skin_PlayList3(0).hDC, 0, 0, 35, 22, Skin5.hDC, 31, 42, SRCCOPY
BitBlt Skin_PlayList3(1).hDC, 0, 0, 35, 22, Skin5.hDC, 31, 42, SRCCOPY
BitBlt Skin_PlayList3(2).hDC, 0, 0, 35, 22, Skin5.hDC, 31, 42, SRCCOPY
BitBlt Skin_PlayList3(3).hDC, 0, 0, 35, 22, Skin5.hDC, 31, 42, SRCCOPY
BitBlt Skin_PlayList3(4).hDC, 0, 0, 35, 22, Skin5.hDC, 31, 42, SRCCOPY
BitBlt Skin_PlayList4(0).hDC, 0, 0, 130, 100, Skin5.hDC, 0, 72, SRCCOPY
BitBlt Skin_PlayList4(1).hDC, 0, 0, 150, 100, Skin5.hDC, 126, 72, SRCCOPY
BitBlt Skin_Scroll.hDC, 0, 0, 150, 100, Skin5.hDC, 52, 53, SRCCOPY
'BitBlt PlayListButton1(0).hDC, 0, 0, 50, 50, Skin5.hDC, 11, 80, SRCCOPY
'BitBlt PlayListButton2(0).hDC, 0, 0, 50, 50, Skin5.hDC, 40, 80, SRCCOPY
'BitBlt PlayListButton3(0).hDC, 0, 0, 50, 50, Skin5.hDC, 69, 80, SRCCOPY
'BitBlt PlayListButton4(0).hDC, 0, 0, 50, 50, Skin5.hDC, 98, 80, SRCCOPY
'BitBlt PlayListButton5(0).hDC, 0, 0, 50, 50, Skin5.hDC, 229, 80, SRCCOPY

BitBlt PLText.hDC, 0, 0, 5, 6, Skin14.hDC, 0, 6, SRCCOPY
BitBlt PLText.hDC, 5, 0, 5, 6, Skin14.hDC, 0, 6, SRCCOPY
BitBlt PLText.hDC, 10, 0, 5, 6, Skin14.hDC, 5 * 12, 6, SRCCOPY
BitBlt PLText.hDC, 15, 0, 5, 6, Skin14.hDC, 0, 6, SRCCOPY
BitBlt PLText.hDC, 20, 0, 5, 6, Skin14.hDC, 0, 6, SRCCOPY


DownScroll = 6
End Sub



Private Sub List1_DblClick()
Play List2.Text
BitBlt Mainfrm.Playpaus.hDC, 0, 0, 10, 10, Mainfrm.Skin12.hDC, 0, 0, SRCCOPY
Mainfrm.Playpaus.Refresh
End Sub

Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
Timer2.Enabled = True
KeyDown KeyCode
Select Case KeyCode
Case 46
 Listfrm.List1.RemoveItem Listfrm.List1.ListIndex
 Listfrm.List2.RemoveItem Listfrm.List2.ListIndex
Case 13
 Play List2.Text

End Select
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
ListMouseDownFlag = True
ListfrmAct
ClearSonButton

If Button = 2 Then
 Dim rc As Long
 Dim xx As Long
 Dim yy As Long
 xx = x / Screen.TwipsPerPixelX
 yy = y / Screen.TwipsPerPixelY
 rc = SendMessage(List1.hwnd, LB_ITEMFROMPOINT, 0, ByVal (yy * 65536 + xx))
 If (rc >= 0) And (rc <= List1.ListCount) Then
  List1.ListIndex = rc
  PopupMenu MenuFrm.ListfrmMenu, vbPopupMenuLeftAlign Or vbPopupMenuRightButton
 End If
End If

If List1.ListCount > 1 Then
 List1Text1 = List1.Text
 List2Text1 = List2.List(List1.ListIndex)
 List1Index1 = List1.ListIndex
 List2Index1 = List1.ListIndex
End If
End Sub

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If ListMouseDownFlag = True Then Timer2.Enabled = True
End Sub

Private Sub List1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
ListMouseDownFlag = False

If List1.ListCount > 1 Then
 List1Text2 = List1.Text
 List2Text2 = List2.Text
 List1Index2 = List1.ListIndex
 List2Index2 = List2.ListIndex
 List1.List(List1Index1) = List1Text2
 List2.List(List2Index1) = List2Text2
 List1.List(List1Index2) = List1Text1
 List2.List(List2Index2) = List2Text1
End If
End Sub


Private Sub PlayListBar_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
ListfrmAct
ClearSonButton
Select Case Index
 Case 0 '关闭按钮
  BitBlt Skin_PlayList1(8).hDC, 14, 3, 9, 9, Skin5.hDC, 52, 42, SRCCOPY
  Skin_PlayList1(8).Refresh
  
 Case 1 '精简按钮
  BitBlt Skin_PlayList1(8).hDC, 5, 3, 9, 9, Skin5.hDC, 62, 42, SRCCOPY
  Skin_PlayList1(8).Refresh
 
End Select
End Sub

Private Sub PlayListBar_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Select Case Index
 Case 0 '关闭按钮
  If y >= 0 And y <= PlayListBar(0).Height And x >= 0 And x <= PlayListBar(0).Width Then
   BitBlt Mainfrm.Skin_Pl.hDC, 0, 0, 100, 20, Mainfrm.Skin4.hDC, 23, 61, SRCCOPY
   Mainfrm.Skin_Pl.Refresh
   Mainfrm.Skin_Pl.ToolTipText = "显示PlayList"
   Me.Hide
   Mainfrm.PLFlag = False
   MenuFrm.TrayMenu_Listfrm.Checked = False
   MenuFrm.MainfrmMenu_Listfrm.Checked = False
  Else
   BitBlt Skin_PlayList1(8).hDC, 14, 3, 9, 9, Skin5.hDC, 167, 3, SRCCOPY
   Skin_PlayList1(8).Refresh
  End If
  
 
 Case 1 '精简按钮
  If y >= 0 And y <= PlayListBar(0).Height And x >= 0 And x <= PlayListBar(0).Width Then
   If SimpleFlag2 = False Then
    BitBlt Skin_PlayList1(0).hDC, 0, 0, 25, 13, Skin5.hDC, 72, 42, SRCCOPY
    Skin_PlayList1(0).Refresh
    For i = 1 To 4
     BitBlt Skin_PlayList1(i).hDC, 0, 0, 25, 13, Skin5.hDC, 72, 57, SRCCOPY
     Skin_PlayList1(i).Refresh
    Next i
    BitBlt Skin_PlayList1(4).hDC, 24, 0, 25, 13, Skin5.hDC, 72, 57, SRCCOPY
    Skin_PlayList1(4).Refresh
    BitBlt Skin_PlayList1(4).hDC, 48, 0, 25, 13, Skin5.hDC, 72, 57, SRCCOPY
    Skin_PlayList1(4).Refresh
    BitBlt Skin_PlayList1(4).hDC, 72, 0, 25, 13, Skin5.hDC, 72, 57, SRCCOPY
    Skin_PlayList1(4).Refresh
    BitBlt Skin_PlayList1(5).hDC, 0, 0, 25, 13, Skin5.hDC, 72, 57, SRCCOPY
    Skin_PlayList1(5).Refresh
    BitBlt Skin_PlayList1(6).hDC, 0, 0, 25, 13, Skin5.hDC, 72, 57, SRCCOPY
    Skin_PlayList1(6).Refresh
    BitBlt Skin_PlayList1(7).hDC, 0, 0, 25, 13, Skin5.hDC, 72, 57, SRCCOPY
    Skin_PlayList1(7).Refresh
    BitBlt Skin_PlayList1(8).hDC, 0, 0, 25, 12, Skin5.hDC, 124, 57, SRCCOPY
    Skin_PlayList1(8).Refresh
    Listfrm.Height = 210
    SimpleFlag2 = True
    PlayListBar(1).ToolTipText = "还原PlayList"
   Else
    BitBlt Skin_PlayList1(0).hDC, 0, 0, 35, 22, Skin5.hDC, 0, 0, SRCCOPY
    Skin_PlayList1(0).Refresh
    BitBlt Skin_PlayList1(1).hDC, 0, 0, 35, 22, Skin5.hDC, 127, 0, SRCCOPY
    Skin_PlayList1(1).Refresh
    BitBlt Skin_PlayList1(2).hDC, 0, 0, 35, 22, Skin5.hDC, 127, 0, SRCCOPY
    Skin_PlayList1(2).Refresh
    BitBlt Skin_PlayList1(3).hDC, 0, 0, 35, 22, Skin5.hDC, 127, 0, SRCCOPY
    Skin_PlayList1(3).Refresh
    BitBlt Skin_PlayList1(4).hDC, 0, 0, 200, 22, Skin5.hDC, 26, 0, SRCCOPY
    Skin_PlayList1(4).Refresh
    BitBlt Skin_PlayList1(5).hDC, 0, 0, 35, 22, Skin5.hDC, 127, 0, SRCCOPY
    Skin_PlayList1(5).Refresh
    BitBlt Skin_PlayList1(6).hDC, 0, 0, 35, 22, Skin5.hDC, 127, 0, SRCCOPY
    Skin_PlayList1(6).Refresh
    BitBlt Skin_PlayList1(7).hDC, 0, 0, 35, 22, Skin5.hDC, 127, 0, SRCCOPY
    Skin_PlayList1(7).Refresh
    BitBlt Skin_PlayList1(8).hDC, 0, 0, 35, 22, Skin5.hDC, 153, 0, SRCCOPY
    Skin_PlayList1(8).Refresh
    Listfrm.Height = 2310
    SimpleFlag2 = False
    PlayListBar(1).ToolTipText = "切换成条状模式"
   End If
  Else
   BitBlt Skin_PlayList1(8).hDC, 5, 3, 9, 9, Skin5.hDC, 158, 24, SRCCOPY
   Skin_PlayList1(8).Refresh
  End If
End Select
End Sub
Private Sub Button1_Click()
ClearSonButton
Button1Flag = True
PlayListButton1(0).Visible = True
PlayListButton1(1).Visible = True
PlayListButton1(2).Visible = True
BitBlt PlayListButton1(0).hDC, 0, 0, 22, 17, Skin5.hDC, 0, 150, SRCCOPY
BitBlt PlayListButton1(0).hDC, 22, 0, 3, 17, Skin5.hDC, 48, 148, SRCCOPY
BitBlt PlayListButton1(1).hDC, 0, 0, 22, 19, Skin5.hDC, 0, 130, SRCCOPY
BitBlt PlayListButton1(1).hDC, 22, 0, 3, 18, Skin5.hDC, 48, 129, SRCCOPY
BitBlt PlayListButton1(2).hDC, 0, 0, 22, 19, Skin5.hDC, 0, 111, SRCCOPY
BitBlt PlayListButton1(2).hDC, 22, 0, 3, 18, Skin5.hDC, 48, 111, SRCCOPY
PlayListButton1(0).Refresh
PlayListButton1(1).Refresh
PlayListButton1(2).Refresh
End Sub
Private Sub Button2_Click()
ClearSonButton
Button2Flag = True
PlayListButton2(0).Visible = True
PlayListButton2(1).Visible = True
PlayListButton2(2).Visible = True
PlayListButton2(3).Visible = True
BitBlt PlayListButton2(0).hDC, 0, 0, 22, 18, Skin5.hDC, 54, 149, SRCCOPY
BitBlt PlayListButton2(0).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 147, SRCCOPY
BitBlt PlayListButton2(1).hDC, 0, 0, 22, 19, Skin5.hDC, 54, 130, SRCCOPY
BitBlt PlayListButton2(1).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 128, SRCCOPY
BitBlt PlayListButton2(2).hDC, 0, 0, 22, 19, Skin5.hDC, 54, 111, SRCCOPY
BitBlt PlayListButton2(2).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 111, SRCCOPY
BitBlt PlayListButton2(3).hDC, 0, 0, 22, 19, Skin5.hDC, 54, 168, SRCCOPY
BitBlt PlayListButton2(3).hDC, 22, 0, 3, 18, Skin5.hDC, 100, 165, SRCCOPY
PlayListButton2(0).Refresh
PlayListButton2(1).Refresh
PlayListButton2(2).Refresh
PlayListButton2(3).Refresh
End Sub
Private Sub Button3_Click()
ClearSonButton
Button3Flag = True
PlayListButton3(0).Visible = True
PlayListButton3(1).Visible = True
PlayListButton3(2).Visible = True
BitBlt PlayListButton3(0).hDC, 0, 0, 22, 17, Skin5.hDC, 127, 150, SRCCOPY
BitBlt PlayListButton3(0).hDC, 22, 0, 3, 17, Skin5.hDC, 150, 148, SRCCOPY
BitBlt PlayListButton3(1).hDC, 0, 0, 22, 19, Skin5.hDC, 104, 130, SRCCOPY
BitBlt PlayListButton3(1).hDC, 22, 0, 3, 18, Skin5.hDC, 150, 129, SRCCOPY
BitBlt PlayListButton3(2).hDC, 0, 0, 22, 19, Skin5.hDC, 104, 111, SRCCOPY
BitBlt PlayListButton3(2).hDC, 22, 0, 3, 18, Skin5.hDC, 150, 111, SRCCOPY
PlayListButton3(0).Refresh
PlayListButton3(1).Refresh
PlayListButton3(2).Refresh
End Sub
Private Sub Button4_Click()
ClearSonButton
Button4Flag = True
PlayListButton4(0).Visible = True
PlayListButton4(1).Visible = True
PlayListButton4(2).Visible = True
BitBlt PlayListButton4(0).hDC, 0, 0, 22, 17, Skin5.hDC, 154, 150, SRCCOPY
BitBlt PlayListButton4(0).hDC, 22, 0, 3, 17, Skin5.hDC, 200, 148, SRCCOPY
BitBlt PlayListButton4(1).hDC, 0, 0, 22, 19, Skin5.hDC, 154, 130, SRCCOPY
BitBlt PlayListButton4(1).hDC, 22, 0, 3, 18, Skin5.hDC, 200, 129, SRCCOPY
BitBlt PlayListButton4(2).hDC, 0, 0, 22, 19, Skin5.hDC, 154, 111, SRCCOPY
BitBlt PlayListButton4(2).hDC, 22, 0, 3, 18, Skin5.hDC, 200, 111, SRCCOPY
PlayListButton4(0).Refresh
PlayListButton4(1).Refresh
PlayListButton4(2).Refresh
End Sub
Private Sub Button5_Click()
ClearSonButton
Button5Flag = True
PlayListButton5(0).Visible = True
PlayListButton5(1).Visible = True
PlayListButton5(2).Visible = True
BitBlt PlayListButton5(0).hDC, 0, 0, 22, 17, Skin5.hDC, 204, 150, SRCCOPY
BitBlt PlayListButton5(0).hDC, 22, 0, 3, 17, Skin5.hDC, 250, 148, SRCCOPY
BitBlt PlayListButton5(1).hDC, 0, 0, 22, 19, Skin5.hDC, 204, 130, SRCCOPY
BitBlt PlayListButton5(1).hDC, 22, 0, 3, 18, Skin5.hDC, 250, 129, SRCCOPY
BitBlt PlayListButton5(2).hDC, 0, 0, 22, 19, Skin5.hDC, 204, 111, SRCCOPY
BitBlt PlayListButton5(2).hDC, 22, 0, 3, 18, Skin5.hDC, 250, 111, SRCCOPY
PlayListButton5(0).Refresh
PlayListButton5(1).Refresh
PlayListButton5(2).Refresh
End Sub


Private Sub PlayListButton1_Click(Index As Integer)
Select Case Index
Case 0
 AddSong1
Case 1
 rc = BrowseForFolder(Mainfrm, "打开目录", Mainfrm.StartDir3)
 If rc <> "" Then
  SearchFile rc
  Mainfrm.StartDir3 = rc
 End If
End Select
ClearSonButton
End Sub

Private Sub PlayListButton1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Select Case Index
Case 0
 If Button1Flag = False Then Exit Sub
 BitBlt PlayListButton1(0).hDC, 0, 0, 22, 17, Skin5.hDC, 23, 150, SRCCOPY
 BitBlt PlayListButton1(0).hDC, 22, 0, 3, 17, Skin5.hDC, 48, 148, SRCCOPY
 BitBlt PlayListButton1(1).hDC, 0, 0, 22, 19, Skin5.hDC, 0, 130, SRCCOPY
 BitBlt PlayListButton1(1).hDC, 22, 0, 3, 18, Skin5.hDC, 48, 129, SRCCOPY
 BitBlt PlayListButton1(2).hDC, 0, 0, 22, 19, Skin5.hDC, 0, 111, SRCCOPY
 BitBlt PlayListButton1(2).hDC, 22, 0, 3, 18, Skin5.hDC, 48, 111, SRCCOPY
 PlayListButton1(0).Refresh
 PlayListButton1(1).Refresh
 PlayListButton1(2).Refresh
Case 1
 BitBlt PlayListButton1(0).hDC, 0, 0, 22, 17, Skin5.hDC, 0, 150, SRCCOPY