Klassenmodul für Handler funzt nicht
31.08.2017 11:41:39
Peter
folgendes Problem:
Ich habe ein Klassenmodul mit einem EventHandler für TextBoxen.
Durch diesen soll verhindert werden, dass nicht Numerische Werte
eingetragen werden können.
Ich bekomme keine Fehlermeldung, doch der Handler greift nicht ein.
Er tut absolut gar nichts.
Ich komme nicht darauf warum...
UserForm.ShowModal = False falls dass relevant ist.
Klasse: CustomHandler
Beinhaltet folgenden Code:
Option Explicit
Public WithEvents clsTxtBox As MSForms.TextBox
Private Sub clsTxtBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
Case Else: KeyAscii = 0
End Select
End Sub
Die Zuweisung erfolgt so:
Private Sub LoadCustomHandler()
Dim clsCustom As New CustomHandler
Set clsCustom.clsTxtBox = Me.tb_Anzahl
End Sub