You are not logged in.

Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

travisone

Beginner

  • "travisone" started this thread

Posts: 3

Date of registration: Nov 1st 2012

  • Send private message

1

Thursday, November 1st 2012, 3:49pm

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

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

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

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
UpdateLabels
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
UpdateLabels 'Update the labels based on the current selections
End Sub

Similar threads

Rate this thread
WoltLab Burning Board