Microsoft DirectX 8.0 (Visual Basic)

シェーディング モードの設定

Microsoft® Direct3D® では、一度に 1 つのシェーディング モードしか選択できない。デフォルトでは、グーロー シェーディングが選択されている。Microsoft Visual Basic® では、Direct3Ddevice8.SetRenderState メソッドを呼び出してシェーディング モードを変更できる。State パラメータを D3DRS_SHADEMODE に設定する。State パラメータには、CONST_D3DSHADEMODE 列挙のメンバを設定する。次のサンプル コードは、Direct3D アプリケーションの現在のシェーディング モードを、フラット シェーディング モードまたはグーロー シェーディング モードに設定する方法を示している。

'  フラット シェーディングに設定する。
'  このコードでは、d3dDev が Direct3DDevice8 オブジェクトへの
'  有効な参照であるとする。
On Local Error Resume Next
Call d3dDev.SetRenderState(D3DRS_SHADEMODE, _ 
                           D3DSHADE_FLAT)
 
' エラーを調べる。
If Err.Number <> D3D_OK Then
    ' エラーを処理する。
End If
 
' グーロー シェーディングに設定する。これが Direct3D のデフォルト値である。
Call d3dDev.SetRenderState(D3DRS_SHADEMODE, _ 
                           D3DSHADE_GOURAUD)
 
If Err.Number <> D3D_OK Then
    ' エラーを処理する。
End If