?? menu.frm
字號:
VERSION 5.00
Begin VB.Form Menu
BackColor = &H009B9B9F&
BorderStyle = 0 'None
Caption = "Form4"
ClientHeight = 1545
ClientLeft = 150
ClientTop = 840
ClientWidth = 5850
LinkTopic = "Form4"
ScaleHeight = 1545
ScaleWidth = 5850
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.Menu mnuMain
Caption = "Main"
Begin VB.Menu mnuControl
Caption = "播放控制"
Begin VB.Menu mnuControls
Caption = "播放/暫停"
Index = 0
End
Begin VB.Menu mnuControls
Caption = "停止"
Index = 1
End
Begin VB.Menu mnuControls
Caption = "-"
Index = 2
End
Begin VB.Menu mnuControls
Caption = "上一首"
Index = 3
End
Begin VB.Menu mnuControls
Caption = "下一首"
Index = 4
End
Begin VB.Menu mnuControls
Caption = "-"
Index = 5
End
Begin VB.Menu mnuControls
Caption = "增大音量"
Index = 6
End
Begin VB.Menu mnuControls
Caption = "減小音量"
Index = 7
End
Begin VB.Menu mnuControls
Caption = "靜音"
Index = 8
End
Begin VB.Menu mnuControls
Caption = "-"
Index = 9
End
Begin VB.Menu mnuControls
Caption = "最小化"
Index = 10
End
Begin VB.Menu mnuControls
Caption = "退出"
Index = 11
End
End
End
Begin VB.Menu mnuAdd
Caption = "添加"
Begin VB.Menu mnuAdds
Caption = "添加文件..."
Index = 0
End
Begin VB.Menu mnuAdds
Caption = "添加目錄..."
Index = 1
End
Begin VB.Menu mnuAdds
Caption = "添加網絡URL"
Index = 2
End
End
Begin VB.Menu mnuDel
Caption = "刪除"
Begin VB.Menu mnuDels
Caption = "所選歌曲"
Index = 0
End
Begin VB.Menu mnuDels
Caption = "刪除重復"
Index = 1
End
Begin VB.Menu mnuDels
Caption = "刪除無效"
Index = 2
End
Begin VB.Menu mnuDels
Caption = "清空播放列表"
Index = 3
End
End
Begin VB.Menu mnuSort
Caption = "排序"
Begin VB.Menu mnuSorts
Caption = "默認"
Index = 0
End
Begin VB.Menu mnuSorts
Caption = "隨機"
Index = 1
End
Begin VB.Menu mnuSorts
Caption = "顛倒"
Index = 2
End
Begin VB.Menu mnuSorts
Caption = "按歌手排序"
Index = 3
End
Begin VB.Menu mnuSorts
Caption = "按歌名排序"
Index = 4
End
End
Begin VB.Menu mnuMode
Caption = "模式"
Begin VB.Menu mnuModes
Caption = "單曲播放"
Index = 0
End
Begin VB.Menu mnuModes
Caption = "單曲循環"
Index = 1
End
Begin VB.Menu mnuModes
Caption = "順序播放"
Index = 2
End
Begin VB.Menu mnuModes
Caption = "列表循環"
Checked = -1 'True
Index = 3
End
Begin VB.Menu mnuModes
Caption = "隨機播放"
Index = 4
End
End
Begin VB.Menu mnuSame
Caption = "同步"
Begin VB.Menu mnuSames
Caption = "上傳列表"
Index = 0
End
Begin VB.Menu mnuSames
Caption = "下載列表"
Index = 1
End
End
Begin VB.Menu mnuIco
Caption = "主菜單"
Begin VB.Menu mnuIcos
Caption = "關于"
Index = 0
End
End
Begin VB.Menu mnuList
Caption = "列表右菜單"
Begin VB.Menu mnuLists
Caption = "播放"
Index = 0
End
End
End
Attribute VB_Name = "Menu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人為我，我為人人
'枕善居收藏整理
'發布日期：2007/03/15
'描 述：網頁搜索音樂播放器 Ver 1.1.0
'網 站：http://www.Mndsoft.com/ (VB6源碼博客)
'網 站：http://www.VbDnet.com/ (VB.NET源碼博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代碼別忘記給枕善居哦!
'****************************************************************************
'添加操作
Private Sub mnuAdds_Click(Index As Integer)
On Error Resume Next
Select Case Index
Case 0 '添加單個文件
With frmMain.C
.DialogTitle = "添加單個音樂文件"
.FileName = ""
.ShowOpen
addSingle .FileName
End With
Case 1 '添加目錄
Dim npath As String
Dim intDirsFound As Integer
npath = FPath(Me.hwnd, "添加目錄")
If Len(npath) = 0 Then Exit Sub
intDirsFound = FindAllFiles(npath, "*.wma")
intDirsFound = intDirsFound + FindAllFiles(npath, "*.mp3")
Case 2 '添加url
Dim fileUrl As String
fileUrl = InputBox("輸入一個要打開的URL" & vbCrLf & "例如：http://music.inodea.cn/music/demo.mp3", "添加URL")
addMusic frmList.playlist.itemCount, GetFileName(fileUrl), "", "00:00", fileUrl, False
End Select
End Sub
'刪除操作
Private Sub mnuDels_Click(Index As Integer)
Dim I, j As Integer
With frmList.playlist
Select Case Index
Case 0 '刪除所選
.RemoveItem (.selectedItem)
Case 1 '刪除重復
' For i = 0 To .itemCount - 1
' For j = i To .itemCount - 1
' If .ItemText(i, 2) = .ItemText(j, 2) Then
'
' End If
' Next
' Next
Case 2 '刪除無效
For I = 0 To .itemCount - 1
If .ItemTag(I) = 2 Then
.RemoveItem (I)
End If
If I > itemCount Then Exit For
Next
Case 3 '清空
.Clear
End Select
End With
End Sub
Private Sub mnuModes_Click(Index As Integer)
Dim I As Integer
For I = 0 To 4
mnuModes(I).Checked = False
Next
modeType = Index
mnuModes(Index).Checked = True
End Sub
Private Sub mnuSorts_Click(Index As Integer)
Dim I As Integer
For I = 0 To 4
mnuModes(I).Checked = False
Next
mnuModes(Index).Checked = True
'0、默認1、隨機2、顛倒3、按歌名4、按歌手
Select Case Index
Case 0
Case 1
Case 2
Case 3
Case 4
End Select
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -