Zahleneingaben in verschiedenen TexBoxen zusammenrechnen VB-Version:  VB5, VB6
	Views:  9.003

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