DirectX 7 编程初步

DirectX 7 编程初步(2)
Dim DirectX As New DirectX7
Dim DDEnum As DirectDrawEnum
Dim DDSound As DirectSoundEnum

Private Sub Command1_Click()
Dim Count, I As Integer

Set DDEnum = DirectX.GetDDEnum
Count = DDEnum.GetCount
List1.Clear
For I = 1 To Count
List1.AddItem DDEnum.GetDescription(I)
Next I

Set DDEnum = Nothing
End Sub

Private Sub Command2_Click()
Dim Count, I As Integer

Set DDEnum = DirectX.GetDDEnum
Count = DDEnum.GetCount
List1.Clear
For I = 1 To Count
List1.AddItem DDEnum.GetName(I)
Next I
Set DDEnum = Nothing
End Sub

Private Sub Command3_Click()
Dim Count, I As Integer

Set DDSound = DirectX.GetDSEnum
Count = DDSound.GetCount
List1.Clear
For I = 1 To Count
List1.AddItem DDSound.GetDescription(I)
Next I
End Sub

Private Sub Command4_Click()
Dim Count, I As Integer

Set DDSound = DirectX.GetDSEnum
Count = DDSound.GetCount
List1.Clear
For I = 1 To Count
List1.AddItem DDSound.GetName(I)
Next I
End Sub

Private Sub Form_Load()
Command1.Caption = "DirectDraw驱动描述"
Command2.Caption = "DirectDraw驱动名称"
Command3.Caption = "DirectSound驱动描述"
Command4.Caption = "DirectSound驱动名称"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set DirectX = Nothing
End Sub
运行程序，分别点击不同的按钮，在列表框中就会出现相应的设备驱动名和描述。

2，DirectDraw7对象

DirectDraw是一个与Windows 图形系统接口(GDI)相兼容的直接操作显示设备的软件接口。DirectDraw提供与硬件无关性的同时允许直接操作显存。程序只要使用一些基本的标准硬件约定，如：RGB及YUV色彩格式及解析度。你无须调用特殊的过程来使用显存块移动(Blitter)及调色板。使用DirectDraw，你可简单操作显存，完全使用各种硬件特性而不必理会各种不同硬件之间的差异。

2.1 建立DirectDraw对象
DirectDraw7对象是DirectX7中的DirectDraw对象，你需要首先建立一个DirectX7对象，然后使用该对象的DirectDrawCreate方法来建立DirectDraw7对象。例如：
Dim DX As New DirectX7
Dim Ddraw As DirectDraw7
Set Ddraw = DX.DirectDrawCreate("")

2.2 建立协作层
当建立了一个DirectDraw对象之后，首先要设定DirectDraw的协作层。实现的方法是调用DirectDraw对象的SetCooperativeLevel函数。该函数的定义是：
object.SetCooperativeLevel( hdl As Long, flags As CONST_DDSCLFLAGS)