サウンド演奏

Private Declare 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      

操作内容	コマンド文字列	補足説明
デバイスのオープン	open [filename] (alias %s)	---
再生	play %s (notify)	---
停止	stop %s	---
デバイスのクローズ	close %s	---
一時停止	pause %s	---
一時停止の再開	resume %s	---
タイムフォーマットをミリ秒にする	set %s time format milliseconds	millisecondsはmsと表記してもよい。
現在位置の移動	seek %s to [移動位置]	移動位置には0以上の値の他、startやendも指定で きる。
再生時間の取得	status %s length	第2引数に再生時間を表す文字列が返る。
現在位置の取得	status %s position	第2引数に現在位置を表す文字列が返る。
現在の状態を取得	status %s mode	第2引数に現在の状態を表す文字列が返る。 playing : 再生中 stopped : 停止中 paused : 一時停止中

%s　の個所には、ファイル名またはエイリアス名を指定する。 括弧のキーワードはオプション

stop、close、pause、resumeには、%sの箇所に　all　 を指定することもできる。
この場合、MCIデバイスによって再生されている全てのファイルに対してコマンドが有効になる。
（本サンプルでは、フォームを閉じるときに"all"を指定し ている。）

本サンプルでは、
　再生　停止　一時停止　再開
および
　水平スクロールバーによる　再生位置表示／変更
　ボタンにより音量の上げ下げ／表示
を行う。

音量について
　音量は０〜１０００の値が設定でき、デバイスのオープン時は １０００ となっている。
　ここでは再生時に半分（５００）に設定し、音量の上下が可能なようにしている。

コマンドボタン　　　7個
水平スクロールバー　1個
テキストボックス　　1個
ラベル　　　　　　　2個
タイマー　　　　　　1個
コモンダイアログ　　1個

フォーム

標準モジュール

フォーム

標準モジュール