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 Diese Seite wurde bereits 9.674 mal aufgerufen. |
sevZIP40 Pro DLL Zippen und Unzippen wie die Profis! Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |