Come nascondere il controllo pulsante in VBA

Question

C'è qualcuno qui ancora in programmazione VBA?

sto cercando di ottenere questo codice funzioni

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 

Quello che sto cercando di fare è che in fondo Ho una forma principale che ha 5 principali controlli pulsante. 2 di questi sono nascosti all'avvio. Quindi, quando clicco sul pulsante 3, voglio nascondere i primi 3 pulsanti principali e "mostrare" gli altri due. Quando si tenta di eseguire questo evento, ho ottenuto un errore

"Errore di runtime 2165 - Non si può nascondere un controllo che ha il focus".

Qualcuno ha mai incontrato questo aspetto della programmazione? Sono sicuro che sia fattibile. Semplicemente non capisco cosa è andato storto qui ...

Answer 1

Cambiare la messa a fuoco per uno dei controllo visibile, prima di nascondere quello attuale

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 

Forse si può saltare il comando DoEvents, si dovrebbe provare

Answer 2

Avrei pensato che l'errore fosse abbastanza esplicito. Spostare lo stato attivo su un controllo che non si sta tentando di nascondere prima di eseguire il codice. Inoltre, si consideri Me: http://msdn.microsoft.com/en-us/library/aa223099(v=office.11).aspx