Option Button unselected works on vb6 .. help now in abaco?

Beginner

Date of registration: Nov 1st 2012

Thursday, November 1st 2012, 3:29pm

Hello my program works perfect on vb6
then when i use jabaco unselected option doesnt work ( i have a group of arrays option buttons)

Jabaco Source

Dim FoundIndex1 As Integer
Dim ToggleVal As Boolean

Private Sub Form_Load()
 FoundIndex1 = -1
End sub


Private Sub Option1_GotFocus(Index As Integer)
 FoundIndex1 = Index
End Sub


Private Sub Option1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
 ToggleVal = Option1(Index).Value
End Sub


Private Sub Option1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
 With Option1(Index)
 .Value = .Value Xor ToggleVal 'Toggle the state of the option
 If .Value Then 'If it is selected Then
 FoundIndex1 = Index ' Save the index
 Else 'Else (not selected)
 FoundIndex1 = -1 ' Flag as not selected

End If
 End With
End Sub

This post has been edited 2 times, last edit by "travisone" (Nov 1st 2012, 4:20pm)

Go to the top of the page

Dani

Intermediate

Posts: 325

Date of registration: Nov 19th 2009

Location: GERMANY

Thursday, November 1st 2012, 4:44pm

Hey there,

I am Not sure I understand!
You are trying To unselect every OptionBox of that group?

You did Not post the code For UpdateLabels.
So I don't know how you are trying to do that!

I think when after the initial start of the programm you have made a selection, exactly one button Is selected from Then On!

The underlying Java radio-button-group concept does Not allow a Single JRadioButton to be used to 'turn it on and off again'

Use the CheckBox Instead!

Dani

latest Jabaco.jar:
Jabaco.jar on bitbucket since other links are down !!
Jabaco Framework source:
https://code.google.com/p/jabacoframework/source/list

Go to the top of the page

travisone

Beginner

Posts: 3

Date of registration: Nov 1st 2012

Thursday, November 1st 2012, 9:37pm

Sorry about that, you can use just the code without the updatelabels. in vb works but in jabaco doesnt do the job

and yes i have 3 option button (array) in a frame
like this
option1(0)
option1(1)
option1(2)

for example:
my code in visual basic when u click on one option1(0) the others are false of course, and if i click again on option1(0) this option come false, and of course the others keep on false state.

i dont use checkbox because is easy when u have 3 frames and 3 option arrays like this option1, option2,option3
then some labels updates later when clicking..

If is possible to make it work on jabaco please i really appreciate it!!

Jabaco Source

Dim FoundIndex1 As IntegerDim ToggleVal As Boolean
Private Sub Form_Load()FoundIndex1 = -1End Sub

Private Sub Option1_GotFocus(Index As Integer)FoundIndex1 = Index
End Sub

Private Sub Option1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)ToggleVal = Option1(Index).ValueEnd Sub

Private Sub Option1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)With Option1(Index).Value = .Value Xor ToggleVal 'Toggle the state of the optionIf .Value Then 'If it is selected ThenFoundIndex1 = Index ' Save the indexElse 'Else (not selected)FoundIndex1 = -1 ' Flag as not selected
End IfEnd With
End Sub