Command Botton

[roi santos]

Hi all!
I have a form that show certain frames when a command bottom is clicked.But I havent find a way of making the frame disapear if the command bottom is clicked again. My code is shown below

Private Sub CommandButton1_Click()
Frame1.Visible = True
End Sub
Private Sub CommandButton2_Click()
Frame2.Visible = True
End Sub
Private Sub CommandButton3_Click()
Frame3.Visible = True
End Sub
Private Sub CommandButton4_Click()
Frame4.Visible = True
End Sub
Private Sub CommandButton5_Click()
Frame5.Visible = True
End Sub
Private Sub CommandButton6_Click()
Frame6.Visible = True
End Sub
Private Sub CommandButton7_Click()
Frame7.Visible = True
End Sub

Can somebody help with this?

 

[Colin Legg]

Hi,

How about something like this?

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

 

[roi santos]

Thanks for your reply

But I do not know how this can do the trick. Probably I havent explained the problem very well.

The commad bottoms will make visible the frames in which I want to add data to. But if I accidentally press the command bottom that show a frame that I do not want to fill, I would like to be able to make it disapear by pressing the command botton again.

 

[Colin Legg]

Hi,

That is what I posted. Clicking the commandbutton will toggle the frame's visibility on and off. Isn't that what you want?

 

[roi santos]

Colin,

Sorry about the confusion. Yes, it does exactly what you say and exacly what I wanted.

I was adding your code after in this way

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

And this oviously do not work. It should read

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

Thanks for your help.Sorry for my mistake