Microsoft DirectX 8.0 (Visual Basic) |
最初のステップでは、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 : オーディオ環境の初期化」に続く。