ファイルを開いて１回しか再生されない
- VBＡで音楽を鳴らしたいが、ファイルを開いて一度実行すると、それ以降再生されない。
- 環境はWindows 7とOffice 2007。
- ファイルを再度開けば再生できるが、1回限りの再生。
- ベストアンサー
ファイルを開いて１回しか再生されない
ＶＢＡで音楽を鳴らしたいのですが、 ファイルを立ち上げて音楽を鳴らすプロシージャーを一度実行すると、 もう何度Ｆ５を押しても実行されません。 しかしファイルを開きなおすとまた実行できます。でも１回限りです。 コードはこちらです。 ------------------------------------------------------------ Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _ (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _ ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Sub PlaySound() Dim SoundFile As String, rc As Long SoundFile = "C:\【音楽】\test.mp3" If Dir(SoundFile) = "" Then MsgBox SoundFile & vbCrLf & "がありません。", vbExclamation Exit Sub End If SoundFile = Chr(34) & SoundFile & Chr(34) rc = mciSendString("Open " & SoundFile, "", 0, 0) rc = mciSendString("Play " & SoundFile, "", 0, 0) End Sub ------------------------------------------------------------ ２回目実行した際音楽が鳴らないからってファイルがありませんと表示されるわけでもないです。 当方の環境はＯＳＷＩＮ７、ＯＦＦＩＣＥ2007です。 ご回答よろしくお願いします。
- LIGTOOVD2
- お礼率100% (39/39)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは。 コードを見る限りにおいては、サウンド・アプリが開きっぱなしになっていて、操作できないと思います。一旦、閉めないと(Close)、二度目は鳴らないのではないでしょうか？ rc = mciSendString("Close " & SoundFile, "", 0, 0) もちろん、別のプロシージャでないと、瞬間に終わってしまいますが……。
関連するQ&A
- ｖｂａで鳴らした音楽を止めたい
ｖｂａのAPIで音楽を鳴らした後、 曲が終わる前に、ｖｂａで終了させたいのですが Option Compare Database Option Explicit Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _ (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _ ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Sub test() Dim mySoundFile As String Dim rc As Long mySoundFile = "C:\tset.mp3" rc = mciSendString("Close " & mySoundFile, "", 0, 0) End Sub これを実行してもエラーにもならないし音楽も鳴り止まないのですが どこがまちがってますか？ "C:\tset.mp3"で音楽を再生したので、 "C:\tset.mp3"は存在します。
- ベストアンサー
- オフィス系ソフト
- ExcelVBA ファイルを相対パスで関連付けたい
いつもお世話になっています。 Excelで効果音をWAVファイルを鳴らすコードがあります。 このファイルのフルパスを相対パスに変更したいのですが、 どうすればよろしいでしょうか。 よろしくお願いいたします。 Sub sample() Dim SoundFile As String, rc As Long SoundFile = "C:\Users\aaa\Desktop\Sound\boo.wav" rc = mciSendString("Play " & SoundFile, "", 0, 0) End Sub
- ベストアンサー
- Visual Basic
- vb6.0でwavファイルの終了を監視する方法について
お世話になります。 vb6.0でwavファイルを再生するプログラムを作成しております。 下記にコードを記述させていただきます。 Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String _ , ByVal lpstrReturnString As String _ , ByVal uReturnLength As Long _ , ByVal hwndCallback As Long) As Long Private Sub MSComm1_OnComm() '演奏が終了しているか確認 If LCase$(Left$(mciSendString("Status MIDI1 mode", "", 0, 0), 7)) = "stopped" Or _ LCase$(Left$(mciSendString("Status MIDI1 mode", "", 0, 0), 7)) = "0" Then ←(1) Dim ret As Long ret = mciSendString("stop midifile ", "", 0, 0) ret = mciSendString("close midifile", "", 0, 0) ret = mciSendString("open """ & P_PLIST_WARNING & """", "", 0, 0) ret = mciSendString("play """ & P_PLIST_WARNING & """ from 0 wait", "", 0, 0) ret = mciSendString("stop """ & P_PLIST_WARNING & """", "", 0, 0) ret = mciSendString("close """ & P_PLIST_WARNING & """", "", 0, 0) End If End Sub wavファイルを再生するにあたり、まず再生されていない状態を確認してから、再生したいと考えています。 しかしながら、(1)のコードで戻り値が"stopped"または"0"ではなく、"263"で返ってきており、停止を監視できず困っております。 お手数ですが、ご教授いただきたく宜しくお願い申し上げます。
- ベストアンサー
- Visual Basic
- ＶＢＡのwav操作ついて！！
エクセルのＶＢＡでプログラムを作っているのですが、wavを操作することに関してわからないことがあります。 (general）に -------------------------------------------------------- Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Private Const FILE001_NAME As String = "C:\001.wav" Private Const FILE002_NAME As String = "C:\002.wav" ・・・ ------------------------------------------------------- というのを入れていまして、音を出したいところで Call mciSendString("play """ & FILE○_NAME & """", "", 0, 0) という方式でwavを再生させようと思っています。 ここで、FILEのあとをワークシート１上のA1セル上の数字に変えたいと思います。つまり、A1セル内の数（乱数で1～100のいずれかを表示させています）を○のところに入れるにはどうすればいいでしょうか？ どなたかおわかりになる方、教えてください。お願いいたします。
- ベストアンサー
- Visual Basic
- VBSでＣＤトレイのオープン／クローズのコーディング方法わかりません。
VBSでＣＤトレイのオープン／クローズのコーディング方法わかりません。 Excel for VBA では出来ましたが、VBSで作りたいのです。 http://www.mhl.janis.or.jp/~winarrow/vbscript/htm/vbs230.htm を見ると、VBSではDeclareが使えないようですね。 やり方がわかる方がいましたら、よろしくお願いします。 ----------- [Excel for VBA] Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpSectorsPerCluster As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Sub CD_Open() Ret = mciSendString("set cdaudio door open", vbNullString, 0, 0) End Sub Sub CD_Close() Ret = mciSendString("set cdaudio door closed", vbNullString, 0, 0) End Sub -----------
- 締切済み
- Visual Basic
- midi再生について
visual basicを使ってゲームを作成しております。 あるサイトを見てmidiの再生をやってみようと下記のコードを入力しました。 Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _ (ByVal lpstrCommand As String, _ ByVal lpstrReturnString As String, _ ByVal uReturnLength As Long, _ ByVal hwndCallback As Long) As Long Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMillsecounds As Long) Sub MCI_Test() Dim P As String, filename As String filename = "sample.mid" P = """" & ActiveWorkbook.Path & "\" & filename & """" Call mciSendString("open " & P & " alias sample", vbNullString, 0, 0) DoEvents Call mciSendString("play sample from 0", vbNullString, 0, 0) Call Sleep(10000) Call mciSendString("close sample", vbNullString, 0, 0) End Sub このコードでfilenameの部分を変更しwavファイルのsample.wavやMP3ファイルのsample.mp3は再生する事ができました。しかし、midiファイルはsample.midを同じフォルダ内に入れているにも関わらず全く音が鳴りません。どこが間違っているのでしょうか。教えてください。宜しくお願い致します。
- 締切済み
- Visual Basic
- 音楽ファイルが再生できない(VBA)
http://qa.nou-college.net/qa4877134.html の続きですが Sub Sample1() Dim SoundFile As String SoundFile = "C:\Users\Music\サザンオールスターズ／希望の轍.mp3" If Dir(SoundFile) = "" Then MsgBox SoundFile & vbCrLf & "がありません。", vbExclamation Exit Sub End If Shell "mplay32.exe /play /close " & SoundFile End Sub を実行すると「ファイルが見つかりません」となります。 他のMP3ファイルでも同じです。 APIを使う方法なら成功しました。 「MsgBox SoundFile & vbCrLf & "がありません。", 」 とならないのでファイルは見つかっているのだと思います。 何か原因がわかる方よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAで画像ファイルをダウンロードしたいけどうまく
VBAで画像ファイルをダウンロードしたいけどうまく行かない・・・ XPで、オフィス２００３です。 http://officetanaka.net/other/extra/tips01.htm を参考に、画像ファイルをダウンロードする練習をしているのですが "エラーが発生しました"になってしまいます。 標準モジュールに --------------------------------------------------------- Option Explicit Public Declare Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" (ByVal pCaller As Long, _ ByVal szURL As String, ByVal szFileName As String, _ ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Sub Sample() GetImageFile "http://www.officetanaka.net/sample.jpg", "C:\sample.jpg" End Sub Sub GetImageFile(ImgName As String, SaveName As String) Dim SaveFileName As String, DownloadFile As String, Ret As Long Ret = URLDownloadToFile(0, DownloadFile, SaveFileName, 0, 0) If ImgName = "" Then Exit Sub SaveFileName = SaveName DownloadFile = ImgName Ret = URLDownloadToFile(0, DownloadFile, SaveFileName, 0, 0) If Ret = 0 Then MsgBox "ダウンロードできました" Else MsgBox "エラーが発生しました" End If End Sub --------------------------------------------------------- を貼り付けました。 Retが0にならなくてはいけないみたいですが、 自分の場合は、-2147221020になってしまいます。 どう修正すればいいのか教えてください。
- ベストアンサー
- オフィス系ソフト
- VB 動画再生する際にカレントディレクトリを指定して再生
私は今、あるアプリケーションを作っているのですが、オープニングムービーを再生したいと思っております。 開発環境：Visual studio 2008 言語：VB 現在はサイト等で検索し、 Private Declare Ansi Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer Const stCurrentDir As String = CurDir$() Const FileName As String = stCurrentDir & """\openning.mpg""" という感じでファイルの場所を指定しているのですが、どうもconstがネックです。 これをdimで指定すると再生されないのです。 だからと言ってconstでやると、普通にカレントディレクトリを指定せずすべて指定するとできるのですが、上のようにカレントディレクトリを求めると、定数式が必要と出てしまいます。 どうにかうまくいく方法等ありませんでしょうか？ よろしくお願いいたします！
- 締切済み
- Visual Basic
- VB2008で簡単なmp3プレイヤーを作ろうと思っています。
アイコン右クリックでContextMenuを表示させてプログラムの制御をしたいのですが・・・一応、メニューを右クリックから表示させて終了させるとこまでは出来ました。ですが、再生、停止（できれば一時停止も）がわからず探しています。色々とgoogle等でも調べたのですがよくわからず、困っています。 また、mp3を再生する前にファイルを開くウィンドウを別で開き参照させたいのですが、これがいまいちわかりません。他サイトでは Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Private Const FILE_NAME As String = "C:\Test.mp3" Private Sub Command1_Click() Call mciSendString("play """ & FILE_NAME & """", "", 0, 0) End Sub Private Sub Command2_Click() Call mciSendString("close """ & FILE_NAME & """", "", 0, 0) End Sub というのも紹介されてたのですが、これだとファイルを参照してもTest.mp3を再生することになるのではないでしょうか？ ホントにVBも始めたばかりでほとんど見よう見まねでやってます。 多少難易度が高くても結構ですのでご教授よろしくお願いいたします。 ※使用環境 WindowsXP Pro SP3 Microsoft Visual Basic 2008を使用
- ベストアンサー
- Visual Basic
お礼
Application.Wait Now + TimeSerial(0, 0, 3) rc = mciSendString("Close " & SoundFile, "", 0, 0) で対応できました！ とてもわかりやすい説明ありがとうございます。