Android Question Checkbox behavior

klaus said:

Why don't you use RadioButtons, they do exactly what you want.

Click to expand...

mc73 said:

Note sure I understand well, but from what I see, perhaps you should add a 'checked to true' condition:

B4X:

Sub Checkobratodas_CheckedChange(Checked As Boolean)
   if checked then  
      Checkobrasfinalizadas.checked=false
      Checkobraspendientes.checked=False
   end if

End Sub

Sub Checkobrasfinalizadas_CheckedChange(Checked As Boolean)
   if checked then    
      Checkobratodas.Checked=False
      Checkobraspendientes.checked=False
   end if
   
End Sub

Sub Checkobraspendientes_CheckedChange(Checked As Boolean)
   if checked then    
      Checkobratodas.checked=False
      Checkobrasfinalizadas.checked=False
   end if    
End Sub

Click to expand...

ocalle said:

Thanks valuable the advise, sometimes i see a few trees and not the forest

Click to expand...

mc73 said:

Note sure I understand well, but from what I see, perhaps you should add a 'checked to true' condition:

B4X:

Sub Checkobratodas_CheckedChange(Checked As Boolean)
   if checked then  
      Checkobrasfinalizadas.checked=false
      Checkobraspendientes.checked=False
   end if

End Sub

Sub Checkobrasfinalizadas_CheckedChange(Checked As Boolean)
   if checked then    
      Checkobratodas.Checked=False
      Checkobraspendientes.checked=False
   end if
   
End Sub

Sub Checkobraspendientes_CheckedChange(Checked As Boolean)
   if checked then    
      Checkobratodas.checked=False
      Checkobrasfinalizadas.checked=False
   end if    
End Sub

Click to expand...

Sub Checkobratodas_CheckedChange(Checked As Boolean)
    
    If Checkobratodas.Checked Then
        estadoobras=0

    Checkobrasfinalizadas.checked=False
    Checkobraspendientes.checked=False
    End If
    
    



    
    
End Sub

Sub Checkobrasfinalizadas_CheckedChange(Checked As Boolean)

    If Checkobrasfinalizadas.Checked Then
        estadoobras=1

            Checkobratodas.Checked=False
        Checkobraspendientes.checked=False
    End If
    
    

    
        
End Sub

Sub Checkobraspendientes_CheckedChange(Checked As Boolean)

    If Checkobraspendientes.Checked Then
        estadoobras=2

        Checkobratodas.checked=False
        Checkobrasfinalizadas.checked=False
    End If
    
    
End Sub