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

解決

ははに 2005-04-25 03:01:09 No: 89543

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

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

ガッ 2005-04-25 03:37:13 No: 89544

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

ははに 2005-04-25 05:10:10 No: 89545

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

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

ガッ 2005-04-25 05:21:58 No: 89546

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

'標準モジュール
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

ははに 2005-04-25 05:35:18 No: 89547

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