Togglebutton question

Electrocutioner · Nov 15, 2012

Following code crashes with Cannot Parse: true as boolean error

B4X:

Sub tgl_PWR_CheckedChange(Checked As Boolean)
 
    Select tgl_PWR.Checked
   Case "True" :txtLog.text= "ON"
   Case "False":txtLog.text= "OFF"
   End Select
   
End Sub

Im not sure what is wrong please help.
Thank you!

KitCarlson · Nov 15, 2012

I think you are comparing a boolean value to strings. In the Case, try True, not "True", the same for False.

worm · Nov 15, 2012

Correct code:

B4X:

Sub tgl_PWR_CheckedChange(Checked As Boolean)
    Select tgl_PWR.Checked
        Case True :txtLog.text= "ON"
        Case False:txtLog.text= "OFF"
    End Select
End Sub

klaus · Nov 15, 2012

Or :

B4X:

Sub tgl_PWR_CheckedChange(Checked As Boolean)
    If Checked Then
        txtLog.text= "ON"
    Else
        txtLog.text= "OFF"
    End If
End Sub

Best regards.

Togglebutton question

Electrocutioner

Member

KitCarlson

Active Member

worm

Member

klaus

Expert

Similar Threads

Togglebutton question

Electrocutioner

Member

KitCarlson

Active Member

worm

Member

klaus

Expert

Similar Threads

Privacy & Transparency

Privacy & Transparency