reverse boolean?

RB Smissaert · #1 (**permalink**) 03-31-2009, 12:48 PM

Is it possible in B4P to reverse a boolean as you can do in VB, eg:
txtTest.Visible = (bBool = False)

It would be useful as you could then reduce the code in procedures like this:

Sub ShowHidePaymentList(bShow)

If bShow = True Then
btnNewPayment.Visible = False
btnDeletePayment.Visible = False
btnClearAllP.Visible = False
btnPractices.Visible = False
btnPaymentsList.Visible = False
tblPayments.Visible = True
Else
tblPayments.Visible = False
btnNewPayment.Visible = True
btnDeletePayment.Visible = True
btnClearAllP.Visible = True
btnPractices.Visible = True
btnPaymentsList.Visible = True
End If

End Sub

RBS

Byak@ · #2 (**permalink**) 03-31-2009, 01:09 PM

Yes

btnNewPayment.Visible = not(btnNewPayment.Visible)

RB Smissaert · #3 (**permalink**) 03-31-2009, 03:35 PM

Yes, I knew that one, but it is not quite the same as reversing a "Boolean" variable. How would you code the posted procedure without the If Else
construction?

RBS

specci48 · #4 (**permalink**) 03-31-2009, 03:42 PM

Hi RB Smissaert,

I would code it like that:

Code:

Sub ShowHidePaymentList(bShow)
    tblPayments.Visible = bShow
    btnNewPayment.Visible = Not(bShow)
    btnDeletePayment.Visible = Not(bShow)
    btnClearAllP.Visible = Not(bShow)
    btnPractices.Visible = Not(bShow)
    btnPaymentsList.Visible = Not(bShow)
End Sub

specci48

RB Smissaert · #5 (**permalink**) 03-31-2009, 03:46 PM

Thanks, I am nearly sure I tried that and for some reason it didn't work, but will try again tonight.

RBS

RB Smissaert · #6 (**permalink**) 03-31-2009, 04:01 PM

Yes, that works fine.
I think I had done Not bShow as in VB.
Thanks again for clearing that up.

RBS