用VB程式語言設計"大家來找碴"小遊戲（2）

在前一文"用VB程式語言設計"大家來找碴"小遊戲（1）"用到語法：MsgBox("訊息內容")，來達成提示訊息的遊戲互動，如下：

第一，依據遊戲規則建立程式雛形(以下程式範例假設有5個不同處)：
比較左右圖片，在右圖上每次以滑鼠點選不同處，就有提示找到訊息，如果點錯，也會提示答錯訊息。

但是遊戲如果沒有音效，就會少了趣味，因此本文說明修改程式，以音效取代提示訊息...

<本文開始>------------------------------------------------

第二，修改程式碼，用音效取代提示訊息。

比較左右圖片，在右圖上每次以滑鼠點選不同處，就會發出"tada"音效(微軟舊作業系統音效)，如果點錯，也會發出"uhoh"音效(ICQ音效)。


[程式撰寫]此處只用一種語法：My.Computer.Audio.Play("..\..\Resources\音效檔名.副檔名")取代MsgBox("訊息內容")，令電腦播放音效。

1. 到網路下載"tada.wav"及"uhoh.wav"音效檔。
2. 將音效檔複製到Resources資料夾內。
3. 開啟程式碼編輯視窗，先在Label1程式碼區塊內的敘述"MsgBox("訊息內容")"末端，按Enter鍵，跳下一空白行輸入：My.Computer.Audio.Play("..\..\Resources\tada.wav")
4. 再將Label1程式碼區塊內的敘述"MsgBox("訊息內容")"前端輸入'符號(半形單引號)，讓該行敘述變成註解而無法執行。用註解取代刪除敘述，一方面可以呈現程式碼修改歷程，一方面也可以避免日後反悔而重寫。你會在程式碼編輯視窗看見以下內容，紅色標示表示你輸入的程式碼：
   Public Class Form1
   
       Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.ClicK
           'MsgBox("你找到了！")
           My.Computer.Audio.Play("..\..\Resources\tada.wav")
       End Sub
   End Class
5. 重複3.及4.的作法，完成Label2~6的程式碼編輯。
6. Label6是用來當作相同處，所以播放音效檔名改成uhoh.wav。

............程式已經可以播放音效了，你可以按 ▶開始 玩玩看........................