重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Imports System.Reflection
创新互联云计算的互联网服务提供商,拥有超过13年的服务器租用、四川绵阳服务器托管、云服务器、网页空间、网站系统开发经验,已先后获得国家工业和信息化部颁发的互联网数据中心业务许可证。专业提供云主机、网页空间、域名注册、VPS主机、云服务器、香港云服务器、免备案服务器等。
Imports System.IO
'下面是读取嵌入文件方法
Dim res As Stream = Assembly.GetEntryAssembly.GetManifestResourceStream("罩胡WindowsApplication1.duanxin.wav")'WindowsApplication1为你实际腔闷配的工程文件名伍指
Dim bytes(res.Length - 1) As Byte
res.Read(bytes, 0, bytes.Length)
My.Computer.Audio.Play(bytes, AudioPlayMode.Background)
代码是没有错的,但是其中关键是声音文件资源定义字串必须派好使用根命名空氏羡裤间,不能用程序集名称;还歼简有就是声音文件必须选属性为嵌入资源。
My.Computer.Audio.Play(My.Resources.xxxmusic1xxx, AudioPlayMode.Background)
首先将swf文件添散嫌加进资源,方法:
假设资源冲掘袭文件是workergame.swf(你按照自己的改),将其释放到临时文件,供AxShockwaveFlash控件播放,完整代码:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim size As Long = My.Resources.workergame.Length - 1
Dim buffer(CInt(size)) As Byte
buffer = My.Resources.workergame.ToArray
Dim fn As String = IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Temp, "workergame.swf"散兄)
Dim fs As New IO.FileStream(fn, IO.FileMode.Create)
fs.Write(buffer, 0, buffer.Length)
fs.Close()
AxShockwaveFlash1.Movie = fn
End Sub