Microsoft DirectX 8.0 (Visual Basic)

マテリアル プロパティの取得

デバイスに対して Direct3DDevice8.GetMaterial メソッドを呼び出して、レンダリング デバイスで現在使用しているマテリアル プロパティを取得する。Direct3DDevice8.SetMaterial メソッドの場合とは異なり、GetMaterial では準備は必要ない。GetMaterial メソッドには、D3DMATERIAL8型の変数を指定する。このメソッドは、終了前にこの変数に現在のマテリアル プロパティの情報を書き込む。

' この例では、変数 d3dDevice には Direct3DDevice8 オブジェクトへの
' 有効な参照が格納されていると仮定する。
On Local Error Resume Next
Dim mat As D3DMATERIAL8

Call d3dDevice.GetMaterial(mat)
If Err.Number <> D3D_OK Then
    ' エラー処理コード。
End If