?? 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 + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? winampskin.bas

?? 快捷鍵說明
