management button with xml

Hi there,

Try see Klaus's strategy.

Instead of a Button you could use a ToggleButton.
ToggleButtons have two states checked and unchecked (on or off)
You can set the state with ToggleButton.Checked = False or ToggleButton.Checked = True
And use the ToggleButton_CheckedChange(Checked As Boolean) event to catch the state changes.
Be aware that the Checked variable is Boolean, so you should save False or True or you must convert yourself 0 to False and 1 to True.

Best regards.

Thank Klaus for your information all it good now

Sub Globals
Dim Client As HttpClient
Dim Request As HttpRequest
Dim btSwitch1 As ToggleButton
Dim checked, unchecked As BitmapDrawable
checked.Initialize (LoadBitmap(File.DirAssets, "boutonon.png"))
unchecked.Initialize (LoadBitmap(File.DirAssets, "boutonoff.png"))
End Sub

Sub Activity_Create(FirstTime As Boolean)
Dim StateSwitch As StateListDrawable
StateSwitch.Initialize
StateSwitch.AddState(StateSwitch.State_Checked, checked)
StateSwitch.AddState(StateSwitch.State_Unchecked, unchecked)
btSwitch1.Background = StateSwitch
End Sub

Sub btSwitch1_Click
If (btSwitch1.Checked = True) Then
Request.InitializeGet("http://192.168.xxx.xxx/digital_out1.php?ordre=ON")
Request.Timeout = 10000
If Client.Execute(Request,1) = False Then Return
Else
If (btSwitch1.Checked = False) Then
Request.InitializeGet("http://192.168.xxx.xxx/digital_out1.php?ordre=OFF")
Request.Timeout = 10000
If Client.Execute(Request,1) = False Then Return
End If
End If
End Sub

Sub Client_ResponseError (Reason As String, StatusCode As Int, TaskId As Int)
Msgbox(Reason, "error")
End Sub

Sub Client_ResponseSuccess (Response As HttpResponse, TaskId As Int)
'' Msgbox(Response.GetString("UTF8"), "success")
End Sub

You can also define the ToggleButton in the Designer add the two state bitmaps there !

Best regards.

or ? at what place ? :sign0148:



Best regards

Oh sorry, I was sure it would be possible in the Designer but unfortunately it's not.

Best regards.

No problem Klaus the newbie is me ;-) i'm open for all idea. Thank again you help me to much already. :sign0098:

Best regards.