-
VB6 KeyPress Problem
Hi Leute,
bin noch recht unerfahren im Programmieren und bräuchte mal bei einer Sache eure Hilfe. Hab SuFu schon benutzt, nur nichts Passendes gefunden...
Also, ich hab nen Taschenrechner programmiert, der soweit auch läuft (mit plus, minus, mal, geteilt, wurzel und potenzen)
Bei dem Rechner wird das Ergebnis immer in einem Textfeld ausgegeben. So kann man auch seine Rechnung direkt ins Textfeld eingeben.
Hab auch eine kleine Function gemacht, die nur Zahlen und Rechenzeichen erlaubt.
Jetzt will ich erreichen, dass, wenn man nach dem manuellen eintippen einer Zahl, ein Rechenzeichen eintippt (durch Tastatur ins Textfeld :eek:) Visual Basic zu der passenden Sub springt. Das Problem ist nur, dass das Zeichen danach im Textfeld steht, was es allerdings nicht soll :D
Bspl.: Man gibt ins Textfeld "8" ein -> Eine 8 erschreint im Textfeld. Danach gibt man "*" ein -> Sub cmdMal_Click (der zugehörige Button) wird ausgeführt und Textfeld wird gelöscht. Danach steht allerdings im Textfeld "*"
Wie kann man den letzten Schritt vermeiden, sodass das eingegebene Zeichen nicht geschrieben wird, allerdings trotzdem der Rest ausgelöst wird???
Wäre über jede hilfe sehr dankbar :D
-
xD ewig kein vb6 mehr gemacht aber ich versuch dir mal nen Taschenrechner zu liefern der das kann :D
-
Code:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57 '0-9
Case 42 '*
'Call ...
KeyAscii = 0
Case 47 '/
'Call ...
KeyAscii = 0
Case 43 '+
'Call ...
KeyAscii = 0
Case 45 '-
'Call ...
KeyAscii = 0
End Select
End Sub
-
Guut, so klappt der Rechner endlich ordentlich xP
Danke dir!!!