Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10048 / 13644 ツリー ←次へ | 前へ→

【24007】API関数のsndPlaySoundでwavファイルを再生する方法 skuroyan 05/4/9(土) 21:39 質問[未読]
【24015】Re:API関数のsndPlaySoundでwavファイル... ウッシ 05/4/9(土) 23:10 回答[未読]
【24032】Re:API関数のsndPlaySoundでwavファイル... skuroyan 05/4/10(日) 13:08 お礼[未読]

【24007】API関数のsndPlaySoundでwavファイル...
質問  skuroyan  - 05/4/9(土) 21:39 -

引用なし
パスワード
   現在の私の作成したプログラムでは、入力条件エラーのときshell関数でwavファイルを再生して、音を出して入力者に警告を出しています。一応動作してくれますが、次の問題があります。
問題点:メディアプレーヤーを起動し音を鳴らしてから閉じるため、もう少しスピーディな方法に変えたい。
改善案としてAPI関数で出来ることを調べ下記のHPを参照しやってみましたが、下記の部分でエラーになってしまいます。
http://homepage1.nifty.com/MADIA/vb/API/sndPlaySound.htm
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String,ByVal uFlags As Long) As Long
エラー内容は、次の通りです。
コンパイルエラー End Sub,End Functionまたは、End Property以降には、コメントのみが記述できます。
どのように、何を、どこに記述したらよいか詳細を教えて下さい。

【24015】Re:API関数のsndPlaySoundでwavファイ...
回答  ウッシ  - 05/4/9(土) 23:10 -

引用なし
パスワード
   こんばんは

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String,ByVal uFlags As Long) As Long

は標準モジュールの先頭にセットして有りますか?

【24032】Re:API関数のsndPlaySoundでwavファイ...
お礼  skuroyan  - 05/4/10(日) 13:08 -

引用なし
パスワード
   ▼ウッシ さん:
>Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String,ByVal uFlags As Long) As Long
>は標準モジュールの先頭にセットして有りますか?

いいえ、先頭にセットしてありません。次のような感じでした。
Sub Macro1()
  Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String,ByVal uFlags As Long) As Long
  他の制御文
End Sub

先頭にセットして試したところ、ポーンとチャイムの音が出ました。
また、wavファイルを変えて別の音を出すことも出来ました。
このところ私の疑問をすべて教えていただき、本当に有難うございました。これまで未熟なため試行錯誤の連続で無駄な時間と労力ばかり使ってきましたので、大変助かっています。今後ともよろしくお願い致します。

10048 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free