Zahl löschen

[Egypter]

Hi Leute!

Hab meinen Taschenrechner ziemlich fertig, will aber noch eine CMD Button einbauen, mit dem ich den letzten Befehl rückgängig machen kann.
Z.B. ich habe 1234 eingetippt und will nun mit dem Löschbutton nur die 4 wieder weghaben. Wie kann ich das machen?

Vielen Dank im voraus

Egypter

 

[Ein_Freund]

Es gbt sicher elegantere Lösungen, aber auf die Schnelle kann ich Dir folgendes anbieten:

txtRechner stellt das Feld dar, in dem die Zahl steht, die Du ändern möchtest
Hier wird die Zahl in einen String umgewandelt und die letzte Ziffer von rechts "abgeschnitten", anschliessend wieder in ein double umgewandelt und schliesslich in das Textfeld eingefügt.


Sub rueckgaengig()
Dim i#, a$
i = CDbl(txtRechner.Text)
a = CStr(i)
a = Left(a, Len(a) - 1)
txtRechner.Text = CDbl(a)
End Sub

Natürlich musst Du noch Sonderfälle beachten wie Kommata oder Ziffern o.ä.

 

[Egypter]

Zahlen löschen

Danke schön, funktioniert super!

Gruß Egypter

 

[Ein_Freund]

Gern geschehen. Solltest Du Probleme mit der Ausnahmebehandlung haben, einfach hier posten oder pn an mich...