Private Sub PanelConnect_Touch (Action As Int, X As Float, Y As Float)
Select Action
Case 0 'down
CallSub2(Starter,"PerformHapticFeedback",Sender)
PanelConnect.Background = bd_connect_b
Case 1 'up
CallSub2(Starter,"PerformHapticFeedback",Sender)
PanelConnect.Background = bd_connect_a
doStartBTScan
End Select
End Sub
Private Sub PerformHapticFeedback (view As Object)
#if B4A
Dim jo As JavaObject = view
jo.RunMethod("performHapticFeedback", Array(1))
#Else if B4i
FeedbackGenerator.RunMethod("impactOccurred", Null)
#end if
End Sub