Code reduction help..

**softwareguy74** · Nov 3rd, 2000, 06:54 PM

Hi,

I would like to reduce the following code:

Code:

    If chkPrivate = 1 Then
        ValuePrivate = "on"
    Else
        ValuePrivate = "off"
    End If

I know it's not a lot of code to begin with but I have a whole bunch of these
to put into my program so it does add up and it's time consuming to maintain.

Basically, what I'm trying to do is to convert the check box values of 1 and 0 to
"on" or "off", respectively.

Any ideas would be greatly appreciated..

Dan

**PRIVATE1** · Nov 3rd, 2000, 06:59 PM

In school ?

Try

Code:

 chkPrivate.Value = not chkPrive.value

[]P

**theman32x** · Nov 3rd, 2000, 07:05 PM

would the select case statement make it shorter?

**seaweed** · Nov 3rd, 2000, 07:14 PM

Why don't you just make ValuePrivate Boolean and assign it the Boolean converted value of the checkbox?

Code:

ValuePrivate = CBool(chkPrivate)

ValuePrivate will be TRUE if chkPrivate is Checked or Greyed, and FALSE if chkPrivate is UnChecked

Hope that helps,

**websurfer907** · Nov 3rd, 2000, 07:19 PM

What about this?

Code:

ValuePrivate = IIf(chkPrivate, "on", "off")

**seaweed** · Nov 3rd, 2000, 07:19 PM

Immediate if statements look cool but they run significantly slower than regular if/else statements. This also allows you to keep ValuePrivate as a string, which I assume was part of your requirement.

Code:

    ValuePrivate = IIf(chkPrivate = 0, "off", "on")

' That is the shortest you can get...

Thread: Code reduction help..

Thread Tools

Display

You could use a boolean value (?)

You could use the Immediate If statement

Posting Permissions