Microsoft DirectX 8.0 (Visual Basic)

ステップ 1 : DirectX オブジェクトの作成

最初のステップでは、DirectX8 オブジェクトを作成し、作成したオブジェクトを使って DirectMusicLoader8 および DirectMusicPerformance8 を作成する。

これらのオブジェクトの変数は、次のように宣言される。

Private dx As DirectX8
Private dml As DirectMusicLoader8
Private dmp As DirectMusicPerformance8

また、後で使用するために、次のグローバル変数も宣言する。

Private dmSeg As DirectMusicSegment8
Private dmSegState As DirectMusicSegmentState8
Private dmPath As DirectMusicAudioPath8

最初の 3 つのオブジェクトは、Form_Load プロシージャで作成される。エラーが発生しても、各作成メソッドの試行が完了するまで無視される。エラーが発生すると、1 つのメッセージ ボックスが表示されて、アプリケーションが終了する。

Private Sub Form_Load()
    
    Dim dmA As DMUS_AUDIOPARAMS
    MediaPath = FindMediaDir("tuta.wav")
 
    On Local Error Resume Next
 
    Set dx = New DirectX8
    Set dml = dx.DirectMusicLoaderCreate
    Set dmp = dx.DirectMusicPerformanceCreate

Form_Load プロシージャは、次の「ステップ 2 : オーディオ環境の初期化」に続く。