Microsoft DirectX 8.0 (Visual Basic)

ステップ 2 : オーディオ環境の初期化

サンプル アプリケーションは、前のステップに続いて 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 : オーディオパスの作成」に続く。