Cómo ocultar el control de botón en VBA

Question

¿Hay alguien aquí todavía programando VBA?

estoy tratando de conseguir que este código funcione

Private Sub button3_click() 

    'hide main buttons 
    button1.Visible = False 
    button2.Visible = False 
    button3.Visible = False 

    'show submenu buttons 
    button4.Visible = True; 
    button5.Visible = True; 

End Sub 

Lo que estoy tratando de hacer, básicamente, es que tengo un formulario principal que tiene 5 botones de control principales. 2 de ellos están ocultos en el inicio. Entonces, cuando hago clic en el botón 3, quiero ocultar los primeros 3 botones principales y "mostrar" los otros dos. , se intenta ejecutar este evento, que tiene un error

"Tiempo de ejecución Error 2165 - No se puede ocultar un control que tiene el foco".

¿Alguien se ha encontrado antes con este aspecto de la programación? Estoy seguro de que es factible. Simplemente no entiendo lo que salió mal aquí ...

Answer 1

cambiar el foco a uno de los control visible, antes de ocultar el actual

Private Sub button3_click() 

    'show submenu buttons 
    button4.Visible = True 
    button5.Visible = True 

    DoEvents   'execute any pending events, to make sure the button 4 and 5 are really visible 
    button4.SetFocus 'change the focus to a now visible control 
    DoEvents   'execute any pending events, to make sure that button4 really has the focus 

    'now you can hide the other buttons 

    'hide main buttons 
    button1.Visible = False 
    button2.Visible = False 
    button3.Visible = False 

End Sub 

Tal vez puede omitir el comando DoEvents, usted debe tratar

Answer 2

Hubiera pensado que el error fue lo suficientemente explícito. Mueva el foco a algún control que no intente ocultar antes de ejecutar su código. Además, considere Me: http://msdn.microsoft.com/en-us/library/aa223099(v=office.11).aspx