Using CreateObject to create a DirectX object

Tech-Archive recommends: Fix windows errors by optimizing your registry

From: civerson (civerson.1lc8lu_at_mail.codecomments.com)
Date: 03/03/05

  • Next message: Patrice Scribe: "Re: Using CreateObject to create a DirectX object" 
    Date: Thu, 3 Mar 2005 13:03:44 -0600

    I am trying to use CreateObject to create a DirectX object.

    This works fine.

    Dim oDX As DirectX8 ' The core DirectX object
    Dim oD3D As Direct3D8 ' The core Direct3D object
    Dim d3DCaps As D3DCAPS8

    Set oDX = New DirectX8 ' Create your DirectX object
    Set oD3D = oDX.Direct3DCreate()

    oD3D.GetDeviceCaps 0, D3DDEVTYPE_HAL, d3DCaps

    The above will not work in vbScript so I need to use the CreateObject
    object.

    I have tried the following and they don't work.

    Dim oDX ' The core DirectX object

    Set oDX = CreateObject("DirectX8")

    or

    Set oDX = CreateObject("Direct3D")

    I have Googled for an hour and a half and no luck.

    Any ideas?

    Thanks,
    Chris 

    --
civerson
------------------------------------------------------------------------
Posted via http://www.codecomments.com
------------------------------------------------------------------------
  • Next message: Patrice Scribe: "Re: Using CreateObject to create a DirectX object"