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.659 mal aufgerufen. |
Neu! sevCommand 4.0 Professionelle Schaltflächen im modernen Design! Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Buchempfehlung Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 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. |