📄 winampskin.bas

📁 vb 写的播放器对新的开发者很有用。写的不错。非常实际
💻 BAS
📖 第 1 页 / 共 2 页
字号:
上一页 12

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

End If

Mainfrm.Text2 = Mainfrm.Text1 & "\Volume.bmp"
If Dir(Mainfrm.Text2) <> "" Then
 Mainfrm.Skin8.Picture = LoadPicture(Mainfrm.Text2)
 BitBlt Mainfrm.VolumeScrollBar.hDC, 0, 0, 80, 20, Mainfrm.Skin8.hDC, 0, 150, SRCCOPY '15,30,45....
 Mainfrm.VolumeScrollBar.Refresh
 BitBlt Mainfrm.Volume_ScrollBar.hDC, 0, 0, 18, 10, Mainfrm.Skin8.hDC, 15, 422, SRCCOPY
 Mainfrm.Volume_ScrollBar.Refresh
End If

Mainfrm.Text2 = Mainfrm.Text1 & "\balance.bmp"
If Dir(Mainfrm.Text2) <> "" Then
 Mainfrm.Skin9.Picture = LoadPicture(Mainfrm.Text2)
 BitBlt Mainfrm.BalanceScrollBar.hDC, 0, 0, 110, 20, Mainfrm.Skin9.hDC, 9, 210, SRCCOPY '15,30,45....
 Mainfrm.BalanceScrollBar.Refresh
 BitBlt Mainfrm.Balance_ScrollBar.hDC, 0, 0, 18, 10, Mainfrm.Skin9.hDC, 15, 422, SRCCOPY
 Mainfrm.Balance_ScrollBar.Refresh
End If

Mainfrm.Text2 = Mainfrm.Text1 & "\posbar.bmp"
If Dir(Mainfrm.Text2) <> "" Then
 Mainfrm.Skin10.Picture = LoadPicture(Mainfrm.Text2)
 BitBlt Mainfrm.PosScrollBar.hDC, 0, 0, 248, 10, Mainfrm.Skin10.hDC, 0, 0, SRCCOPY
 Mainfrm.PosScrollBar.Refresh
 BitBlt Mainfrm.Pos_ScrollBar.hDC, 0, 0, 30, 10, Mainfrm.Skin10.hDC, 248, 0, SRCCOPY
 Mainfrm.Pos_ScrollBar.Refresh
End If

Mainfrm.Text2 = Mainfrm.Text1 & "\Numbers.bmp"
If Dir(Mainfrm.Text2) <> "" Then
 Mainfrm.Skin11.Picture = LoadPicture(Mainfrm.Text2)
 For i = 0 To 3
  BitBlt Mainfrm.Number(i).hDC, 0, 0, 12, 20, Mainfrm.Skin11.hDC, 0, 0, SRCCOPY '9的倍数
  Mainfrm.Number(i).Refresh
 Next i
End If

Mainfrm.Text2 = Mainfrm.Text1 & "\Nums_ex.bmp"
If Dir(Mainfrm.Text2) <> "" Then
 Mainfrm.Skin11.Picture = LoadPicture(Mainfrm.Text2)
 For i = 0 To 3
  BitBlt Mainfrm.Number(i).hDC, 0, 0, 12, 20, Mainfrm.Skin11.hDC, 0, 0, SRCCOPY '9的倍数
  Mainfrm.Number(i).Refresh
 Next i
End If

Mainfrm.Text2 = Mainfrm.Text1 & "\playpaus.bmp"
If Dir(Mainfrm.Text2) <> "" Then
 Mainfrm.Skin12.Picture = LoadPicture(Mainfrm.Text2)
 BitBlt Mainfrm.Playpaus.hDC, 0, 0, 10, 10, Mainfrm.Skin12.hDC, 18, 0, SRCCOPY
 Mainfrm.Playpaus.Refresh
End If

Mainfrm.Text2 = Mainfrm.Text1 & "\monoster.bmp"
If Dir(Mainfrm.Text2) <> "" Then
 Mainfrm.Skin13.Picture = LoadPicture(Mainfrm.Text2)
 BitBlt Mainfrm.Monoster(0).hDC, 0, 0, 30, 12, Mainfrm.Skin13.hDC, 29, 12, SRCCOPY ',x=0,29
 Mainfrm.Monoster(0).Refresh
 BitBlt Mainfrm.Monoster(1).hDC, 0, 0, 30, 12, Mainfrm.Skin13.hDC, 0, 0, SRCCOPY 'y=0,12
 Mainfrm.Monoster(1).Refresh
End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Mainfrm.Text2 = Mainfrm.Text1 & "\pledit.bmp"
If Dir(Mainfrm.Text2) <> "" Then
 Listfrm.Skin5.Picture = LoadPicture(Mainfrm.Text2)
 If Listfrm.SimpleFlag2 = False Then
  BitBlt Listfrm.Skin_PlayList1(0).hDC, 0, 0, 35, 22, Listfrm.Skin5.hDC, 0, 0, SRCCOPY
  Listfrm.Skin_PlayList1(0).Refresh
  BitBlt Listfrm.Skin_PlayList1(1).hDC, 0, 0, 35, 22, Listfrm.Skin5.hDC, 127, 0, SRCCOPY
  Listfrm.Skin_PlayList1(1).Refresh
  BitBlt Listfrm.Skin_PlayList1(2).hDC, 0, 0, 35, 22, Listfrm.Skin5.hDC, 127, 0, SRCCOPY
  Listfrm.Skin_PlayList1(2).Refresh
  BitBlt Listfrm.Skin_PlayList1(3).hDC, 0, 0, 35, 22, Listfrm.Skin5.hDC, 127, 0, SRCCOPY
  Listfrm.Skin_PlayList1(3).Refresh
  BitBlt Listfrm.Skin_PlayList1(4).hDC, 0, 0, 200, 22, Listfrm.Skin5.hDC, 26, 0, SRCCOPY
  Listfrm.Skin_PlayList1(4).Refresh
  BitBlt Listfrm.Skin_PlayList1(5).hDC, 0, 0, 35, 22, Listfrm.Skin5.hDC, 127, 0, SRCCOPY
  Listfrm.Skin_PlayList1(5).Refresh
  BitBlt Listfrm.Skin_PlayList1(6).hDC, 0, 0, 35, 22, Listfrm.Skin5.hDC, 127, 0, SRCCOPY
  Listfrm.Skin_PlayList1(6).Refresh
  BitBlt Listfrm.Skin_PlayList1(7).hDC, 0, 0, 35, 22, Listfrm.Skin5.hDC, 127, 0, SRCCOPY
  Listfrm.Skin_PlayList1(7).Refresh
  BitBlt Listfrm.Skin_PlayList1(8).hDC, 0, 0, 35, 22, Listfrm.Skin5.hDC, 153, 0, SRCCOPY
  Listfrm.Skin_PlayList1(8).Refresh
 Else
  BitBlt Listfrm.Skin_PlayList1(0).hDC, 0, 0, 25, 13, Listfrm.Skin5.hDC, 72, 42, SRCCOPY
  Listfrm.Skin_PlayList1(0).Refresh
  For i = 1 To 4
   BitBlt Listfrm.Skin_PlayList1(i).hDC, 0, 0, 25, 13, Listfrm.Skin5.hDC, 72, 57, SRCCOPY
   Listfrm.Skin_PlayList1(i).Refresh
  Next i
  BitBlt Listfrm.Skin_PlayList1(4).hDC, 24, 0, 25, 13, Listfrm.Skin5.hDC, 72, 57, SRCCOPY
  Listfrm.Skin_PlayList1(4).Refresh
  BitBlt Listfrm.Skin_PlayList1(4).hDC, 48, 0, 25, 13, Listfrm.Skin5.hDC, 72, 57, SRCCOPY
  Listfrm.Skin_PlayList1(4).Refresh
  BitBlt Listfrm.Skin_PlayList1(4).hDC, 72, 0, 25, 13, Listfrm.Skin5.hDC, 72, 57, SRCCOPY
  Listfrm.Skin_PlayList1(4).Refresh
  BitBlt Listfrm.Skin_PlayList1(5).hDC, 0, 0, 25, 13, Listfrm.Skin5.hDC, 72, 57, SRCCOPY
  Listfrm.Skin_PlayList1(5).Refresh
  BitBlt Listfrm.Skin_PlayList1(6).hDC, 0, 0, 25, 13, Listfrm.Skin5.hDC, 72, 57, SRCCOPY
  Listfrm.Skin_PlayList1(6).Refresh
  BitBlt Listfrm.Skin_PlayList1(7).hDC, 0, 0, 25, 13, Listfrm.Skin5.hDC, 72, 57, SRCCOPY
  Listfrm.Skin_PlayList1(7).Refresh
  BitBlt Listfrm.Skin_PlayList1(8).hDC, 0, 0, 25, 13, Listfrm.Skin5.hDC, 124, 57, SRCCOPY
  Listfrm.Skin_PlayList1(8).Refresh
  Listfrm.Height = 210
  Listfrm.PlayListBar(1).ToolTipText = "还原PlayList"
 End If
 For i = 0 To 4
  BitBlt Listfrm.Skin_PlayList2(i).hDC, 0, 0, 35, 22, Listfrm.Skin5.hDC, 0, 42, SRCCOPY
  Listfrm.Skin_PlayList2(i).Refresh
 Next i
 For i = 0 To 4
  BitBlt Listfrm.Skin_PlayList3(i).hDC, 0, 0, 35, 22, Listfrm.Skin5.hDC, 31, 42, SRCCOPY
  Listfrm.Skin_PlayList3(i).Refresh
 Next i
 BitBlt Listfrm.Skin_PlayList4(0).hDC, 0, 0, 130, 100, Listfrm.Skin5.hDC, 0, 72, SRCCOPY
 Listfrm.Skin_PlayList4(0).Refresh
 BitBlt Listfrm.Skin_PlayList4(1).hDC, 0, 0, 150, 100, Listfrm.Skin5.hDC, 126, 72, SRCCOPY
 Listfrm.Skin_PlayList4(1).Refresh
 BitBlt Listfrm.Skin_Scroll.hDC, 0, 0, 150, 100, Listfrm.Skin5.hDC, 52, 53, SRCCOPY
 Listfrm.Skin_Scroll.Refresh
End If

Mainfrm.Text2 = Mainfrm.Text1 & "\text.bmp"
If Dir(Mainfrm.Text2) <> "" Then
 Listfrm.Skin14.Picture = LoadPicture(Mainfrm.Text2)
 BitBlt Listfrm.PLText.hDC, 0, 0, 5, 6, Listfrm.Skin14.hDC, 0, 6, SRCCOPY
 BitBlt Listfrm.PLText.hDC, 5, 0, 5, 6, Listfrm.Skin14.hDC, 0, 6, SRCCOPY
 BitBlt Listfrm.PLText.hDC, 10, 0, 5, 6, Listfrm.Skin14.hDC, 5 * 12, 6, SRCCOPY
 BitBlt Listfrm.PLText.hDC, 15, 0, 5, 6, Listfrm.Skin14.hDC, 0, 6, SRCCOPY
 BitBlt Listfrm.PLText.hDC, 20, 0, 5, 6, Listfrm.Skin14.hDC, 0, 6, SRCCOPY
End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Mainfrm.Text2 = Mainfrm.Text1 & "\eq_ex.bmp"
If Dir(Mainfrm.Text2) <> "" Then
 EQfrm.Skin6.Picture = LoadPicture(Mainfrm.Text2)
End If

Mainfrm.Text2 = Mainfrm.Text1 & "\eqmain.bmp"
If Dir(Mainfrm.Text2) <> "" Then
 EQfrm.Skin7.Picture = LoadPicture(Mainfrm.Text2)
 If EQfrm.SimpleFlag3 = False Then
  BitBlt EQfrm.EQTitle.hDC, 0, 0, 300, 20, EQfrm.Skin7.hDC, 0, 149, SRCCOPY '阴影
  EQfrm.EQTitle.Refresh
 Else
  BitBlt EQfrm.EQTitle.hDC, 0, 0, 280, 20, EQfrm.Skin6.hDC, 0, 0, SRCCOPY
  EQfrm.EQTitle.Refresh
  EQfrm.Height = 210
  EQfrm.EQTitleBar(0).Visible = True
  EQfrm.EQTitleBar(1).Visible = True
  EQfrm.EQBar(1).ToolTipText = "还原EQ"
 End If
 BitBlt EQfrm.EQ_Skin.hDC, 0, 0, 300, 120, EQfrm.Skin7.hDC, 0, 0, SRCCOPY
 EQfrm.EQ_Skin.Refresh
 For i = 0 To 10 '重画EQfrm.EQScrollBar1(0)到EQfrm.EQScrollBar1(10)
  If EQfrm.EQScrollBar1(i).Top <= 378 Then
   BitBlt EQfrm.EQScrollBar(i).hDC, 0, 0, 15, 80, EQfrm.Skin7.hDC, ((13 - ((EQfrm.EQScrollBar1(i).Top \ 27))) * 15 + 13), 229, SRCCOPY
   EQfrm.EQScrollBar(i).Refresh
  Else
   BitBlt EQfrm.EQScrollBar(i).hDC, 0, 0, 15, 80, EQfrm.Skin7.hDC, ((27 - ((EQfrm.EQScrollBar1(i).Top \ 27))) * 15 + 13), 164, SRCCOPY
   EQfrm.EQScrollBar(i).Refresh
  End If
 Next i
 BitBlt EQfrm.ButtonOn.hDC, 0, 0, 30, 12, EQfrm.Skin7.hDC, 69, 119, SRCCOPY
 EQfrm.ButtonOn.Refresh
 EQfrm.ButtonOnFlag = True
 BitBlt EQfrm.ButtonAuto.hDC, 0, 0, 35, 12, EQfrm.Skin7.hDC, 95, 119, SRCCOPY
 EQfrm.ButtonAuto.Refresh
 EQfrm.ButtonAutoFlag = True
 BitBlt EQfrm.ButtonPreset.hDC, 0, 0, 45, 12, EQfrm.Skin7.hDC, 224, 164, SRCCOPY
 EQfrm.ButtonPreset.Refresh

 For i = 0 To 10
  BitBlt EQfrm.EQScrollBar1(i).hDC, 0, 0, 15, 15, EQfrm.Skin7.hDC, 0, 164, SRCCOPY
  EQfrm.EQScrollBar1(i).Refresh
 Next i
End If
End Sub

Sub ClearSonButton()
Listfrm.Button1Flag = False
Listfrm.Button2Flag = False
Listfrm.Button3Flag = False
Listfrm.Button4Flag = False
Listfrm.Button5Flag = False
Listfrm.PlayListButton1(0).Visible = False
Listfrm.PlayListButton1(1).Visible = False
Listfrm.PlayListButton1(2).Visible = False
Listfrm.PlayListButton2(0).Visible = False
Listfrm.PlayListButton2(1).Visible = False
Listfrm.PlayListButton2(2).Visible = False
Listfrm.PlayListButton2(3).Visible = False
Listfrm.PlayListButton3(0).Visible = False
Listfrm.PlayListButton3(1).Visible = False
Listfrm.PlayListButton3(2).Visible = False
Listfrm.PlayListButton4(0).Visible = False
Listfrm.PlayListButton4(1).Visible = False
Listfrm.PlayListButton4(2).Visible = False
Listfrm.PlayListButton5(0).Visible = False
Listfrm.PlayListButton5(1).Visible = False
Listfrm.PlayListButton5(2).Visible = False
End Sub


'文件拖曳
Public Function WndProc(ByVal lHwnd As Long, ByVal lMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim lFileInfo As Long
Dim sBuffer As String * 256
Dim lRet As Long
Dim TempFileName As String
Dim pos As Integer
If lMsg = WM_DROPFILES Then
 lFileInfo = wParam
 lRet = DragQueryFile(lFileInfo, 0, ByVal sBuffer, 256)
 TempFileName = Left(sBuffer, InStr(sBuffer, Chr(0)) - 1) '去处sBuffer的空白串
 
 Listfrm.List2.AddItem (TempFileName) '盘符、路径、全名，去处空白串
 Do
  pos = InStr(TempFileName, "\")
  TempFileName = Mid(TempFileName, pos + 1)
 Loop Until pos = 0
 TempFileName = Left(TempFileName, InStr(TempFileName, ".") - 1)
 
 Listfrm.List1.AddItem (TempFileName) '文件名拖入列表
 DragFinish lFileInfo
 WndProc = 0
Else
 WndProc = CallWindowProc(lPhWnd, lHwnd, lMsg, wParam, lParam)
End If
End Function
上一页 12
💿 文件大小 588 K
👤 上传用户 jill
📂 所属分类 Delphi/CppBuilder
🏷️ 相关标签

#vb #播放器 #开发者
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -