Wie geht das: eigene Klasse für Textboxen

Hallo,
ich möchte nach Verlassen von verschiedenen Textboxen immer die gleiche Prozedur aufrufen lassen. Hier im Forum wurde gesagt, dass man dazu eine eigene Klasse für Textboxen anlegen muss. Leider brachte mich das Lesen der Hilfe keinen Schritt weiter. Kann mir jemand weiterhelfen?

Der Code bisher ist:
Private Sub Textfeld1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Pruefeeingabe(Name des Textfeldes)
End Sub

Private Sub Textfeld2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Pruefeeingabe(Name des Textfeldes)
End Sub

Wie muss der Code aussehen, wenn die Prozedur Pruefeeingabe(Name des Textfeldes) aufgerufen werden soll, egal welches textfeld verlassen wird?

Danke für Eure Tipps
Richard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hajo,

gib mal bitte den Code ein und dann werden Dir außerdem noch angeboten:
Public WithEvents txtArray As MSForms.TextBox

Private Sub txtArray_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub

Private Sub txtArray_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub

Private Sub txtArray_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

End Sub
Private Sub txtArray_DropButtonClick()

End Sub
Private Sub txtArray_Error(ByVal Number As Integer, ByVal Description As MSForms.ReturnString, ByVal SCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, ByVal CancelDisplay As MSForms.ReturnBoolean)

End Sub

Private Sub txtArray_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

End Sub
Private Sub txtArray_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

End Sub

Private Sub txtArray_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

End Sub

Private Sub txtArray_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

End Sub

Private Sub txtArray_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

End Sub

Private Sub txtArray_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

End Sub

Gruß

Micha

Beliebteste Forumthreads (12 Monate)

Wie geht das: eigene Klasse für Textboxen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wie geht das: eigene Klasse für Textboxen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread