super player 9.0.frm

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

       Next chec
      meu(VarMore).Checked = True
    Else
       VarMore = VarMore + 1
       Form7.WMP.URL = meu(VarMore).Caption
       For chec = 0 To 50
         meu(chec).Checked = False
       Next chec
       meu(VarMore).Checked = True
       Label7.Caption = "Super Player 9.0   正在播放：" & Form7.WMP.URL
    End If
  ElseIf meuPlayList.Visible = True Then
      VarM3u = Var3u + 1
      MMControl1.Command = "Stop"
      MMControl1.Command = "Close"
      MMControl1.FileName = meu2(VarM3u).Caption
      MMControl1.Command = "Open"
      MMControl1.Command = "Play"
      MMControl1.UpdateInterval = 1000
      For chec = 0 To 50
         meu2(chec).Checked = False
       Next chec
      meu2(VarM3u).Checked = True
   ElseIf meuMusic.Visible = True Then
      VarVCD = VarVCD + 1
      MMControl1.Command = "Stop"
      MMControl1.Command = "Close"
     Form7.WMP.URL = meuQuMu(VarVCD).Caption
      'MMControl1.Command = "Open"
      'MMControl1.Command = "Play"
      'MMControl1.UpdateInterval = 1000
      For chec = 0 To 30
         meuQuMu(chec).Checked = False
       Next chec
      meuQuMu(VarVCD).Checked = True
      Label3.Caption = "当前曲目:" & VarVCD + 2
   End If
   Label7.Caption = "Super Player 9.0   正在播放：" & MMControl1.FileName
  Case 8
  
    meuOpenCD_Click
     
  Case 9
  
    MMControl1.From = MMControl1.Position + 1000           '快进
    'MMControl1.Frames = 30                   '快进的帧数 30帧
    MMControl1.Command = "Play"
  Case 10
  
    MMControl1.From = MMControl1.Position - 1000           '快退
    'MMControl1.Frames = 30                 '快进的帧数 30帧
    MMControl1.Command = "Play"
  Case 2
    Unload Form7
    meuDATVideo_Click        ' 播放VCD
    
  Case 11
  
    meuClose_Click
  Case 12
    meuSilent_Click
  Case 13
    meuFull_Click
 End Select
 
End Sub

Private Sub Form_Load()               '载入窗体初始化
  On Error Resume Next
  Dim nextline As String
  Dim a(1 To 30) As String
  Dim my_file(0 To 50) As String
  Dim m_file As String

  music_dir = Dir(App.Path & "\temp\music.m3u")
    If music_dir = "" Then
      MkDir (App.Path & "\temp")
        Open App.Path & "\temp\Music.m3u" For Output As #1  '//关键在于创建
          Print #1, ""
        Close #1
     SetAttr App.Path & "\temp", vbHidden
    End If
    Open App.Path & "\temp\check" For Input As #1
       Line Input #1, nextline
     If nextline <> "True" Then
       Form2.Show
     End If
    Close #1
    
    Open App.Path & "\temp\sight" For Input As #1
         Line Input #1, nextline
     If nextline <> "" Then
       For x = 0 To 13
         Label8(x).BackStyle = 1
         Label8(x).BackColor = Str(nextline)
         Label8(x).BackStyle = 0
       Next x
     End If
    Close #1
    
    Open App.Path & "\temp\color" For Input As #1
       Line Input #1, nextline
     If nextline <> "" Then
      For x = 0 To 13
        Label8(x).ForeColor = Str(nextline)
      Next x
        Label7.ForeColor = Str(nextline)
        Label1(0).ForeColor = Str(nextline)
        Label2.ForeColor = Str(nextline)
        Label3.ForeColor = Str(nextline)
        Label4.ForeColor = Str(nextline)
        Label5.ForeColor = Str(nextline)
     End If
    Close #1
    MMControl1.TimeFormat = 0
    MMControl1.UpdateInterval = 1000
    CommonDialog2.CancelError = True
    CommonDialog1.CancelError = True             '设置取消错误
    meuMusic.Visible = False
    Slider1.Enabled = True
    Label7.Caption = "                  Super Player 9.0   红叶编写"
    
    Dim nextline1 As String
    Open App.Path & "\temp\Music.m3u" For Input As #1
          sum = 1
        Do While Not EOF(1)
          Line Input #1, nextline1
          If nextline1 = "" Then Exit Do
          Load meuMyMusic(sum)
                             '读顺序文件
          meuMyMusic(sum).Caption = nextline1
          sum = sum + 1
        Loop
     Close #1
     
  CommonDialog1.Filter = "支持媒体文件(*.cda;*.AVI;*.asf;*.asx;*.wpl;*.wm;*.wma;*.wmv;*.AU;*.WAV;*.DAT;*.mid;*.MIDI;*.RMI;*.MPG;*.Mp3;*.MPEG)|*.cda;*.AVI;*.WAV;*.DAT;MID;*.MIDI;*.asf;*.asx;*.wpl;*.wm;*.wma;*.wmv;*.AU;*.RMI;*.MPG;*.Mp3;*.MPEG| All Files(*.*)|*.*|"
  If meuMyMusic(1).Caption = "" Or meuMyMusic(1).Caption = "无可用音乐" Then
     meuMyMusic(1).Caption = "无可用音乐"
     meuAllPlay.Enabled = False
  Else
     meuAllPlay.Enabled = True
  End If
  
  With MMControl1
    .Notify = False                    'MCI完成后是否发生DONE事件
    .Wait = True                      '指定 Multimedia 控件是否等到下一命令执行完毕，才将控制权还给应用程序
    .Shareable = False               '是否共享设备资源
    .DeviceType = "MPEGVideo"           '初始化媒体设备为CD媒体设备
    .Visible = False               '控件不可视
    .Command = "Open"                    '打开设备
  End With
  MMControl1.UpdateInterval = 1000
  Label1(0).Caption = ""
  Label2.Caption = ""
  Label3.Caption = ""
  Label4.Caption = ""
  Label5.Caption = ""
 Label7.Caption = "Super Player 9.0   正在播放：" & MMControl1.FileName
 Label1(0).Caption = "当前状态:就绪"
 If meuMyMusic(1).Caption = "无可用音乐" Then
    Label2.Caption = "曲目总数:0"
 Else
    Label2.Caption = "曲目总数:1"
 End If
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  If Button = vbRightButton Then                                '如果按下了鼠标又键
     Me.PopupMenu meuRight, , x + 120, y                        '又键菜单
  End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
          For x = 0 To 13
             Line1(x).BorderColor = &H80000012
             Line2(x).BorderColor = &H80000012
          Next x
          For x = 0 To 13
             Label8(x).BackStyle = 0
          Next x
End Sub

Private Sub Form_Unload(Cancel As Integer)
  On Error Resume Next
    MMControl1.Command = "Stop"                          '停止设备
    MMControl1.Command = "Close"                         '关闭设备
    Set Form1 = Nothing
    Set Form6 = Nothing                                     '防止内存泄露
    Set Dialog3 = Nothing
    Set Form3 = Nothing
    End
End Sub

Private Sub Label8_MouseDown(index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
    Select Case index
       Case 0
         Label8(0).BorderStyle = 1
       Case 1
         Label8(1).BorderStyle = 1
       Case 2
         Label8(2).BorderStyle = 1
       Case 3
         Label8(3).BorderStyle = 1
       Case 4
         Label8(4).BorderStyle = 1
       Case 5
         Label8(5).BorderStyle = 1
       Case 6
         Label8(6).BorderStyle = 1
       Case 7
         Label8(7).BorderStyle = 1
       Case 8
         Label8(8).BorderStyle = 1
       Case 9
         Label8(9).BorderStyle = 1
       Case 10
         Label8(10).BorderStyle = 1
       Case 11
         Label8(11).BorderStyle = 1
       Case 12
         Label8(12).BorderStyle = 1
       Case 13
         Label8(13).BorderStyle = 1
   End Select
End Sub

Private Sub Label8_MouseMove(index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
   
   Select Case index
        Case 0
          Line1(0).BorderColor = &H80000009
          Line2(0).BorderColor = &H80000009
          Label8(0).BackStyle = 1
        Case 1
          Line1(1).BorderColor = &H80000009
          Line2(1).BorderColor = &H80000009
          Label8(1).BackStyle = 1
        Case 2
          Line1(2).BorderColor = &H80000009
          Line2(2).BorderColor = &H80000009
          Label8(2).BackStyle = 1
        Case 3
          Line1(3).BorderColor = &H80000009
          Line2(3).BorderColor = &H80000009
          Label8(3).BackStyle = 1
        Case 4
          Line1(4).BorderColor = &H80000009
          Line2(4).BorderColor = &H80000009
          Label8(4).BackStyle = 1
        Case 5
          Line1(5).BorderColor = &H80000009
          Line2(5).BorderColor = &H80000009
          Label8(5).BackStyle = 1
        Case 6
          Line1(7).BorderColor = &H80000009
          Line2(7).BorderColor = &H80000009
          Label8(6).BackStyle = 1
        Case 7
          Line1(8).BorderColor = &H80000009
          Line2(8).BorderColor = &H80000009
          Label8(7).BackStyle = 1
        Case 8
          Line1(9).BorderColor = &H80000009
          Line2(9).BorderColor = &H80000009
          Label8(8).BackStyle = 1
        Case 9
          Line1(10).BorderColor = &H80000009
          Line2(10).BorderColor = &H80000009
          Label8(9).BackStyle = 1
        Case 10
          Line1(11).BorderColor = &H80000009
          Line2(11).BorderColor = &H80000009
          Label8(10).BackStyle = 1
        Case 11
          Line1(12).BorderColor = &H80000009
          Line2(12).BorderColor = &H80000009
          Label8(11).BackStyle = 1
        Case 12
          Line1(6).BorderColor = &H80000009
          Line2(6).BorderColor = &H80000009
          Label8(12).BackStyle = 1
        Case 13
          Line1(13).BorderColor = &H80000009
          Line2(13).BorderColor = &H80000009
          Label8(13).BackStyle = 1
   End Select
End Sub

Private Sub Label8_MouseUp(index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
   Select Case index
       Case 0
         Label8(0).BorderStyle = 0
       Case 1
         Label8(1).BorderStyle = 0
       Case 2
         Label8(2).BorderStyle = 0
       Case 3
         Label8(3).BorderStyle = 0
       Case 4
         Label8(4).BorderStyle = 0
       Case 5
         Label8(5).BorderStyle = 0
       Case 6
         Label8(6).BorderStyle = 0
       Case 7
         Label8(7).BorderStyle = 0
       Case 8
         Label8(8).BorderStyle = 0
       Case 9
         Label8(9).BorderStyle = 0
       Case 10
         Label8(10).BorderStyle = 0
       Case 11
         Label8(11).BorderStyle = 0
       Case 12
         Label8(12).BorderStyle = 0
       Case 13
         Label8(13).BorderStyle = 0
   End Select
End Sub

Private Sub meu_Click(index As Integer)
 On Error Resume Next
 If Form7.WMP.Status = "" Then
   Slider1.Enabled = True
   MMControl1.Command = "Stop"
   MMControl1.Command = "Close"
   MMControl1.FileName = meu(index).Caption
   For chec = 0 To 50
         meu(chec).Checked = False
   Next chec
   meu(index).Checked = True
   VarMore = index
   MMControl1.Command = "Open"
   MMControl1.Command = "Play"
   MMControl1.UpdateInterval = 1000
   Label7.Caption = "Super Player 9.0   正在播放：" & MMControl1.FileName
 Else
   Slider1.Enabled = True
   MMControl1.Command = "Stop"
   MMControl1.Command = "Close"
   Form7.WMP.URL = meu(index).Caption
   For chec = 0 To 50
      meu(chec).Checked = False
   Next chec
   meu(index).Checked = True
   VarMore = index
   'MMControl1.Command = "Open"
   'MMControl1.Command = "Play"
   'MMControl1.UpdateInterval = 1000
   Label7.Caption = "Super Player 9.0   正在播放：" & Form7.WMP.URL
End If
End Sub

Private Sub meu2_Click(index As Integer)
  On Error Resume Next
  Slider1.Enabled = True
  MMControl1.UpdateInterval = 1000                           '//单击播放
  MMControl1.Command = "Stop"
  MMControl1.Command = "Close"
  MMControl1.FileName = meu2(index).Caption
  For chec = 0 To 50
     meu2(chec).Checked = False
  Next chec
  meu2(index).Checked = True
  VarM3u = index
  MMControl1.Command = "Open"
  MMControl1.Command = "Play"
  Label7.Caption = "Super Player 9.0   正在播放：" & MMControl1.FileName
  MMControl1.UpdateInterval = 1000
End Sub

Private Sub meuAbout_Click()                    '显示关于对话框

  Dialog.Show
  
End Sub

Private Sub meuAgain_Click()              '重新播放

 On Error Resume Next
  Slider1.Value = 0
  Slider1.Enabled = True
  MMControl1.From = 0
  MMControl1.Command = "Play"
  MMControl1.UpdateInterval = 1000
End Sub

Private Sub meuAll_Click()                         '窗体永远再前
   meuAll.Checked = Not meuAll.Checked
   If meuAll.Checked = True Then
      ' 打开 TopMost 属性.
      SetWindowPos hwnd, conHwndTopmost, 250, 150, 480, 165, conSwpNoActivate Or conSwpShowWindow
   Else
      ' 关闭 TopMost 属性.
      SetWindowPos hwnd, conHwndNoTopmost, 250, 150, 480, 165, conSwpNoActivate Or conSwpShowWindow
   End If
   
End Sub

Private Sub meuAllPlay_Click()
  On Error Resume Next
  Dim i As Integer
  i = 0
  meuCDQuMu.Visible = False
  meuMusic.Visible = False
  meuPlayList.Visible = False
  meuPlayFile.Visible = True
  VarMore = 0
  For x = 1 To 40
    Unload meu(x)
  Next x
  Open App.Path & "\temp\music.m3u" For Input As #1
      Do While Not EOF(1)
         i = i + 1
         Line Input #1, nextline
         Load meu(i)
         meu(i).Checked = False
         meu(i).Caption = nextline
      Loop
  Close #1
  Form1.Label2.Caption = "总曲目数:" & i
  MMControl1.Command = "Close"
  MMControl1.FileName = meu(1).Caption
  meu(1).Checked = True
  MMControl1.Command = "Open"