Code reduction help..

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

In school ?

Try

Code:

---

chkPrivate.Value = not chkPrive.value

---

[]P

would the select case statement make it shorter?

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,

What about this?

Code:

---

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

---

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