vb.net循环播放音乐 vbs do loop循环语句
VB.net 如何同时播放多个资源文件内的wav
用API mciSendString可以同时播放多个声音，需要提供路径。
创新互联于2013年成立，是专业互联网技术服务公司，拥有项目网站设计、做网站网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元西乡塘做网站,已为上家服务,为西乡塘各地企业和个人服务,联系电话:13518219792
资源文件很麻烦，要用反射读取出来，再用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 mp3播放，为什么不能循环？应该如何解决？
Private Sub Command1_Click() ''添加音乐文件
On Error Resume Next
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub
Private Sub Command2_Click() '''播放音乐文件
WindowsMediaPlayer1.URL = Text1.Text
WindowsMediaPlayer1.Controls.play
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long) '当歌曲播放状态改变时触发此事件
Static js As Integer
If NewState = 1 Then '如果歌曲播放完毕
js = js + 1 '计数+1
If js 10 Then '是否少于10次
WindowsMediaPlayer1.Controls.play '再次播放
Else
js = 0 '否则停止播放且计数清零
End If
End If
End Sub
不过最好的解决办法是利用歌曲列表来实现，只要在程序中把同一首歌在列表中添加10次，它就会自动重复播放10次，无须再用程序进行额外控制了。这个就你自己去研究了。
vb设置单曲循环
“单曲循环”就是反复播放“当前正在播放的歌曲”吧！
这个应该不难呀，播放器的“行为控制”，是你的代码决定的。
如果选择了“单曲循环”模式，那就在它播放完后，重新加载这首歌曲来播放呗。
当前正在播放的是哪首歌，你的”代码中“是知道的吧！
关于VB.NET的WindowsMediaPlayer控件的问题
思路很重要，我以前做过,上一曲下一曲，这个控件有自带的，顺序的话就是判断是否到音乐帧的尾端，如果是，就指向下一曲,循环的话有单曲和全部，也是比较简单,同顺序,至于随机播放的话，我当时是用随机数解决的，就是计算列表中有多少首歌曲，计算之后，进行随机产生一个数字，用该数字定位歌曲，进行播放
分享标题：vb.net循环播放音乐 vbs do loop循环语句
转载注明：http://scjbc.cn/article/doigdgp.html
