VB6 中后期绑定 DirectX DirectSound

Question

我正在开发一个需要在 WindowsXP 和 Windows7 上运行的 DirectSound 应用程序。使用的对象只是声音缓冲区，但目前是早期绑定的：

Private dx As DirectX8  
Private ds As DirectSound8 
Private mdsBuf As DSBUFFERDESC
Private mdsBuffer(7) As DirectSoundSecondaryBuffer8 

首先，我如何使用 CreateObject 后期绑定这些？ ProgId 是什么？我猜是这样的：

Dim dx As Object
Set dx = CreateObject("DIRECT.DirectX8.0")

其次，我相信 Windows7 使用 DirectX 11。是否有等效的 ProgId？还是对象模型不同？

谢谢！

Answer 1

你读过Visual Basic 6.0 DirectX applications fail to run on Windows Vista and later了吗？

结果是不再支持来自 VB6 的 DirectX。