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

Platforms to show: All Mac Windows Linux Cross-Platform

/USB/HID/USB HID Devices Mac
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 Mac
This example is the version from Thu, 3rd Feb 2010.
Notes: Last modified: Thu, 3rd Feb 2010

Class Window1
Inherits Window
  // Controls
  ControlInstance
  End ControlInstance
  ControlInstance
  End ControlInstance
  
  // Event implementations
  Sub Open()
    dim m as new MacHIDMBS
    
    #if not TargetMacOS
      MsgBox "This example requires Mac OS X."
    #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)=m.Product
        ListBox1.cell(ListBox1.LastIndex,3)=m.Manufacturer
        ListBox1.cell(ListBox1.LastIndex,4)=m.SerialNumber
        ListBox1.cell(ListBox1.LastIndex,5)=hex(m.VersionNumber)
        
      loop until not m.FindNextDevice
      
    end if
    
    Title=str(ListBox1.ListCount)+" devices found."
  End Sub
End Class

Class App
Inherits Application
End Class