|
| |
Visual-Basic Einsteiger| Textbox-Format festlegen | |  | | Autor: stefanbla80 | | Datum: 19.03.08 14:34 |
| 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 |
 |
|
Neu! sevEingabe 3.0 
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 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.
