Optionboxes functions

[Chrissie]

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...

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...

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!

[peet]

Sorry, but I don't get it... could you please elaborate a bit ?

[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

[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

[Chrissie]

That doesn't work...

[BuggyProgrammer]

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

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