Funktion oder Klasse (@J.E.)
30.04.2006 11:08:25
Ingo
leider hatte ich Deine Antwort vor dem Server-Crash noch nicht gesichert.
Hast Du das Teil evtl. noch einmal parat ?
Fragestellung war, wie kann ich nachfolgende Routine auslagern und durch Textboxen einer UF abfragen ?
Private Sub tbo_VonUhrzeit_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Uhrzeit von
'Eingabebeschränkung Textbox_Uhrzeit mit autom. Doppelpunkt
'Format hh:mm
Select Case Len(tbo_VonUhrzeit)
Case 0
Select Case KeyAscii
Case 48 To 50
Case Else
KeyAscii = 0
End Select
Case 1
If Left(tbo_VonUhrzeit, 1) = 2 Then
Select Case KeyAscii
Case 48 To 51
Case Else
KeyAscii = 0
End Select
Else
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End If
Case 2
Select Case KeyAscii
Case 48 To 53, 58
If KeyAscii <> 58 Then tbo_VonUhrzeit = tbo_VonUhrzeit & ":"
Case Else
KeyAscii = 0
End Select
Case 3
If Right(tbo_VonUhrzeit, 1) = ":" Then
Select Case KeyAscii
Case 48 To 53
Case Else
KeyAscii = 0
End Select
End If
Case 4
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
End Select
Case Else
KeyAscii = 0
End Select
End Sub
Anzeige