Imports System.Reflection
創(chuàng)新互聯(lián)云計算的互聯(lián)網(wǎng)服務(wù)提供商,擁有超過13年的服務(wù)器租用、四川綿陽服務(wù)器托管、云服務(wù)器、網(wǎng)頁空間、網(wǎng)站系統(tǒng)開發(fā)經(jīng)驗,已先后獲得國家工業(yè)和信息化部頒發(fā)的互聯(lián)網(wǎng)數(shù)據(jù)中心業(yè)務(wù)許可證。專業(yè)提供云主機、網(wǎng)頁空間、域名注冊、VPS主機、云服務(wù)器、香港云服務(wù)器、免備案服務(wù)器等。
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)
代碼是沒有錯的,但是其中關(guān)鍵是聲音文件資源定義字串必須派好使用根命名空氏羨褲間,不能用程序集名稱;還殲簡有就是聲音文件必須選屬性為嵌入資源。
My.Computer.Audio.Play(My.Resources.xxxmusic1xxx, AudioPlayMode.Background)
首先將swf文件添散嫌加進(jìn)資源,方法:
假設(shè)資源沖掘襲文件是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