Rubrik: Variablen & Strings | 15.02.03 |
Zahleneingaben in verschiedenen TexBoxen zusammenrechnen VB-Version: VB5, VB6 | ||
Views: 9.659 |
Um Zahleneingaben in Textboxen zusammenrechnen und in einer weiteren TextBoxausgeben zu können, muss der Inhalt der Textbox in einen geeigneten Datentypumgewandelt werden.
Starten Sie ein neues Projekt, das Sie mit 3 TextBoxen und einemCommandButton ausstatten. Dann versuchen Sie mal folgenden Code:
Private Sub Command1_Click() Text3.Text = CStr(Val(Text1.Text) + Val(Text2.Text)) End Sub
Geben Sie in die ersten beiden Textboxen jeweils Zahlen ein, klicken Sie aufden CommandButton und das Ergebnis wird in der dritten TextBox angezeigt.
Sollten Sie aber auf die Idee kommen, Kommazahlen zu verwenden, werden Siefeststellen, dass dies nicht funktioniert. Der Grund hierfür ist, dass dieVal-Funktion das Komma nicht als gültiges Dezimalzeichen akzeptiert, sondernnur den Punkt. Es wird schwierig sein, den Anwender zu überzeugen, dass er inZukunft statt Kommas Punkte verwenden soll. Also benötigen wir einen Datentyp, der auch das Komma akzeptiert:
Private Sub Command1_Click() Text3.Text = CStr(CDbl(Text1.Text) + CDbl(Text2.Text)) End Sub
Hier wurde lediglich Val durch CDbl ersetzt - und schon klapptdas Ganze auch mit Kommazahlen