开发工具:
文件大小: 64kb
下载次数: 0
上传时间: 2011-12-10
详细说明： 多媒体播放器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 ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
