menu.frm

mp3播放器软件

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  ：[e-mail]
'e-mail  ：[e-mail]
'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