|
| |
VB.NET - Ein- und Umsteiger| Format für Textbox festlegen | |  | | Autor: stefanbla80 | | Datum: 19.03.08 15:35 |
| Hallo zusammen,
ich "baue" mir gerade einen ganz einfachen Rechner zum Testen.
Ich würde gerne mm² in cm², cm² in m² usw. brechnen und mir ausgeben lassen.
Das geht soweit ganz gut, leider bin ich mit der "Formatierung" meiner Ausgabe nicht zufrieden.
Ich habe 3 Textboxen (eine für mm², cm² und m²), einen berechnen Button und einen zum löschen der Werte.
Gebe ich z. B. in Textbox10 den Wert 1 ein, dann bekomme ich als Ausgabe in Textbox9 0,01, in Textbox8 1E-06.
Wie kann ich meine Textbox so formatieren, dass ich z. B. bei Textbox8 0,000001 raus bekomme?!
'Massenträgheitsrechner
Private Sub Button227_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button227.Click
If TextBox10.Text = "" And TextBox9.Text = "" And TextBox8.Text = "" _
Then
Call message4()
ElseIf IsNumeric(Me.TextBox10.Text) Then 'mm²
Me.TextBox9.Text = Me.TextBox10.Text / 100 'Umrechnung in
' cm²
Me.TextBox8.Text = Me.TextBox10.Text / 1000000 'Umrechnung in
' m²
Me.TextBox9.BackColor = Color.SkyBlue
Me.TextBox8.BackColor = Color.SkyBlue
'Me.TextBox9.Text = Format(Me.TextBox9.TextLength, "0.00000000")
'Me.TextBox8.Text = Format(Me.TextBox8.TextLength, "0.00000000")
ElseIf IsNumeric(Me.TextBox9.Text) Then 'cm²
Me.TextBox10.Text = Me.TextBox9.Text * 100 'Umrechnung in
' mm²
Me.TextBox8.Text = Me.TextBox9.Text / 0.0001 'Umrechnung in
' m²
Me.TextBox10.BackColor = Color.SkyBlue
Me.TextBox8.BackColor = Color.SkyBlue
'TextBox10.Text = Format(Me.TextBox10.TextLength, "0.00000")
'TextBox8.Text = Format(Me.TextBox8.Text.Length, "0.00000")
ElseIf IsNumeric(Me.TextBox8.Text) Then 'm²
Me.TextBox10.Text = Me.TextBox8.Text * 1000000 'Umrechnung in
' mm²
Me.TextBox9.Text = Me.TextBox8.Text * 10000 'Umrechnung in
' cm²
Me.TextBox10.BackColor = Color.SkyBlue
Me.TextBox9.BackColor = Color.SkyBlue
'TextBox10.Text = Format(Me.TextBox10.TextLength, "0.00000")
'TextBox9.Text = Format(Me.TextBox9.TextLength, "0.00000")
End If
End Sub | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
TOP! Unser Nr. 1 
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
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.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
