modmply.bas

一个很好的多媒体播放器

Attribute VB_Name = "Module3"

'****************************************************************************
'人人为我，我为人人
'发布日期：2007/04/06
'描    述：即搜即听的网络播放器
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''
'''    界面设计，歌词显示，操作设计  '''
'''      即搜即听的网络播放器        '''
'''      孙凤鸣设计 2007.3.15       '''
''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''
Public Smin As Long
Public Ssor As Long
Public ASmin As Long
Public ASsor As Long
Public ALeng As Long, Adao As Long
Public AVlu As Long
Public Kplay As Boolean
Public Kloop As Boolean
Public PathLrc As String
Public NameLrc As String, lrc As String
Public Atitel As String, AAuthor As String, ACopyrigh As String, AFileSize As String, AFileType As String, AsourceURL As String, AAttributeName As String, AYear As String
Public Sub Splay()
'播放
On Error Resume Next
Kplay = True
If Form6.A1.URL = "" Then
 Form6.A1.URL = Form2.List1.Text
Form6.A1.Controls.play
Else
Form6.A1.Controls.play
End If
End Sub
Public Sub Spause()
'暂停
Form6.A1.Controls.pause
End Sub
Public Sub Sstop()
'停止
Kplay = False
Form6.A1.Controls.Stop
Form6.Vtimer.Enabled = False
End Sub
Public Sub Sopen()
'打开
On Error Resume Next
If Combo1.List(Combo1.ListIndex) = "" Then
Form2.Combo1.ListIndex = 0
Form2.List2.Clear
Form2.C1.FileName = ""
Form2.C1.Flags = 4096
Form2.C1.Filter = "所有文件|*.*|"
Form2.C1.FilterIndex = 3
Form2.C1.DialogTitle = "添加音乐"
Form2.C1.Action = 1
Else
Form2.List2.Clear
Form2.C1.FileName = ""
Form2.C1.Flags = 4096
Form2.C1.Filter = "所有文件|*.*|"
Form2.C1.FilterIndex = 3
Form2.C1.DialogTitle = "添加音乐"
Form2.C1.Action = 1
End If
If Form2.C1.FileName = "" Then
Else
Form2.List2.Clear
Form2.List2.AddItem Form2.C1.FileName
Dim n As Integer
For n = 0 To Form2.List2.ListCount - 1 Step 1
Form2.List1.AddItem Form2.List2.List(n)
Next n
End If
Form2.List1.Selected(Form2.List2.ListCount - 1) = True
End Sub
Public Sub Sloop()
'循环
If Form2.List1.ListIndex = Form2.List1.ListCount - 1 Then
Form2.List1.Selected(0) = True
Else
Form2.List1.Selected(Form2.List1.ListIndex + 1) = True
End If
End Sub
Public Sub Snext()
'下一曲
Form6.A1.Controls.Stop
Dim Onum As Long
Onum = Form2.List1.ListIndex
Form2.List1.Selected(Onum) = True
Call Sloop
Form6.A1.URL = Form2.List1.Text
Form6.A1.Controls.play
End Sub
Public Sub Son()
'上一曲
Form6.A1.Controls.Stop
Dim Onum As Long
Onum = Form2.List1.ListIndex
If Onum <= 0 Then
Form2.List1.Selected(Form2.List1.ListCount - 1) = True
Else
Onum = Form2.List1.ListIndex - 1
Form2.List1.Selected(Onum) = True
End If
Form6.A1.URL = Form2.List1.Text
Form6.A1.Controls.play
End Sub
Public Sub Sabout()
Form1.Hide
Form2.Hide
Form4.Hide
Form6.Hide
MsgBox "软件最新原创歌词同步显示技术" & Chr$(10) + Chr$(13) & "与歌词同步自动搜索下载技术" & Chr$(10) + Chr$(13) & "美化界面，增强解码功能" & Chr$(10) + Chr$(13) & "整合视频功能，降低资源消耗。", vbInformation, "关于软件"
Form1.Show
Form2.Hide
Form4.Hide
Form6.Hide
End Sub