在vb中播放声音

好的，所以我已经使用visual studio 2010完成了一个名为lucky 7的游戏。我想在赢得游戏时播放声音（在三个插槽之一中获得7）。下面是代码：在vb中播放声音

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 



    For i = 0 To 2 
     slots(i) = rand.Next(10) 
    Next 

    Label1.Text = (slots(0).ToString) 
    Label2.Text = (slots(1).ToString) 
    Label3.Text = (slots(2).ToString) 

    If slots(0) = 7 Or slots(1) = 7 Or slots(2) = 7 Then 
     score = score + 100 'REM 10 points for each win 
     Label4.Text = (score.ToString) 
     PictureBox1.Visible = True 'REM If you have a PictureBox 
     PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", 
    Else 
     PictureBox1.Visible = False 
    End If 

    If score = 500 Then 

     MsgBox("You Scored 500 Points!", vbInformation) 
    End If 


End Sub

事情是，我上“playsound”语句错误，我真的很想当玩家赢得游戏玩的声音！

我也尝试创建一个重置按钮，它将得分和所有三个插槽重新设置为0，但是当我点击它时，什么也没有发生。下面是重置按钮的代码：

你有没有通过代码走，以确保没有发生任何事情上的按钮单击事件使用My.Computer.Audio.Play

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click 
    score = 0 
    PictureBox1.Visible = False 
End Sub

来源

2013-04-18 user2262982

试试？点击“score = 0”这一行的最左侧将设置一个断点。这会在您运行代码时暂停代码。您可以将鼠标悬停在可变分数上，并显示它的值。按[F8]将执行它，您可以将其悬停在上面，看看它是否已更改。

来源

2013-04-18 16:47:12 DBNickel

当我使用“My.Computer.Audio.Play（tada.wav）”时仍然不起作用，我收到错误消息。 – user2262982

什么错误？您需要在引号中包含“tada.wav”，并且可能需要提供整个路径。另外，即使该声音是与OS一起发送的，您也无法确定它会在客户端计算机上。或者，您可以使用 My.Computer.Audio.PlaySystemSound（Media.SystemSounds.Exclamation）声音不太一样。 – DBNickel

您还可以添加声音作为资源： http://stackoverflow.com/questions/7116669/how-to-play-wav-in-vb-net-from-resources – DBNickel

从您的重置按钮事件，您的分数重置为0，但不是文本。没有改变你的3个插槽的文字。

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click 
    Label1.Text = "0" 
    Label2.Text = "0" 
    Label3.Text = "0" 
    Label4.Text = "0" 
    score = 0 
    PictureBox1.Visible = False 
End Sub

来源

2013-04-18 17:34:12 ajakblackgoat

正如有人提到的声音文件可能不会出现在每台计算机上。你应该看看使用系统的哔声，可以修改，以制造一些奇怪的钟声。我有很多的乐趣...

至于你的重置按钮...你还没有编码的标签文本重置。我猜你只想要一个视觉上的改变，因为当你再次玩时，这些值将会改变。然而，作为一个重置按钮，我想你可能想重置每个标签文本string.empty或其他东西。

来源

2013-04-19 00:16:21

在vb中播放声音

回答

相关问题