运行程序，在窗口中就会出现一个立方体，可以看到，相对于使用立即模式，上面的保留模式就简单的多了。首先调用InitS函数建立场景、设置灯光以及相机，然后调用InitDDraw函数建立DirectDraw对象，最后调用InitD3dRM函数建立Direct3D对象以及设备并绘制三维立方体，设置立方体每面的颜色并添加到场景中（演员登场）。如果想让三维对象动起来，可以通过设置三维对象的位置、场景的角度以及相机的角度来分别实现。
三、 DirectInput
DirectInput是DirectX中的输入设备控件对象，它包括了对键盘、鼠标以及游戏杆的支持，使用DirectX的DirectInputCreate方法可以建立DirectInput对象，当建立一个DirectInput对象后，利用DirectInput对象的CreateDevice方法可以建立一个DirectInputDevice对象，使用DirectInputDevice对象可以获得对输入设备（键盘、鼠标、游戏杆）的控制。
下面通过一个简单的程序来了解DirectInput是如何工作的。首先建立一个新工程，加入Directx7说明库，在Form1中加入一个Timer控件和一个Label控件。然后在Form1中加入以下代码：
Option Explicit

Dim dx As New DirectX7
Dim di As DirectInput
Dim diDEV As DirectInputDevice
Dim diMouse As DirectInputDevice

Dim diState As DIKEYBOARDSTATE
Dim diSMouse As DIMOUSESTATE

Dim iKeyCounter As Integer
Dim ix, iy, iz

Private Sub Form_Load()
    Set di = dx.DirectInputCreate()
    If Err.Number <> 0 Then
        MsgBox "Direct Input设置错误，请确认再你的系统中是否安装了DirectX", _
                vbApplicationModal
        End
    End If
    ''''建立一个键盘DirectInput对象
    Set diDEV = di.CreateDevice("GUID_SysKeyboard")
    Set diMouse = di.CreateDevice("GUID_SysMouse")

    diDEV.SetCommonDataFormat DIFORMAT_KEYBOARD
    diDEV.SetCooperativeLevel Me.hWnd, DISCL_BACKGROUND Or DISCL_NONEXCLUSIVE
    
    diMouse.SetCommonDataFormat DIFORMAT_MOUSE
    diMouse.SetCooperativeLevel Me.hWnd, DISCL_BACKGROUND Or DISCL_NONEXCLUSIVE

    Me.Show

    diDEV.Acquire
    diMouse.Acquire
    
    ix = diSMouse.x
    iy = diSMouse.y
    iz = diSMouse.z

    Timer1.Interval = 10 ''''设置敲击键盘的灵敏度
    Timer1.Enabled = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ''''程序结束后释放DirectInput对象
    diDEV.Unacquire
    diMouse.Unacquire
End Sub

Private Sub Timer1_Timer()
''''获得当前的击键值
    diDEV.GetDeviceStateKeyboard diState

    For iKeyCounter = 0 To 255
        ''''判断是否敲击了某键
        If diState.Key(iKeyCounter) <> 0 Then
            Label1.Caption = iKeyCounter & " - 击键时间为： (" & Time & ")"
        End If
    Next
    
    diMouse.GetDeviceStateMouse diSMouse
    If diSMouse.x <> 0 Then
        ix = diSMouse.x
    End If
    If diSMouse.y <> 0 Then
        iy = diSMouse.y
    End If
    If diSMouse.z <> 0 Then
        iz = diSMouse.z
    End If
    Form1.Caption = "X:" & ix & " Y:" & iy & " Z:" & iz
    DoEvents
End Sub

运行程序，敲击键盘的任意键，可以看到键值显示在了Label1上，而移动鼠标，当前鼠标坐标会显示在Form1的标题条上（光标的坐标原点是程序运行时光标所在的位置，而如果你的鼠标有滚轮的话，则Z坐标由你的滚轮的滚动所决定）。而不论窗口处于前台或者后台，击键和鼠标动作都会倍记录下来，你可以利用上面的程序稍加修改建立自己的鼠标键盘Hook程序。
四、 DirectSound
DirectSound类对象是DirectX中播放、捕捉数字声音对象并且对声音在虚拟的三维控件内进行定位。
它主要包括以下的几个对象：
DirectSound
DirectSoundBuffer
DirectSound3DBuffer
Direct3DsoundListner
DirectSoundCapture
DirectSoundCaptureBuffer
DirectSound对象和DirectSoundCapture对象是DirectSound类对象的基本对象，DirectSound对象是音频播放基本对象，而DirectSoundCapture对象是音频捕捉基本对象。利用DirectX7对象的DirectSoundCreate方法和DirectSoundCaptureCreate方法可以分别建立DirectSound对象和DirectSoundCapture对象。DirectSoundBuffer对象和DirectSound3Dbuffer是音频播放缓冲对象，顾名思义，前者是音频播放对象，而后者是三维音频播放对象。Direct3DSoundListner对象用于设置播放三维音频时收听者所处的位置。
下面通过一个程序来介绍DirectSound的应用，这个程序可以利用DirectSound3DBuffer播放文件并可以动态的设置声音位置。首先建立一个工程文件，在其中加入DirectX7说明库，然后在Form1中加入一个PictureBox控件和两个CommandButton控件。将Picture1的Width和Height属性都设置为3000。将Picture1的Scale属性设置为3-Pixel。保存工程文件，并在工程所在的目录下放置一个名为 Demo.wav 的声音文件。在Form1的代码窗口加入以下代码：
Dim m_dx As New DirectX7

Dim m_ds As DirectSound
Dim m_dsBuffer As DirectSoundBuffer
Dim m_ds3dBuffer As DirectSound3DBuffer
Dim m_dsPrimaryBuffer As DirectSoundBuffer
Dim m_dsListener As DirectSound3DListener
Dim m_pos As D3DVECTOR

Sub DrawPositions()
    Dim X As Integer
    Dim z As Integer
    
    Picture1.Cls
    
上一页  [1] [2] [3] [4] [5] [6]  下一页