求教VB+Directx7如何调用游戏杆

diyhappy

求教VB+Directx7如何调用游戏杆
----------------------------------------------------------
Public DX As New DirectX7
Public DI As DirectInput
Public DIV As DirectInputDevice
Public DID As DirectInputEnumDevices
Public DI_GUID As String
Dim DII As DirectInputDeviceInstance
Dim DIState As DIJOYSTATE
Dim iKeyCounter As Integer

Private Sub Command1_Click()
Dim DI_GUID As String

    Set DI = DX.DirectInputCreate

    Set DID = DI.GetDIEnumDevices(DIDEVTYPE_JOYSTICK, DIEDFL_ATTACHEDONLY)
Set DII = DID.GetItem(1)
    DI_GUID = DII.GetGuidInstance
   
    Set DIV = DI.CreateDevice(DI_GUID)
    DIV.SetCommonDataFormat DIFORMAT_JOYSTICK
    DIV.SetCooperativeLevel Me.hWnd, DISCL_EXCLUSIVE Or DISCL_BACKGROUND
    DIV.Acquire
    Timer1.Interval = 10
   
End Sub

Private Sub Timer1_Timer()
DIV.GetDeviceStateJoystick DIState
Text1 = DIState.buttons(iKeyCounter)
Text2 = iKeyCounter
End Sub
---------------------------------------------------------------------------
哪里有问题啊!!!text1总是0

zlcnkkm

http://download.microsoft.com/download/winme/Update/8.0/W9X2KMe/EN-US/Dx8sdk.exe

下载这个，里面有例子，还有VB的DX8帮助，找好久才找到的宝贵资源

zlcnkkm

游戏杆的消息需要用一个回调才能得到

diyhappy

下载不了啊，你能提供个源码给我吗？