如何下载最新版酷我音乐盒中的mv


 发布时间:2021-02-23 12:12:45

添加一个MMControl控件播放音乐,一个ListView控件显示播放列表,一个Slider控件显示播放进度条,其他按钮标签自己添加。Private Sub Form_Load() ListView1.ColumnHeaders.Add , , "名称" ListView1.ColumnHeaders.Add , , "地址", 2500 ListView1.GridLines = True ListView1.FullRowSelect = True ListView1.View = lvwReport ListView1.LabelEdit = lvwManual ListView1.HideSelection = True Slider1.Visible = False End SubPrivate Sub ListView1_DblClick() If ListView1.ListItems.Count = 0 Then Exit Sub '没有记录退出 If ListView1.SelectedItem Is Nothing Then Exit Sub '没有选中记录退出 PalyMusic ListView1.SelectedItem.SubItems(1) '调用PalyMusic过程播放音乐 End SubPrivate Sub MnuOpen_Click() ' 打开音乐文件 OpenFile.DialogTitle = "选择音乐文件" OpenFile.FileName = "" OpenFile.Filter = "MIDI音乐*.mid|*.mid|Wav音乐*.wav|*.wav|MP3音乐*.mp3|*.mp3" ' 设定打开文件类型 OpenFile.ShowOpen If OpenFile.FileName = "" Then Exit Sub '如果没有选择文件名就为退出 ListView1.ListItems.Add , , OpenFile.FileTitle ListView1.ListItems(ListView1.ListItems.Count).SubItems(1) = OpenFile.FileName ListView1.SelectedItem = ListView1.ListItems(ListView1.ListItems.Count) MMControl1.FileName = "" MMControl1.DeviceType = "" '由系统默认设备类型 ' '判断打开的音乐文件类型是否为MP3格式,如果MP3文件则指定多媒体设备类型为mp3audio ' MsgBox OpenFile.FilterIndex ' If OpenFile.FilterIndex = 3 Then MMControl1.DeviceType = "mp3audio" PalyMusic OpenFile.FileName '调用PalyMusic过程播放音乐 End SubPrivate Sub MMControl1_StatusUpdate() '播放文件是发生 On Error GoTo Erropen MMControl1.TimeFormat = 0 '设置文件长度以毫秒形式返回, Slider1.Max = MMControl1.Length / 1000 '求得文件的最大长度 If MMControl1.Position MMControl1.Length Then '判断文件是否播放完毕 Slider1.Value = MMControl1.Position / 1000 '得到当前播放的位置 Else MMControl1.Command = "Prev" '回到音乐文件的开如位置 Slider1.Value = 0 ' 当前值为0 End If '调用ToMS函数计算剩余时间和总时间 Exit Sub Erropen: MsgBox "播放文件出错!", vbInformation Or vbOKOnly, "系统提示" End Sub Private Function ToMS(SM As Long) As String '自定义将毫秒转化为分、秒Tstring函数 Dim Ld_s As Double Dim Ld_m As Double Ld_s = (SM / 1000 / 60) Mod 60 Ld_m = (SM / 1000) Mod 60 ToMS = Format(Ld_s, "00") & ":" & Format(Ld_m, "00") End FunctionPrivate Sub MMControl1_Done(NotifyCode As Integer) 'MCI 命令结束时发生。

MMControl1.UpdateInterval = 100 ' 间隔100毫秒 End SubPrivate Sub MnuClose_Click() '结束 MMControl1.Command = "Stop" End SubPrivate Sub Paly_Click() '播放 MMControl1.Command = "Play" ' 继续播放 End SubPrivate Sub stop_Click() '暂停 MMControl1.Command = "Pause" ' 暂停播放 End SubPrivate Sub PalyMusic(FileName As String) '播放指定路径的音乐 MMControl1.Notify = False '不产生Done事件。MMControl1.Wait = True '等到下一个 MCI 命令完成 MMControl1.Shareable = False '其它控件或应用程序不能访问这台设备 MMControl1.FileName = FileName MMControl1.Command = "Open" ' 打开 MCI 设备。

MnuClose.Enabled = True Slider1.Visible = True End Sub。

音乐盒 文件夹 文件

上一篇: 考武汉音乐学院需要做些什么准备.?

下一篇: 诺基亚5610和5310那个好



发表评论:
最新图文





网站首页 | 网站地图

Copyright © 2012-2020 花遮歌曲网 版权所有 0.29341