Excel VBA質問箱 IV

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

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


67342 / 76734 ←次へ | 前へ→

【13950】サウンド関連
質問  For Each  - 04/5/17(月) 19:34 -

引用なし
パスワード
   ゲームを作っていて、問題が出てきました。
サウンドを再生するAPIのmicSendStringをつかっているのですが、それで音が鳴っている最中に、Gettickcount同期をすると、 エラー(式が複雑すぎます) が発生します。
コードにすると(標準モジュールへのAPIの宣言は省略)

Function Sound(FileName As String)
dim rc As Long
rc = mciSendString("Play " & FileName, "", 0, 0)
End Function

Sub マクロ1()
Dim Stime As Double
Stime = GetTickCount
Sound "ここにサウンドファイルの絶対パス"
Do While GetTickCount - Stime < 20: Loop <-------ここでエラー発生
End Sub

と言う感じです。sndPlaySoundは既に使っているのでそれ以外で何か対処法を知っている方は、是非教えてください。
補足:
  Shell関数でWindowsMediaPlayerを起動させ、ファイルを再生しても、同じエラーに  なります
1 hits

【13950】サウンド関連 For Each 04/5/17(月) 19:34 質問
【13955】Re:サウンド関連 For Each 04/5/17(月) 22:33 発言
【13957】Re:サウンド関連 ichinose 04/5/17(月) 23:25 発言

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