media.frm

两个VB播放器 两个VB播放器 两个VB播放器 两个VB播放器

Private Sub Command2_Click()
   'Dim i As Integer
   Dim ndsample As Node
   Dim retval As Integer                                 '//保存结点内容
   Dim strfilen As String
   strfilen = App.Path & "\temp\Save_Nodes.nod"
   savefile strfilen
End Sub

Private Sub Form_Load()
  On Error Resume Next
  Dim Dir_1 As String
  Dim smanagern As String
  Dim strteammname As String
  Dir_1 = Dir(App.Path & "\temp\Save_Nodes.nod")
If Dir_1 = "" Then
  TreeView1.Nodes.Clear                         '//添加结点
  TreeView1.Nodes.Add , , "我的媒体库", "我的媒体库", 1
  TreeView1.Nodes.Add "我的媒体库", tvwChild, "流行歌曲", "流行歌曲", 2
  TreeView1.Nodes.Add "我的媒体库", tvwChild, "经典歌曲", "经典歌曲", 4
  TreeView1.Nodes.Add "我的媒体库", tvwChild, "中国器乐", "中国器乐", 12
  TreeView1.Nodes.Add "中国器乐", tvwChild, "笛子", "笛子", 15
  TreeView1.Nodes.Add "中国器乐", tvwChild, "古筝", "古筝", 15
  TreeView1.Nodes.Add "中国器乐", tvwChild, "古琴", "古琴", 15
  TreeView1.Nodes.Add "中国器乐", tvwChild, "琵琶", "琵琶", 15
  TreeView1.Nodes.Add "中国器乐", tvwChild, "葫芦丝", "葫芦丝", 15
  TreeView1.Nodes.Add "中国器乐", tvwChild, "二胡", "二胡", 15
  TreeView1.Nodes.Add "中国器乐", tvwChild, "唢呐", "唢呐", 15
  TreeView1.Nodes.Add "中国器乐", tvwChild, "箫", "箫", 15
  TreeView1.Nodes.Add "中国器乐", tvwChild, "打击乐", "打击乐", 15
  TreeView1.Nodes.Add "中国器乐", tvwChild, "广东丝竹", "广东丝竹", 15
  TreeView1.Nodes.Add "中国器乐", tvwChild, "吹打乐", "吹打乐", 15
  TreeView1.Nodes.Add "中国器乐", tvwChild, "管子", "管子", 15
  TreeView1.Nodes.Add "中国器乐", tvwChild, "陨", "陨", 15
  TreeView1.Nodes.Add "我的媒体库", tvwChild, "古典歌曲", "古典歌曲", 4
  TreeView1.Nodes.Add "我的媒体库", tvwChild, "轻音乐", "轻音乐", 5
  TreeView1.Nodes.Add "我的媒体库", tvwChild, "摇滚音乐", "摇滚音乐", 6
  TreeView1.Nodes.Add "我的媒体库", tvwChild, "通俗音乐", "通俗音乐", 7
  TreeView1.Nodes.Add "我的媒体库", tvwChild, "好听的音乐", "好听的音乐", 8
  TreeView1.Nodes.Add "我的媒体库", tvwChild, "不好听的音乐", "不好听的音乐", 9
  TreeView1.Nodes.Add "我的媒体库", tvwChild, "个人专集", "个人专集", 10
  TreeView1.Nodes.Add "个人专集", tvwChild, "刀郎", "刀郎", 15
  TreeView1.Nodes.Add "个人专集", tvwChild, "刘德华", "刘德华", 15
  TreeView1.Nodes.Add "个人专集", tvwChild, "张学友", "张学友", 15
  TreeView1.Nodes.Add "我的媒体库", tvwChild, "戏曲", "戏曲", 11
  TreeView1.Nodes.Add "戏曲", tvwChild, "黄梅戏", "黄梅戏", 15
  TreeView1.Nodes.Add "戏曲", tvwChild, "京剧", "京剧", 15
  TreeView1.Nodes.Add "戏曲", tvwChild, "越剧", "越剧", 15
  TreeView1.Nodes.Add "我的媒体库", tvwChild, "外国器乐", "外国器乐", 13
  TreeView1.Nodes.Add "外国器乐", tvwChild, "小提琴", "小提琴", 15
  TreeView1.Nodes.Add "外国器乐", tvwChild, "钢琴", "钢琴", 15
  TreeView1.Nodes.Add "我的媒体库", tvwChild, "英文歌曲", "英文歌曲", 14
  TreeView1.Nodes.Add "我的媒体库", tvwChild, "我的播放列表", "我的播放列表", 16
  TreeView1.Nodes(1).Expanded = True
Else
    strfilen = App.Path & "\temp\Save_Nodes.nod"
        TreeView1.Nodes.Clear
        Open strfilen For Input As #2
           Input #2, strteammname, smanagern
           Call addrnode(strteammname, 1)
           While Not EOF(2)
             Input #2, strteammname, smanagern
             Call addnode(strteammname, smanagern, 15)
           Wend
        Close #2
    TreeView1.Nodes(1).Expanded = True      '//展开结点
End If
     'For i% = 0 To 500                   '//可以省略，当展开时执行减少执行次数，提高显示速度
        'TreeView1.Nodes.Item(i).ForeColor = &HC000&
        'TreeView1.Nodes.Item(i).BackColor = &H0&
     'Next i
 'TreeView1.SingleSel = True               '//单击自动展开结点
 TreeView1.LabelEdit = tvwManual          '//手动还是自动编辑
 TreeView1.HideSelection = True
 'TreeView1.HotTracking = True
'Dim newcolor As Long
 'With cdg
  '.Flags = cdlocrgbinit
  '.Color = gettvbackcolour()
  '.ShowColor
  'newcolor = .Color
  'settvbackcolour newcolor
 'End With
'Dim newclr As Long
  'newclr = gettvforecolour()
  'settvforecolour newclr
  
 For i = 1 To 2
    Toolbar1.Buttons(i).Image = i
 Next i
 Toolbar1.Buttons(4).Image = 3
 Toolbar1.Buttons(5).Image = 4
 Toolbar1.Buttons(7).Image = 5
 Toolbar1.Buttons(8).Image = 6
 Toolbar1.Buttons(10).Image = 7
 Toolbar1.Buttons(11).Image = 8
 Toolbar1.Buttons(13).Image = 9
 Toolbar1.Buttons(14).Image = 10
MCI.Wait = True
MCI.Notify = False
MCI.Shareable = False
MCI.DeviceType = "MPEGVideo"
End Sub



Private Sub Form_Unload(Cancel As Integer)
   'Dim i As Integer
   Dim ndsample As Node
   Dim retval As Integer                                 '//保存结点内容
   Dim strfilen As String
   Close #1, #2, #3, #4
   strfilen = App.Path & "\temp\Save_Nodes.nod"
   savefile strfilen
   MCI.Command = "Stop"
   MCI.Command = "Close"
   Set Form6 = Nothing
End Sub



Private Sub List1_DblClick()
  MCI.Command = "Stop"
  MCI.Command = "Close"
  MCI.FileName = List1.Text
  MCI.Command = "Open"
  MCI.Command = "Play"
  MCI.UpdateInterval = 1000
  Label10.Caption = "正在播放： " & MCI.FileName
End Sub


Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = 2 And KeyCode = vbKeyA Then             '//定义快截键Ctrl+A全选
     For index = 0 To List1.ListCount - 1
         List1.Selected(index) = True
     Next index
  End If
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
   If Button = vbRightButton Then
      Form6.PopupMenu meuList, , x + 3700, y + 500
   End If
End Sub

Private Sub MCI_StatusUpdate()
  Dim j As Long
  On Error Resume Next
   Slider1.Min = 0
   MCI.UpdateInterval = 1000
   j = MCI.Length / 1000               '曲目总长
   Slider1.Max = j
   Slider1.Value = MCI.Position / 1000        '当前曲目播放了的长度
   If MCI.Mode = 525 Then
     Slider1.Enabled = True
     Slider1.Value = 0
   End If
End Sub


Private Sub meuAdd_Click()
  cmdAddFile_Click
End Sub

Private Sub meuAllSelect_Click()
   For i = 0 To List1.ListCount - 1         '//全选列表文件
      List1.Selected(i) = True
   Next i
End Sub

Private Sub meuBack_Click()                      '//添加结点
   On Error Resume Next
   Dim my_node As String
   If TreeView1.SelectedItem.Text = "" Then Exit Sub
   my_node = InputBox("请输入结点名", "前插入结点", "新建结点")
   If my_node = "" Then Exit Sub
   TreeView1.Nodes.Add TreeView1.SelectedItem.Text, tvwNext, my_node, my_node, 15
   Form6.TreeView1.SelectedItem.BackColor = &H0&
   Form6.TreeView1.SelectedItem.ForeColor = &HC000&
   Exit Sub
End Sub

Private Sub meuDel_Click()
  cmdDel_Click
End Sub

Private Sub meuEdite_Click()
  cmdEdite_Click
End Sub

Private Sub meuExit_Click()
   cmdExit_Click
End Sub



Private Sub meuFore_Click()
   On Error Resume Next
   Dim my_node As String
   If TreeView1.SelectedItem.Text = "" Then Exit Sub
   my_node = InputBox("请输入结点名", "前插入结点", "新建结点")
   If my_node = "" Then Exit Sub
   TreeView1.Nodes.Add TreeView1.SelectedItem.Text, tvwPrevious, my_node, my_node, 15
   'Form6.TreeView1.SelectedItem.Expanded = True
   Form6.TreeView1.SelectedItem.BackColor = &H0&
   Form6.TreeView1.SelectedItem.ForeColor = &HC000&
   Exit Sub
End Sub

Private Sub meuListen_Click()
   List1_DblClick
End Sub

Private Sub meuNew_Click()
  cmdAddNode_Click
End Sub

Private Sub meuNewName_Click()
   cmdNewName_Click
End Sub

Private Sub meuPause_Click()
   Command1_Click
End Sub

Private Sub meuPlay_Click()
   cmdPlay_Click
End Sub

Private Sub meuPlayer_Click()
   cmdPlay_Click
End Sub

Private Sub meuSave_Click()
   Command2_Click
End Sub

Private Sub Slider1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
   On Error Resume Next
   MCI.From = Slider1.Value * 1000     ' 实现重复播放
   MCI.Command = "Play"
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
   On Error Resume Next
   Static boolPause As Boolean
   Select Case Button.index
      Case 1
        cmdAddNode_Click
      Case 2
       If TreeView1.SelectedItem.Text = "" Then
         'Toolbar1.Buttons(2).Enabled = False
       Else
         'Toolbar1.Buttons(2).Enabled = True
         cmdDel_Click
       End If
      Case 4
         cmdPlay_Click
      Case 5
        If TreeView1.SelectedItem.Text = "" Then
         'Toolbar1.Buttons(5).Enabled = False
       Else
         'Toolbar1.Buttons(5).Enabled = True
         cmdAddFile_Click
       End If
      Case 7
       If TreeView1.SelectedItem.Text = "" Then
         'Toolbar1.Buttons(7).Enabled = False
       Else
         'Toolbar1.Buttons(7).Enabled = True
         cmdEdite_Click
       End If
      Case 8
       If TreeView1.SelectedItem.Text = "" Then
         'Toolbar1.Buttons(8).Enabled = False
       Else
         'Toolbar1.Buttons(8).Enabled = True
         cmdNewName_Click
       End If
      Case 10
         Command2_Click
      Case 11
       If TreeView1.SelectedItem.Text = "" Then
         'Toolbar1.Buttons(11).Enabled = False
       Else
         'Toolbar1.Buttons(11).Enabled = True
         boolPause = Not boolPause
         Command1_Click
         If boolPause = True Then
           Toolbar1.Buttons(11).Image = 11
           Toolbar1.Buttons(11).ToolTipText = "播放"
         Else
           Toolbar1.Buttons(11).Image = 8
           Toolbar1.Buttons(11).ToolTipText = "暂停"
         End If
       End If
      Case 13
        If List1.ListCount = 0 Then
            'Toolbar1.Buttons(13).Enabled = False
        Else
            'Toolbar1.Buttons(13).Enabled = True
            meuAllSelect_Click
        End If
      Case 14
         cmdExit_Click
   End Select
End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
  Select Case ButtonMenu.Text            '//ToolBar的菜单单击事件
    Case "前插入结点"
        meuFore_Click
    Case "后插入结点"
        meuBack_Click
    Case "新建子结点"
       cmdAddNode_Click
  End Select
End Sub

Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)             '//树的展开事件
   On Error Resume Next
   For i% = 0 To 500
        TreeView1.Nodes.item(i).ForeColor = &HC000&                      '//设置结点颜色
        TreeView1.Nodes.item(i).BackColor = &H0&
   Next i
End Sub

'Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   'On Error Resume Next
   'TreeView1_NodeClick (byva)
   'If Button = vbRightButton Then
      'TreeView1.HideSelection = True
      'Form6.PopupMenu meuTvw, , X, Y
   'End If
'End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
  On Error Resume Next
  Dim dir_2 As String
  Dim nextline As String
  Static My_Expend As Boolean            '//定义静态变量
  My_Expend = Not My_Expend              '//单击展开还是缩回接点
  dir_2 = Dir(App.Path & "\temp\" & TreeView1.SelectedItem.Text & ".m3u")
                                       '//文件是否存在
  If dir_2 <> "" Then
    If FileLen(App.Path & "\temp\" & TreeView1.SelectedItem.Text & ".m3u") <> 0 Then
     Open App.Path & "\temp\" & TreeView1.SelectedItem.Text & ".m3u" For Input As #3
         List1.Clear                      '//清空列表读入文件名
         Do While Not EOF(3)
            Line Input #3, nextline
            List1.AddItem nextline
         Loop
     Close #3
     'For i% = 0 To 500             '//利用展开事件设置颜色
        'TreeView1.Nodes.item(i).ForeColor = &HC000&
        'TreeView1.Nodes.item(i).BackColor = &H0&
     'Next i
     MCI.Command = "Stop"
     MCI.Command = "Close"
     MCI.FileName = List1.Text
     MCI.Command = "Open"
     MCI.Command = "Play"
     MCI.UpdateInterval = 1000
     Label10.Caption = "正在播放： " & MCI.FileName
    End If
  End If
 'If My_Expend = True Then
   If TreeView1.SelectedItem.Expanded = False Then     '//判断是否展开结点
     TreeView1.SelectedItem.Expanded = True
   Else
    TreeView1.SelectedItem.Expanded = False
   End If
End Sub