Microsoft DirectX 8.0 (Visual Basic) |
サンプル アプリケーションは、前のステップに続いて Form_Load プロシージャで検索ディレクトリを設定し、サウンド ファイルを探す場所をローダーに指示する。
dml.SetSearchDirectory MediaPath
次に、パフォーマンスを初期化する。DMUS_AUDIOPARAMS 型を空白のままにすると、パフォーマンスはデフォルトのパラメータを使用して初期化される。デフォルトのオーディオパスは要求されない。
dmp.InitAudio Me.hWnd, DMUS_AUDIOF_ALL, dmA
次に、オブジェクトの作成または初期化の間に発生したエラーを処理する。
If Err.Number <> 0 Then MsgBox "Could not initialize DirectMusic." & vbCrLf & _ "This sample will exit.", vbOKOnly Or vbInformation, _ "Exiting..." Unload Me Exit Sub End If
Form_Load プロシージャは次の「ステップ 3 : オーディオパスの作成」に続く。