モジュールからplaysoundが使えないんです

解決

---

エクセルＶＢからｗａｖの音を鳴らしたいのですが
結局ｐｌａｙｓｏｕｎｄというサブルーチンを見つけて
フォームからｃａｌｌしたらちゃんと音が鳴ったのですが

モジュールからｃａｌｌしたらエラーになります。
モジュールからｃａｌｌ命令って使えないんですか？
とにかく音を鳴らしたいので解決方法を教えて下さい。お願いします。

編集 削除

---

とりあえず、PlaySoundとかいう奴の宣言文を見せてくれ…
多分スコープだと思うが。

編集 削除

---

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long




Private Sub Command1_Click()
    Call PlaySound("C:\WINDOWS\MEDIA\The Microsoft Sound.wav", 0, 0)
End Sub 


これですわ。ｃａｌｌかけるごとに音がでます

編集 削除

---

ぁぁ…まぁ、普通にスコープですね。
とりあえず、こうしてみてください。

'標準モジュール
PUBLIC Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

'フォームモジュール
Private Sub Command1_Click()
    Call PlaySound("C:\WINDOWS\MEDIA\The Microsoft Sound.wav", 0, 0)
End Sub

編集 削除

---

ありがとうございました。
解決しました

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。