需要销毁的博客

'// D3D需要为一个有效的Direct3D8对象的实例 
'// AdapterInfo为一个被定义成D3DADAPTER_IDENTIFIER8类型的变量 
Private Sub EnumerateAdapters()
  Dim I As Integer, sTemp As String, J As Integer
  '// 这个值不是1就是2 
  nAdapters = D3D.GetAdapterCount
  For I = 0 To nAdapters - 1
    '// 获取相关细节 
    D3D.GetAdapterIdentifier I, 0, AdapterInfo
    '// 获取当前适配器的名称--它被储存在一个较长 
    '// 的字符列表中，我们需要将它分解成一个字符串 
    '// 不要问我为何这么做，这样问似乎真的很傻 
    '// 重设字符串变量准备使用它 
    sTemp = ""
    For J = 0 To 511
      sTemp = sTemp & Chr$(AdapterInfo.Description(J))
    Next
    sTemp = Replace(sTemp, Chr$(0), "")
    cmbAdapters.Additem sTemp
  Next I
End Sub

Private Sub EnumerateDevices()
  On Local Error Resume Next '// 我们要处理错误 
  Dim Caps As D3DCAPS8
  D3D.GetDeviceCaps combAdapter.ListIndex, D3DDEVTYPE_HAL, Caps
  If Err.Number = D3DERR_NOTAVAILABLE Then
    '// 没有硬件加速功能 
    cmbDevice.AddItem "Reference Rasterizer(REF)" '// REF要始终处于可用状态 
  Else
    cmbDevice.AddItem "Hardware Acceleration(HAL)"
    cmbDevice.AddItem "Reference Rasterizer(REF)" '// REF要始终处于可用状态 
  End If
End Sub

Private Sub EnumerateDispModes(Renderer As Long)
  '// 清除任何存在于组合框中的项目 
  cmbRes.Clear
  Dim I As Integer, ModeTemp As D3DDISPLAYMODE
  '// 循环并搜集数据 
  For I = 0 To nModes - 1
    Call D3D.EnumAdapterModes(cmbAdapter.ListIndex, I, ModeTemp)
    '// 首先将显示模式分成两个部分--16位色部分和32位色部分 
    If ModeTemp.Format = D3DFMT_R8G8B8 Or ModeTemp.Format = D3DFMT_X8R8G8B8 Or ModeTemp.Format = D3DFMT_A8R8G8B8 Then
      '// 检查这个设备驱动是否有效且可以被访问 
      If D3D.CheckDeviceType(cmbAdapters.ListIndex, Renderer, ModeTemp.Format, ModeTemp.Format, False) >= 0 Then
        '// 添加到显示列表框中 
        cmbRes.AddItem ModeTemp.Width & "x" & ModeTemp.Height & "32 bit" & " [FMT:" & ModeTemp.Format & "]"
      End If
    Else
      If D3D.CheckDeviceType(cmbAdapter.ListIndex, Renderer, ModeTemp.Format, ModeTemp.Format, False) >= 0 Then
        cmbRes.AddItem ModeTemp.Width & "x" & ModeTemp.Height & "16 bit" & " [FMT:" & ModeTemp.Format & "]"
      End If
    End If
  Next I
  cmbRes.ListIndex = cmbRes.ListCount - 1
End Sub

'// 下面的代码假定D3D是Direct3D8对象的有效实例 
Dim Caps As D3DCAPS8 '// 拥有我们所需的全部信息…… 
D3D.GetDeviceCaps cmbAdapters.ListIndex, Renderer, Caps 

If Caps.MaxActiveLights = -1 Then
  List1.AddItem "Maximum Active Lights: Unlimited"
Else
  List1.AddItem "Maximum Active Lights: " & Caps.MaxActiveLights
End If

List1.AddItem "Maximum Point Vertex Size: " & Caps.MaxPointSize
List1.AddItem "Maximum Texture Size: " & Caps.MaxTextureWidth & "×" & Caps.MaxTextureHeight
List1.AddItem "Maximum Primatives in one call: " & Caps.MaxPrimitiveCount

If Caps.TextureCaps And D3DPTEXTURECAPS_SQUAREONLY Then
  List1.AddItem "Textures must always be square"
End If
If Caps.TextureCaps And D3DPTEXTURECAPS_CUBEMAP Then
  List1.AddItem "Device Supports Cube Mapping"
End If
If Caps.TextureCaps And D3DPTEXTURECAPS_VOLUMEMAP Then
  List1.AddItem "Device Supports Volume Mapping"
End If

'// 获取当前适配器的名称--它被储存在一个较长 
'// 的字符列表中，我们需要将它分解成一个字符串 
'// 不要问我它们为何这么做，这样问似乎真的很傻 
'// 重设字符串变量准备使用它 
sTemp = ""
For J = 0 To 511
  sTemp = sTemp & Chr$(AdapterInfo.Description(J))
Next J
sTemp = Replace(sTemp, Chr$(0), "")

'// 获取当前适配器的名称。它被储存在一个字节数组里。
'// 这可能是因为在C++中(DirectX是为C++而开发的)，
'// 字符数组就是字符串的缘故
sTemp = Trim$(Replace(StrConv(AdapterInfo.Description, vbUnicode), vbNullChar, " "))