素人の質問が以下のとおりです。

音声付のアラームを作っています。
機能として、OpenFileDialogを利用して、選択されたWavもしくmp3ファイルを再生することです。

ソースコードは以下のとおりです。
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

Call sudAlarm()

End Sub

Sub sudAlarm()
Dim value As String
Dim ofd As New OpenFileDialog()

ofd.InitialDirectory = "C:\"

ofd.Filter = "音声ファイル|*.wav|音声ファイル(*.mp3)|*.mp3"
ofd.FilterIndex = 2
ofd.RestoreDirectory = True

If ofd.ShowDialog() = DialogResult.OK Then
value = ofd.RestoreDirectory

My.Computer.Audio.Play(value)
'My.Computer.Audio.Play(value,AudioPlayMode.BackgroundLoop)
'My.Computer.Audio.Stop()

End If

End Sub

結果は My.Computer.Audio.Play(value)にエラーがあってうまくいけませんでした。
エラー内容は”指定されたファイルが存在していない”ような内容です。
もちろん、ファイルがちゃんとおきました。


以上、宜しくお願いします。

「音声アラームの追加について」の質問画像

このQ&Aに関連する最新のQ&A

A 回答 (1件)

> value = ofd.RestoreDirectory



value = ofd.FileName
でどうでしょうか。
    • good
    • 0
この回答へのお礼

ご回答ありがとうございました。

問題を解決されました。(^@^)

お礼日時:2009/05/13 23:59

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング

おすすめ情報