心 涯

NET&JAVA&PHP(要跨界,你不只要跨「脑」的界限,更要跨越「心」的界限,不怕改变,不怕再学习!)

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::
// To play a File from a disk locaiton
Dim objPlayer As New SoundPlayer
objPlayer.SoundLocation = "C:\Alert.wav"
objPlayer.Play()

// To play a File from applcation as embedded resouce
Dim objPlayer As New SoundPlayer
objPlayer.Stream = GetEmbeddedResourceStream()
objPlayer.Play()

Protected Function GetEmbeddedResourceStream() As Stream
  Dim objAssembly As System.Reflection.Assembly
  Dim soundstream As Stream
  objAssembly = System.Reflection.Assembly.LoadFrom(Application.ExecutablePath)
  soundstream = objAssembly.GetManifestResourceStream("Alert.wav")
  return soundstream
End Function
posted on 2007-10-14 23:50  witer666  阅读(306)  评论(0编辑  收藏  举报