资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

vb点虐 播放bgm vbs播放音乐

vb点虐 中 如何实现 播放mp3文件

在.NET里,没有托管的音乐播放器,用API只能播放WAV格式,对于MP3等形式的音频文件,就要依赖于其他控件了,常用的就是

创新互联主要从事网站制作、做网站、网页设计、企业做网站、公司建网站等业务。立足成都服务响水,10余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108

MediaPlayer。使用方法:

在工具箱上点右键,选择“选择项目(Choose Items)”,切到COM选项卡,找到 Windows Media Player, 勾选,确定

在t工具箱上,把刚才加入的MediaPlayer控件,拖放到窗体上

代码:

WindowsMediaPlayer1.URL = "mp3文件路径,支持网络路径"

WindowsMediaPlayer1.Ctlcontrols.play

基本就OK了,至于其他的操作诸如下一曲上一曲暂停停止,直接看 WindowsMediaPlayer1.Ctlcontrols. 里面的方法吧。

在vb点虐 2010里做一个音乐播放器,昨晚发现添加在listbox里的歌曲不能播放。求大神指教

ab Me.ListBox1.Text

你确定歌曲文件名和扩展名是listbox的text属性,而不是其列表集合listbox1.items?

me.listbox1.text的赋值应该是你的button2,那是一个目录名,ab也是目录名,这句等于是两个目录名拼接。

得到目录名,这句就够了。

ab = IO.Path.GetDirectoryName(song) "\"

VB点虐 如何同时播放多个资源文件内的wav

用API mciSendString可以同时播放多个声音,需要提供路径。

资源文件很麻烦,要用反射读取出来,再用IO写到磁盘路径。

你是做游戏把?软糖建议是不要使用资源文件,而使用本地文件。

用个BGM文件夹保存背景音乐,用SE文件夹保存音效(学习RPG Maker的做法)

API代码奉上,具体实现模块字数超过最大值,请下载附件

Imports System.Text

''' summary

''' 可播放MPEG,AVI,WAV,MP3,MID,WMA等格式的音频文件,*不支持OGG

''' /summary

Public Class 音频设备

'声明API函数: mciSendString

System.Runtime.InteropServices.DllImport("winmm.dll", EntryPoint:="mciSendString")

Public Shared Function mciSendString(strCommand As String,

strReturn As StringBuilder,

iReturnLength As Integer,

hwndCallback As Integer) As Integer

End Function

'声明API函数: mciGetErrorString

System.Runtime.InteropServices.DllImport("winmm.dll", EntryPoint:="mciSendString")

Public Shared Function mciGetErrorString(errCode As Integer,

errMsg As StringBuilder,

buflen As Integer) As Integer

调用方法

Public Class Form1

Dim 音频设备 As New 音频设备

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim 路径 = "F:\音乐文件名.mp3"

音频设备.打开("自定义名称1", 路径)

音频设备.播放("自定义名称1")

'音频设备.暂停("自定义名称1")

'音频设备.继续("自定义名称1")

'音频设备.关闭("自定义名称1")

End Sub

End Class

如满意,请采纳,还有不懂的请追问,谢谢。


当前文章:vb点虐 播放bgm vbs播放音乐
链接URL:http://www.cdkjz.cn/article/ddeogpp.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

大客户专线   成都:13518219792   座机:028-86922220