如何用播放声音文件 （80分）

Question

     Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name _
     As String, ByVal hmod As Integer, ByVal flags As Integer) As Integer
   ' name specifies the sound file when the SND_FILENAME flag is set.
   ' hmod specifies an executable file handle.
   ' hmod must be Nothing if the SND_RESOURCE flag is not set.
   ' flags specifies which flags are set.    ' The PlaySound documentation lists all valid flags.
   Public Const SND_SYNC = &H0          ' play synchronously
   Public Const SND_ASYNC = &H1         ' play asynchronously
   Public Const SND_FILENAME = &H20000  ' name is file name
   Public Const SND_RESOURCE = &H40004  ' name is resource name or atom   Public Sub PlaySoundFile(ByVal filename As String)
      ' Plays a sound from filename.
      PlaySound(filename, Nothing, SND_FILENAME Or SND_ASYNC)
   End Sub    sub Button2_Click(Source As Object, e As EventArgs)
       PlaySoundFile(Filename)
    End sub

Answer 1

在ASP.NET中播放声音，
在.aspx文件中添加：
<bgsound src='sound.wav'>或者
在.aspx.cs中添加：
Response.Write("<bgsound src='sound.wav'>");

Answer 2

qiuji你用的方法是背景音乐吗
我想用按钮或控件来自己控制声音文件的播放

Answer 3

给你转载一个：VB.NET中声音的播放    Montaque（原作）  
  
关键字     Beep,PlaySound,调用媒体播放器控件 
  
VB.NET中声音的播放By Montaque       由VB6升级为.NET后，有些人不清楚声音的处理，比如程序出错的时候，自定义一个声音播放，或者程序的背景音乐、包括游戏音乐等
等。下面介绍几种在VB.NET中计较简单可以实现的方案： 1．  Beep最简单的一种方法，通过计算机的扬声器发出声响， 声响的音高与持续时间取决于硬件和系统软件，从而随计算机不同而不同。Beepg跟Msgbox等方法位于Microsoft.VisualBasic.Interaction 中，一般默认系统会自动加载。调用很简单，看下面的例子。Dim I As IntegerFor I = 1 To 100   ' Loop 100 times.     Beep()      '  Sound a tone.Next I 2． 用Win32 API PlaySoundPlaySound位于"winmm.dll"中，可以根据输入参数的不同，播放WAV类型的音乐。在VB.NET中调用跟VB6中差不多：先声明：Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal 
dwFlags As Integer) As Integer Const SND_FILENAME As Integer = &H20000Const SND_ALIAS As Integer = &H10000Const SND_SYNC As Integer = &H0具体还有很多常量，不一一列举，下面是播放一个wav文件的例子Dim mstrfileName As String = "c:\eagle2.wav"PlaySound(mstrfileName, 0, SND_FILENAME) 注意上面的播放是非同步的，就是说它并不会播放完毕才结束。如果把上面的代码写在一个Button.Click的事件处理程序中，第二次点击的时候
它会打断第一次的播放，重新开始。 当然我们也可以调用系统的声音：PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)' 以同步的方式调用系统启动时候的声音。 3．  调用媒体播放器控件 VB.NET中并没有提供媒体播放器的.NET组件，没办法我们还是调用以前Com组件Windows Media Player。当然除了声音外，还可以播放视频文
件。首先把媒体播放器控件加到工具栏中，调用还是简单的写一下吧：） Private Sub playMediaFile(ByVal mediaFileName As String)  With MediaPlayer1   .Stop()   .FileName = "c:\mp3\爱不爱我.mp3"   .Play()  End WithEnd Sub 总结：虽然VB.NET比VB6改变了很多，包括真正的OOP，多线程等等，但是总归还是跟VB有很多联系，建议大家碰到难于解决的问题的时候，试一
下以前的处理方式，一般都能奏效J 
  Made by e-Stack Room
http://www.mycnknow.com

Answer 4

你可以嵌入一个Media Player或者Realone的ActiveX控件。
下面是个嵌入media player的例子（绑定到数据库）：
<!--视频开始-->
<table width="50%" border="0" align=center>
                          <tr> 
                            <td colspan="3" valign="top">
<object id=NSPlay 
                  codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 
                  classid=CLSID:22D6F312-B0F6-11D0-94AB-0080C74C7E95 width=280 
                  height=180 type=application/x-oleobject 
                  standby="加载 Microsoft Windows Media Player 组件...">
                                <param name="ShowControls" value="0">
                                <param name="ShowDisplay" value="0">
                                <param name="ShowStatusBar" value="0">
                                <param name="AutoSize" value="0">
                                <embed type="application/x-mplayer2"        
                  pluginspage="http://www.microsoft.com/Windows/Downloads/Contents/Products/MediaPlayer/" 
                         filename="<%# DataBinder.Eval(Container,"DataItem.mvurl") %>"        src="<%# DataBinder.Eval(Container,"DataItem.mvurl") %>"   
                       showcontrols=1        showdisplay=1        
                  showstatusbar=1        width=280        height=180>
                                </embed></object></td>
                          </tr>
<SCRIPT language=javascript src="js/guidebar.js"></SCRIPT>
<script><!--
function StartMeUp ()
{
    NSPlay.filename = "<%# DataBinder.Eval(Container,"DataItem.mvurl") %>";
}
function ShutMeDown ()
{
    NSPlay.stop();
}-->
                          </script>
                          <tr> 
                            <td  align="center" width=33% valign="top" onmouseover="mOvr(this,'#99cc00');" style="FONT-SIZE: 9pt" onclick=mClk(this); onmouseout="mOut(this,'#C3EC03');" bgcolor="#C3EC03"> 
                              <a href="javascript:StartMeUp()" class="link">播&nbsp;&nbsp;放</a>
                            </td>
                            <td  align="center" width=33% bgcolor="#C3EC03" onmouseover="mOvr(this,'#99cc00');" style="FONT-SIZE: 9pt" onclick=mClk(this); onmouseout="mOut(this,'#C3EC03');"> 
                              <a href="javascript:ShutMeDown()" class="link">停&nbsp;&nbsp;止</a>
                            </td>
                            <td align="center" width=33% bgcolor="#C3EC03" onmouseover="mOvr(this,'#99cc00');" style="FONT-SIZE: 9pt" onclick=mClk(this); onmouseout="mOut(this,'#C3EC03');"> 
                              <a href="showmv2.aspx?id=<%# DataBinder.Eval(Container,"DataItem.mvid") %>" class="link">大屏幕观看</a> 
                            </td>
                          </tr>
                        </table>
<!--视频结束-->

Answer 5

补充：guidebar.js代码
function mOvr(src,clrOver) { if (!src.contains(event.fromElement)) { src.bgColor = clrOver; }}function mOut(src,clrIn) { if (!src.contains(event.toElement)) { src.style.cursor = 'default'; src.bgColor = clrIn; }} function mClk(src) { if(event.srcElement.tagName=='TD'){src.children.tags('A')[0].click();}}