从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图