Question : exceler la boîte à textes d'userform ne peut pas setfocus à lui-même

forme simple avec seulement deux boîtes à textes.  Textbox1 accepte des données, processus il et puis essaye au setfocus à lui-même ainsi il peut accepter plus de données.  Textbox2 a l'autre code suivant indépendant d'uses.


The n'a pas travaillé.  Après que des données aient été saisies, textbox2 obtiendrait toujours le foyer. () le programme de traitement réel de debug.print/> le
Private/>
TextBox1.text = code suivant du
textbox1.setfocus
End Sub

The de "" a assez bien travaillé.  Une fois que l'utilisateur commence à saisir des données, elles ne peuvent pas sortir la boîte à textes jusqu'à ce que les données aient été problème du processed

The seulement soient lui comlicated un peu. Si quelqu'un a une meilleure solution, signaler svp et vous obtiendrez le points.

Otherwise, je PAQ ce tomorrow

de question------- ma meilleure solution jusqu'ici -------------------le

Dim CPUMadeChange comme stopExit de Boolean
Dim comme
Private Textbox1_AfterUpdate ()/>CPUMadeChange = True
TextBox1.text = "" » ceci met le feu à l'événement de _change. J'emploie CPUMadeChange pour le garder from
CPUMadeChange = stopExit de
If CPUMadeChange de False
End Sub
Private stopExit secondaire d'annulation = de True
de Then
de stopExit Textbox1_Change () puis = de
If de True
End Sub

Private Textbox1_Exit (annulation de ByVal comme MSForms.ReturnBoolean) =
Stop
End Sub
de False
End If
End Sub

Private TextBox3_Enter () class= de

Réponse : exceler la boîte à textes d'userform ne peut pas setfocus à lui-même

Ne pouvez-vous pas juste employer l'événement de sortie et sauter l'AfterUpdate (qui est OMI assez injustifiée dans des userforms de VBA) ?