A simple application
Now that we can use DirectX8 we’re going to set up a very simple example – all it
will do is create an instance of Direct3D and clear the screen, then terminate.
The first thing we need to do is put some variables into our (Declarations) section of
the form:
Dim Dx As DirectX8 'The master Object, everything comes from here
Dim D3D As Direct3D8 'This controls all things 3D
Dim D3DDevice As Direct3DDevice8 'This actually represents the hardware doing the rendering
Dim bRunning As Boolean 'Controls whether the program is running or not...
The first 3 variables here (Dx, D3D, D3Ddevice) are all classes – we’ll need to
initialise them and terminate them; the fourth variable, bRunning, is just a simple
Yes/No flag that states if the application is running or not – more on that one later.
Now seems like a good time to explain what these different objects do. DirectX8 has
a hierarchy of objects and interfaces, each one with a parent, and in this case a
“DirectX8” object is as far back as they go. The “Direct3D8” object deals with
creating devices and enumerating their capabilities. Finally the “Direct3DDevice8”
object, this represents your 3D card – you tell it to do things and (within reason) it’ll
do it. We therefore create a “DirectX8” object, this then helps us create a
“Direct3D8” object, which in turn will setup a “Direct3DDevice8” object for us to use.
There are several other interfaces/objects that we can create, but right now we don’t
really need to know much about them – you’ll see them as we go. It is very useful to
have a copy of the DirectX8 SDK help file when dealing with these objects, whilst
VB’s intellisense and object browser are very useful, the SDK help file explains and
lists all the functions and features of each interface/object.
Now that we have the variables defined we can start to do something with them; for
this we’re going to create a function called “Initialise()” which does exactly what it
says it will – when it’s finished execution (and assuming no errors) we’ll be able to
use all the objects and start making things appear on screen.
Public Function Initialise() As Boolean
On Error GoTo ErrHandler:
Initialise = True '//We succeeded
Exit Function
ErrHandler:
Debug.Print "Error Number Returned: " & Err.Number, Err.Description
Initialise = False
End Function
Above is the basic framework for the function – and you’ll be seeing that most of the
functions are designed like this. Technically Initialise() does not need to be a function
as it doesn’t return any particular data. But I particularly like this layout because it
allows me to design a good function that should never bring down the rest of the
5
wbcr31561852013-03-04还是英文的，晕
liusxcn2012-03-30书不错，但是太粗略了，不适合入门啊
lianyicq2014-11-20也不算粗,毕意都有实例,配合SDK帮助文档来看.不过现在用VB开发DX跟不上形势了.DX都升级多少版了,二维的可以用,三维的还是升级吧
