| Вопрос: DirectX | Добавлено: 07.06.06 19:05 |
Автор вопроса:  Fever
|
|
Как юзать DirectInput?
Set DI = DX.DirectInputCreate Set DID = DI.CreateDevice("")<<AX component cant create object ??? |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Sneaks Вопросов: 9 Ответов: 84 |
Профиль | | #1 | Добавлено: 08.06.06 14:14 |
|
Dim dx As New DirectX7
Dim di As DirectInput Dim diDEV As DirectInputDevice Dim diState As DIKEYBOARDSTATE Set di = dx.DirectInputCreate() Set diDEV = di.CreateDevice("GUID_SysKeyboard" 
If Err.Number <> 0 Then MsgBox "Error starting Direct Input, please make sure you have DirectX installed", vbApplicationModal End End If diDEV.SetCommonDataFormat DIFORMAT_KEYBOARD diDEV.SetCooperativeLevel Me.hWnd, DISCL_BACKGROUND Or DISCL_NONEXCLUSIVE |
||
Страница: 1 |