aprire il vostro progetto di Visual Basic , e inserire la seguente riga nella parte superiore della funzione che chiama " SetFocus : " On Error GoTo FocusErr
2
Creare un'etichetta nella parte inferiore della funzione , scrivendo quanto segue : .
FocusDone :
Exit Function
3
Creare un'altra etichetta sotto " FocusDone ", scrivendo il seguente :
FocusErr :
Se Err.Number = -2147467259 Poi
Resume
EndIf .
Questo rende l'applicazione riprendere su tale errore , riprovare la chiamata " SetFocus " fino a quando compare effettivamente il controllo . Salvare il progetto e costruire usando il menu "Strumenti" nella propria applicazione .
Programmazione © www.354353.com