Platforms to show: All Mac Windows Linux Cross-Platform

/Bluetooth/Windows Bluetooth/Windows Bluetooth


Required plugins for this example: MBS Bluetooth Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Bluetooth/Windows Bluetooth/Windows Bluetooth

This example is the version from Tue, 31th Jul 2023.

Project "Windows Bluetooth.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
End Class
Class MainWindow Inherits Window
Control List Inherits Listbox
ControlInstance List Inherits Listbox
EventHandler Sub ExpandRow(row As Integer) dim v as Variant = me.RowTag(row) if v isa WindowsBlueToothDeviceInfoMBS then dim d as WindowsBlueToothDeviceInfoMBS = v List.AddRow "Address", d.Address List.AddRow "Authenticated", YesNo(d.Authenticated) List.AddRow "ClassofDevice", str(d.ClassofDevice) List.AddRow "Connected", YesNo(d.Connected) List.AddRow "LastSeen", d.LastSeen.LongDate List.AddRow "LastUsed", d.LastUsed.LongDate List.AddRow "Name", d.Name List.AddRow "Remembered", YesNo(d.Remembered) end if if v isa WindowsBlueToothRadioMBS then dim d as WindowsBlueToothRadioMBS = v dim i as WindowsBlueToothRadioInfoMBS = d.Info List.AddRow "Address", i.Address List.AddRow "Name", i.Name List.AddRow "Manufacturer ID", str(i.manufacturer) List.AddRow "Subversion", str(i.Subversion) end if End EventHandler
End Control
Control SelectButton Inherits PushButton
ControlInstance SelectButton Inherits PushButton
EventHandler Sub Action() dim d as new WindowsBlueToothSelectDeviceDialogMBS d.Parent = self d.Info = "Please pick device" d.ShowAuthenticated = true d.ShowRemembered = true d.ShowUnknown = true if d.ShowDialog then dim devices() as WindowsBlueToothDeviceInfoMBS = d.Devices for each dev as WindowsBlueToothDeviceInfoMBS in devices add dev next end if End EventHandler
End Control
EventHandler Sub Open() dim radios() as WindowsBlueToothRadioMBS = WindowsBlueToothRadioMBS.Radios for each radio as WindowsBlueToothRadioMBS in radios add Radio next dim SearchParameter as new WindowsBlueToothDeviceSearchParameterMBS SearchParameter.ReturnAuthenticated = True SearchParameter.ReturnConnected = true SearchParameter.ReturnRemembered = true SearchParameter.ReturnUnknown = True dim Devices() as WindowsBlueToothDeviceInfoMBS = WindowsBlueToothDeviceInfoMBS.Devices(SearchParameter) for each Device as WindowsBlueToothDeviceInfoMBS in Devices add Device next End EventHandler
Sub Add(dev as WindowsBlueToothDeviceInfoMBS) List.AddFolder "Device" List.cell(List.LastIndex, 1) = dev.Name List.RowTag(List.LastIndex) = dev End Sub
Sub Add(dev as WindowsBlueToothRadioMBS) List.AddFolder "Radio" List.cell(List.LastIndex, 1) = dev.Info.Name List.RowTag(List.LastIndex) = dev End Sub
Shared Function YesNo(b as Boolean) As string if b then Return "yes" else return "no" end if End Function
End Class
MenuBar MainMenuBar
MenuItem FileMenu = "&File"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem EditSeparator1 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "#App.kEditClear"
MenuItem EditSeparator2 = "-"
MenuItem EditSelectAll = "Select &All"
End MenuBar
End Project

See also:

The items on this page are in the following plugins: MBS Bluetooth Plugin.


The biggest plugin in space...