DirectX: Button states for other devices [Resolved]

[Xman51]

whazaap?!?

I am trying to figure out how you can call the state of the device you have aquired when it is not a joystick, mouse or keyboard.

Does anyone know?

Here is my code. I would like the event handler to be tied to the timer control:

Dim dx As New DirectX8
Dim di As DirectInput8
Dim diDEV As DirectInputDevice8
Dim iKeyCounter As Integer
Dim aKeys(2) As String
 
 
Private Sub Form_Load()
 
    Set di = dx.DirectInputCreate()
        
    If Err.Number <> 0 Then
        MsgBox "Error starting Direct Input, please make sure you have DirectX installed", vbApplicationModal
        End
    End If
        
    'Create the DirectX input Device
    Set di = dx.DirectInputCreate()
    'Make it point to the Footpedal
    Set diDEV = di.CreateDevice("{DE261610-ADC9-11D9-8001-444553540000}")
 
 'Gather information from the device
 Dim diEnumObjects As DirectInputEnumDeviceObjects
Set diEnumObjects = diDEV.GetDeviceObjectsEnum(DIDFT_ALIAS)
Dim diDevObjInstance As DirectInputDeviceObjectInstance
 
'populate the listbox with available buttons
Dim i As Integer
For i = 1 To diEnumObjects.GetCount
  Set diDevObjInstance = diEnumObjects.GetItem(i)
  Call lstDevice.AddItem(diDevObjInstance.GetName)
Next i
 
'Set the cooperative level for your device
Call diDEV.SetCooperativeLevel(hWnd, _
        DISCL_NONEXCLUSIVE Or DISCL_FOREGROUND)
 
'Set the properties for the device
 Dim diProp As DIPROPLONG
diProp.lHow = DIPH_DEVICE
diProp.lObj = 0
diProp.lData = 10
Call diDEV.SetProperty("DIPROP_BUFFERSIZE", diProp)
 
 
 
    Me.Show
    'Make the progrm acquire the device
    diDEV.Acquire
        
    tmrKey.Interval = 10
    tmrKey.Enabled = True
    
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    diDEV.Unacquire
End Sub
 
Function KeyNames(iNum As Integer) As String
 
    aKeys(0) = "FWD"
    aKeys(1) = "PLAY"
    aKeys(2) = "REW"
    If iNum < 3 Then
    KeyNames = aKeys(iNum)
    End If
End Function
 
 
Private Sub tmrKey_Timer()
 
lstKeys.Clear
'During the timer event must have some kind of event
'handler that recognizes when one of the buttons is
'pressed on the device
End Sub

Thanks in advance,

[Xman51]

Private Sub tmrKey_Timer()
 
 
Dim NumItems As Integer
Dim i As Integer
Static OldSequence As Long
On Error GoTo Err
NumItems = diDEV.GetDeviceData(diDeviceData, 0)
For i = 1 To NumItems
    Select Case diDeviceData(i).lOfs
        
        Case 48
            lstKeys.AddItem "FWD was pressed"
        Case 50
            lstKeys.AddItem "REW was pressed"
        Case 49
            lstKeys.AddItem "PLAY was pressed"
    End Select
Next i
Exit Sub
Err:
On Error GoTo SkipAcquire
diDEV.Acquire
SkipAcquire:
End Sub