B4J Question How do I add an on-click event to a checkbox or other view that sdoesn't have the mouse events

[rgarnett1955]

Hi,

I wish my checkbox-changed event to ignore programmatic changes and only response to user input (mouse click)?

As per ... add click event manually ...

Best regards
Rob

 

[mangojack]

? unsure if this solves your wish.

Sub CheckBox1_MouseClicked (EventData As MouseEvent)
    Log("CheckBox Clicked !")
End Sub

 

[Daestrum]

Just set a global flag when you want to change the value programmatically and in the CheckedChange event test and ignore

' in globals
Dim chk_box_flag as Boolean = false

'in your code
...
' change by code
    chk_box_flag = True
    chk_box.Checked = Not(chk_box.Checked)

...
Sub chkbox_CheckedChange(Checked As Boolean)
    If chk_box_flag Then 
        chk_box_flag = False
        Return
    End If
    Log("value changed") ' only shows if you click checkbox
    chk_box_flag = False
End Sub

 

[rgarnett1955]

? unsure if this solves your wish.

Sub CheckBox1_MouseClicked (EventData As MouseEvent)
    Log("CheckBox Clicked !")
End Sub

Just set a global flag when you want to change the value programmatically and in the CheckedChange event test and ignore

' in globals
Dim chk_box_flag as Boolean = false

'in your code
...
' change by code
    chk_box_flag = True
    chk_box.Checked = Not(chk_box.Checked)

...
Sub chkbox_CheckedChange(Checked As Boolean)
    If chk_box_flag Then
        chk_box_flag = False
        Return
    End If
    Log("value changed") ' only shows if you click checkbox
    chk_box_flag = False
End Sub

Hi,

Yes I have been setting a flag to true after initialisation. It helped, but it didn't fix every situation.

Thans
Rob

 

[rgarnett1955]

? unsure if this solves your wish.

Sub CheckBox1_MouseClicked (EventData As MouseEvent)
    Log("CheckBox Clicked !")
End Sub

Well its THAT simple

Thanks Rob