Frage : userform area per informazioni übertreffen kann nicht setfocus zu sich

einfache Form mit nur zwei area per informazioni.  Textbox1 nimmt Daten, Prozesse es an und versucht dann zum setfocus zu sich, also kann es mehr Daten annehmen.  Textbox2 hat anderen ohne Bezug uses.


The folgenden Code arbeitete nicht.  Nachdem Daten eingegeben wurden, würde textbox2 immer Fokus erhalten. Vor() debug.print/>
Private/>
TextBox1.text = ""
textbox1.setfocus
End Sub

The folgender Code arbeitete ziemlich gut irrelevant.  Sobald der Benutzer anfängt, Daten einzubringen, können sie die area per informazioni nicht herausnehmen, bis die Daten processed

The nur Problem sind es comlicated ein wenig gewesen sind. Wenn jemand eine bessere Lösung hat, bitte bekannt geben und Sie erhalten das points.

Otherwise, ich werden PAQ dieses Frage tomorrow

------- meine beste Lösung bis jetzt -------------------

Dim CPUMadeChange als Boolean
Dim stopExit als Boolean
Private VorTextbox1_AfterUpdate ()
CPUMadeChange = True
TextBox1.text = ""“ dieses feuert das _change Ereignis ab. Ich verwende CPUMadeChange, um es zu halten from
CPUMadeChange = False
End Sub
Private VorTextbox1_Change ()
If CPUMadeChange dann stopExit = True
End Sub

Private VorTextbox1_Exit (ByVal Löschen als MSForms.ReturnBoolean)
If stopExit Then
Löschen = True
stopExit = False
End If
End Sub

Private VorTextBox3_Enter ()
Stopp
End Sub

Antwort : userform area per informazioni übertreffen kann nicht setfocus zu sich

Können Sie das Ausgangsereignis nicht gerade verwenden und das AfterUpdate (das überspringen IMO ist, das in den VBA userforms ziemlich sinnlos ist)?