Monkeybread Realbasic plugin - Example: /USB/HID/USB HID Devices Win

Platforms to show: All Mac Windows Linux Cross-Platform

/USB/HID/USB HID Devices Win
Feedback.

Function:
You find this example project in your Plugins Download as a Realbasic project file within the examples folder: /USB/HID/USB HID Devices Win
This example is the version from Thu, 3rd Feb 2010.
Notes: Last modified: Thu, 3rd Feb 2010

Class Window1
Inherits Window
  // Controls
  ControlInstance
    Sub DoubleClick() Handles Event
      MsgBox ListBox1.cell(ListBox1.ListIndex,6)
    End Sub
  End ControlInstance
  ControlInstance
  End ControlInstance
  
  // Event implementations
  Sub Open()
    dim m as new WinHIDMBS
    dim i as integer
    
    #if not TargetWin32
      MsgBox "This example requires Windows."
    #endif
    
    if m.FindFirstDevice then
      
      do
        ListBox1.AddRow ""
        
        ListBox1.Cell(ListBox1.LastIndex,0)=hex(m.ProductID)
        ListBox1.Cell(ListBox1.LastIndex,1)=hex(m.VendorID)
        ListBox1.cell(ListBox1.LastIndex,2)=fix(m.Product)
        ListBox1.cell(ListBox1.LastIndex,3)=fix(m.Manufacturer)
        ListBox1.cell(ListBox1.LastIndex,4)=fix(m.SerialNumber)
        ListBox1.cell(ListBox1.LastIndex,5)=hex(m.VersionNumber)
        ListBox1.cell(ListBox1.LastIndex,6)=m.DevicePath
        
      loop until not m.FindNextDevice
      
    end if
    
    Title=str(ListBox1.ListCount)+" devices found."
  End Sub
  
  // Methods
  Protected Function fix(s as string) As string
    if len(s)=1 and asc(s)=1033 then
      Return ""
    else
      Return s
    end if
  End Function
End Class

Class App
Inherits Application
End Class