private Sub ListViewPairedDevice_ItemClick(Position As Int, Value As Object)
Dim bluetoothMac As String = PairedDevices.Get(Value)
device = bluetoothMac
connecToDevice(bluetoothMac)
End Sub
'This method will try to connect selected bluetooth devices
private Sub connecToDevice(bluetoothMac As String)
ButtonConnect.Enabled=False
Try
serial.Connect(bluetoothMac)
ToastMessageShow("Device: " & device & " connecting",False)
Catch
Dim ex As Exception
ex = LastException
Log("Exception: " & ex.Message)
ToastMessageShow("Device not available",True)
End Try
End Sub
Sub Serial_Connected (Success As Boolean)
Try
If Success Then
Log("Device Connection Successful")
Else
Log("Device Connection Failed: " & LastException)
ToastMessageShow("Device: " & device & " not connected",True)
timerConnect.Enabled=False
End If
Catch
Log(LastException)
End Try
ListViewPairedDevice.Visible=False
End Sub