Bei Select Case-Anweisung Codezeilensparen
24.10.2008 13:18:31
Richard
Hallo,
funktionell, funktioniert folgender Code, so wie ich ihn gerne haben will, jedoch bin ich noch nicht so pfiffig um hier Codezeilen zu sparen, kann mir jemand eine Lösung anbieten?
Select Case KeyAscii
Case 48 To 57
17-Zeilen-Code (If-, ElseIf-, End If-Anweisungen)
Case 108, 76
KeyAscii = 76
17-Zeilen-Code (If-, ElseIf-, End If-Anweisungen)
Case 109, 77
KeyAscii = 77
17-Zeilen-Code (If-, ElseIf-, End If-Anweisungen)
Case 120, 88
KeyAscii = 88
17-Zeilen-Code (If-, ElseIf-, End If-Anweisungen)
Case Else
KeyAscii = 0
End Select
Wie kriege ich es hin, den 17-zeiligen Code nicht 3x zu kopieren? 79 Zeilen Code für so 'ne banale Sache find ich ein bißchen zu viel.
Vielen Dank für eurer rege Beteiligung beim Antworten.
Mit freundlichen Grüßen
Richard E.