Solved - Toggle Button Code

[afehrmann]

I'm running VBA within MS Excel97 and like to know the code for the
following situation:

Form with ToggleButton, the button is labelled "1"

When I click the button, I'd like it to
a) become invisible (preferred), or
b) change it's label from "1" to "0"

On clicking the button again, i'd like to reverse he previous actions.

May sound to trivial for you to even bother about, but I have no previous
programming experience, and your reply would help me greatly with a
project I'm working on.

Thanks & Rgds, Andreas

[westconn1]

it is very easy to make a button toggle somthing

Private Sub CommandButton1_Click()
CommandButton1.Visible = Not CommandButton1.Visible
End Sub

but of course this won't work, once it is not visible you can not click it again to bring it back, so it depends what else your code is doing, you my need to just set it back to visible later in the code

CommandButton1.Visible = true

pete

[afehrmann]

Thanks for the quick reply. Works like a charm, but as you said, it works
onlly once: since it's invisible I can't toggle back and forth.

Is there a way to change the caption of the button from "1" to blank and
back to "1" with the next click?

Rgds, Andreas
(Adelaide, Australia...in case you're wondering where this dummy novice is from)

[westconn1]

Private Sub CommandButton1_Click()
Static onoff As Boolean
onoff = Not onoff
CommandButton1.Caption = -CInt(onoff)
End Sub

pete

[Ecniv]

Private Sub tglButton_Click()
    tblButton.Caption = iif(tglButton,"1","0")
End Sub

Or some thing like that. The true/flase part of the iif may need reversing...

[afehrmann]

Thks Ecniv...

that routine only works once, not repeatedly...Rgds, Andreas

[Ecniv]

Uh? only once?
Should fire each time the toggle button is pressed.

[westconn1]

this fixes ecniv example

CommandButton1.Caption = IIf(CommandButton1.Caption = 0, "1", "0")

pete

[Ecniv]

Hmmm - but the tglButton should be true or false depending on whether it is pressed or not - shouldn't need to fix it... Oh btw you'd need the speechmarks around the 0 in the iif - 'cause it is text and not a number

Edit:
Ok I have tested on a toggle button and works fine (original example).
There must be something else you've done if it is not working.

[westconn1]

works anyway, and the toggle button state is always the same when the button is pushed

pete

[afehrmann]

Problem Solved.

Thks for your help...Rgds, Andreas