Wish checkbox

[Deleted member 103]

Hi,

can someone convert the B4i?
http://x-code-tutorials.com/2013/04/09/ios-xcode-checkbox-uibutton/

 

[stevel05]

This should get you going.

 

[Deleted member 103]

Hi stevel05,

Thank you very much!

 

[stevel05]

A couple of improvements:

Added a static code module to hold the global variables that store the images, so the are only loaded once and shared by all checkboxes.

Added enabled status, which uses the imageviews Alpha setting to display the disabled state. Get and Setters are not working properly yet for all occurrences in a class, Erel is aware and it will be fixed, so for now, the Enabled Subs are SetEnabled and GetEnabled.

 

[Deleted member 103]

@stevel05
I've added a few change.
The box consists now: 1xPanel + 1xImage + 1xLabel.

 

[stevel05]

Nice, the other thing I thought about was passing a panel to the module on which to build the checkbox, that way you could position the panel in the designer, pass it to the checkbox sub and build the checkbox on the panel which would already be in the right position.

 

[Deleted member 103]

Nice, the other thing I thought about was passing a panel to the module on which to build the checkbox, that way you could position the panel in the designer, pass it to the checkbox sub and build the checkbox on the panel which would already be in the right position.

Yes, that would be a good option.
Would you you go now or should I continue?

 

[stevel05]

Please, carry on with it. Make it a community checkbox

 

[Deleted member 103]

Hi,

can someone tell me what is wrong here?
This sub brings a mistake.

Sub Button1_Click
Dim cbxSelect As clsCheckBox
cbxSelect = Panel1.GetView(0)
Log("cbxSelect1.Checked=" & cbxSelect.Checked)
End Sub

 

[stevel05]

The object returned from Panel1.GetView(0) is a panel, not a clsCheckbox instance, you can store the class instance in the panels tag and access it that way.

 

[Deleted member 103]

Yes, this is also a possibility, but then I can not use the Tag property for other objects.

 

[klaus]

What exactly do you want to do with this routine?

Sub Button1_Click
    Dim cbxSelect As clsCheckBox
    cbxSelect = Panel1.GetView(0)
    Log("cbxSelect1.Checked=" & cbxSelect.Checked)
End Sub

This works:

Sub Button1_Click
    Log("cbxSelect1.Checked=" & cbxSelect1.Checked)
End Sub

 

[Deleted member 103]

Hi Klaus,

the CheckBox is in a panel and the panel is a scrollview.
I need to check if this checkbox is checked or not.

 

[stevel05]

You can create a Type structure and store as much as you like in the Tag

 

[klaus]

... the CheckBox is in a panel and the panel is a scrollview.
I need to check if this checkbox is checked or not.

I understand.