Optionboxes functions

Printable View

Oct 5th, 2002, 10:02 AM
Chrissie

Optionboxes functions
I have a form full of Optionboxes...
All the OptionBoxes are with two of them together...

So I have for example:
Dog or Cat
Sheep or Cow
Fish or Bird

I want to write a function to return a 1 or a 0 to an integer...
VB Code:
```
Public Sub OneZero(One As Boolean, Zero As Boolean, intName As String)
If One = True Then
    Name = 1
ElseIf Zero = True Then
    Name = 0
End If
End Sub
```
I call this functions...
VB Code:
```
call OneZero(optDog, optCat, "intDogCat")
call OneZero(optCow, optSheep, "intSheepCow")
call OneZero(optFish, optBird, "intFishBird")
```
Problem now is I want the 1 or 0 into my intName instead of into Name...help!
Oct 5th, 2002, 10:08 AM
peet

:confused:

Sorry, but I don't get it... could you please elaborate a bit ?
Oct 5th, 2002, 10:12 AM
Chrissie

Mhh...
Ok...

I have 2 optionboxes for every pair...
So I have optDog and optCat

if optDog is selected I want to have a "1" into my intDogCat, if optCat is selected I want to have a "0" into my intDogCat
Oct 5th, 2002, 10:37 AM
BuggyProgrammer

Public Sub OneZero(One As Boolean, Zero As Boolean, intName As Integer)
If One = True Then
intName = 1
ElseIf Zero = True Then
intName = 0
End If
End Sub

call OneZero(optDog, optCat, intDogCat)
call OneZero(optCow, optSheep, intSheepCow)
call OneZero(optFish, optBird, intFishBird)

try that
Oct 5th, 2002, 10:40 AM
Chrissie

Nope...

That doesn't work...

??????? yes it does.... how are you doing it?

VB Code:

Private Sub Form_Load()
    Dim optdog As Boolean
    Dim optcat As Boolean
    Dim intdogcat As Integer
    optdog = False
    optcat = True
    Call OneZero(optdog, optcat, intdogcat)
    MsgBox intdogcat
    
End Sub
Public Sub OneZero(One As Boolean, Zero As Boolean, intName As Integer)
    If One = True Then
        intName = 1
    ElseIf Zero = True Then
        intName = 0
    End If
End Sub