成都网站建设设计

将想法与焦点和您一起共享

vb.net播放资源,vb完整版

vb.net中使用Axwindowsmediaplayer控件播放资源文件中的wmv

resources资源文件是基于流的模型读取到内存中的没法转换成URL!

创新互联公司是一家专业从事成都网站制作、成都做网站、网页设计的品牌网络公司。如今是成都地区具影响力的网站设计公司,作为专业的成都网站建设公司,创新互联公司依托强大的技术实力、以及多年的网站运营经验,为您提供专业的成都网站建设、营销型网站建设及网站设计开发服务!

你在程序运行目录下添加一个文件夹然后把MP3文件拷贝进去。

然后:winmp.url = Application .StartupPath "\文件夹\***.mp3"

如果非得要在resources资源文件中播放,只能用System.Media.SoundPlayer类

Dim msp As New System.Media.SoundPlayer(My.Resources.***)

msp.Play()

SoundPlayer类只支持WAV,打包后的程序是巨大的!!!

VB.NET如何调用并播放项目资源内的WAV文件。

代码是没有错的,但是其中关键是声音文件资源定义字串必须使用根命名空间,不能用程序集名称;还有就是声音文件必须选属性为嵌入资源。

My.Computer.Audio.Play(My.Resources.xxxmusic1xxx, AudioPlayMode.Background)

VB.NET 怎样实现不中断地播放资源文件里的音频? 用户点一次鼠标就播放资源文件里时长为三秒的

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

Dim th As New Threading.Thread( _

Sub()

My.Computer.Audio.Play(New Byte() {}, AudioPlayMode.WaitToComplete)

End Sub)

th.Start()

End Sub

如果是WAV文件,这样就行了,不会同时播放

VB.NET 如何播放资源文件里的 wav ?

res 没有实例化应该,你下个断点在Dim bytes(res.Length - 1) As Byte这句,然后看看res是不是为nothing

VB.net 如何同时播放多个资源文件内的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.net播放资源,vb完整版
当前路径:http://chengdu.cdxwcx.cn/article/hdpepp.html