资源介绍
多媒体播放器Dim lujin As String
Private Sub dakai_Click()
lujin = ForFolder(hWnd, "请选择歌曲目录")
If lujin <> "" Then If Right(lujin, 1) <> "\" Then lujin = lujin + "\"
File1.Pattern = "*.mp3;*.wav;*.mid;*.mp4;*.CD;*.MIDI;*.rm;*.asx;*.dat;*.asf"
File1.Path = lujin
If File1.List(0) = "" Then StatusBar1.SimpleText = "没有找到歌曲文件"
Label4.Caption = File1.ListCount
End Sub
Private Sub danquxunhuan_Click()
Label8.Caption = "单曲循环"
End Sub
Private Sub File1_DblClick()
If File1.List(File1.ListIndex) <> "" Then WindowsMediaPlayer1.URL = lujin + File1.List(File1.ListIndex) '从零开始的
n = WindowsMediaPlayer1.currentMedia.Name
If File1.List(0) <> "" Then StatusBar1.SimpleText = " 正在播放：" & n
End Sub
Private Sub Form_Load()
'开始清空列表
File1.FileName = "*.VB"
File1.Refresh
'清空列表结束
Label2.Caption = Now
Timer1.Interval = 1000
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Form2
Unload Form3
End Sub
Private Sub guanyubofangqi_Click()
Form3.Show
End Sub
Private Sub guanyuzuozhe_Click()
Form2.Show
End Sub
Private Sub Image2_Click()
End Sub
Private Sub litisheng_Click()
Form1.WindowsMediaPlayer1.settings.balance = 0
Label3.Caption = "立体声"
Csc = 0
End Sub
Private Sub quanbuxunhuan_Click()
Label8.Caption = "全部循环"
End Sub
Private Sub shuenxuxunhuan_Click()
Label8.Caption = "顺序循环"
End Sub
Private Sub suijibofang_Click()
Label8.Caption = "随机循环"
End Sub
Private Sub Timer1_Timer()
Label2.Caption = Now
End Sub
Private Sub tuichu_Click()
Unload Me
End Sub
Private Sub youshengdao_Click()
Form1.WindowsMediaPlayer1.settings.balance = 100
Label3.Caption = "右声道"
End Sub
Private Sub zuoshengdao_Click()
Form1.WindowsMediaPlayer1.settings.balance = -100
Label3.Caption = "左声道"
Csc = Csc + 1
End Sub
- 上一篇: ASX340AT-D.PD.pdf
- 下一篇: PEncrypt4加壳工具