MaskedTextBox - beim eintragen in die Box den Text formatieren

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Siestaeg.

    MaskedTextBox - beim eintragen in die Box den Text formatieren

    Hallo,

    ich habe ein großes Problem. Ich habe eine Textbox die die User ausfüllen sollen und der Übersichtshalber soll der eingegebene Text so formatiert werden das der User 100000000000 eingibt und die Tausender Trennpunkte automatisch erscheinen 10.000.000.000. Die Werteeingaben liegen dabei von 10 .000 bis 100 Mio.

    Wie kann ich das erreichen???? Oder ist die MaskedTexBox der falsche Weg?

    MfG
    varo.biker

    wie wärs mit so was


    VB.NET-Quellcode

    1. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    2. If IsNumeric(TextBox1.Text) Then
    3. TextBox1.Text = Format(CDec(TextBox1.Text), "###,##")
    4. TextBox1.SelectionStart = Len(TextBox1.Text)
    5. TextBox1.ScrollToCaret()
    6. End If
    7. End Sub

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Siestaeg“ ()

    :( Leider funktioniert es nicht ganz so wie ich es mir denke. Zwar funktioniert die Tausender Trennung aber ich habe das Textfeld so formatiet das es rote Zahlen anzeigen soll - jedoch erscheinen graue. Mein Code schaut so aus:

    VB.NET-Quellcode

    1. Private Sub frm_frequenzbereich_Activated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Activated
    3. '#### eintragen der Start- /Endfrequenz aus der Messdatei in die maskierten Textboxen
    5. tbx_form_freq_bereich_Htxt_min.Text = Format(CDec(dbl_frq_min), "###,##")
    6. txt_frm_freq_ber_htxt_freq_max.Text = Format(CDec(dbl_frq_max), "###,##")
    8. End Sub



    jetzt frag ich mich was ich falsch mache,


    außerdem bekomme ich seit der Formatierung immer folgenden Fehler im Direktfenster angezeigt:

    "Eine Ausnahme (erste Chance) des Typs "System.FormatException" ist in mscorlib.dll aufgetreten."

    kenn es sein dass das daher stammt das ich ja mehrere Felder untereinander habe und diese mit der o.g. IF Then Schleife jeweils formatiere.

    der Code sieht so dazu aus:

    VB.NET-Quellcode

    1. '### beim aktivieren der Checkbox1 werden die dahinter gelegenen Texteingabefelder aktiviert #####
    2. Private Sub cbx_form_freq_bereich_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbx_form_freq_bereich_1.Click
    4. If cbx_form_freq_bereich_1.Checked = True Then
    5. txt_Freq_start_cbx1.Enabled = True
    6. txt_Freq_ende_cbx1.Enabled = True
    7. Else
    8. txt_Freq_start_cbx1.Enabled = False
    9. txt_Freq_ende_cbx1.Enabled = False
    10. End If
    12. End Sub
    14. ' #### Formatierung des Eingabefeldes Freq. Beginn bei CheckBox 1 in 10.000.000
    15. Private Sub txt_Freq_start_cbx1min_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_Freq_start_cbx1.TextChanged
    17. If IsNumeric(txt_Freq_start_cbx1.Text) Then
    18. txt_Freq_start_cbx1.Text = Format(CDec(txt_Freq_start_cbx1.Text), "###,##")
    19. txt_Freq_start_cbx1.SelectionStart = Len(txt_Freq_start_cbx1.Text)
    20. txt_Freq_start_cbx1.ScrollToCaret()
    21. End If
    23. End Sub
    25. ' #### Formatierung des Eingabefeldes Freq. Ende bei CheckBox 1 in 10.000.000
    26. Private Sub txt_Freq_end_cbx1max_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_Freq_ende_cbx1.TextChanged
    28. If IsNumeric(txt_Freq_ende_cbx1.Text) Then
    29. txt_Freq_ende_cbx1.Text = Format(CDec(txt_Freq_ende_cbx1.Text), "###,##")
    30. txt_Freq_ende_cbx1.SelectionStart = Len(txt_Freq_ende_cbx1.Text)
    31. txt_Freq_ende_cbx1.ScrollToCaret()
    32. End If
    34. End Sub
    36. '### beim aktivieren der Checkbox2 werden die dahinter gelegenen Texteingabefelder aktiviert #####
    37. Private Sub cbx_form_freq_bereich_2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbx_form_freq_bereich_2.CheckedChanged
    39. If cbx_form_freq_bereich_2.Checked = True Then
    40. txt_Freq_start_cbx2.Enabled = True
    41. txt_Freq_ende_cbx2.Enabled = True
    42. Else
    43. txt_Freq_start_cbx2.Enabled = False
    44. txt_Freq_ende_cbx2.Enabled = False
    45. End If
    47. End Sub
    49. ' #### Formatierung des Eingabefeldes Freq. Beginn bei CheckBox 2 in 10.000.000
    50. Private Sub txt_Freq_start_cbx2min_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_Freq_start_cbx2.TextChanged
    52. If IsNumeric(txt_Freq_start_cbx2.Text) Then
    53. txt_Freq_start_cbx2.Text = Format(CDec(txt_Freq_start_cbx2.Text), "###,##")
    54. txt_Freq_start_cbx2.SelectionStart = Len(txt_Freq_start_cbx1.Text)
    55. txt_Freq_start_cbx2.ScrollToCaret()
    56. End If
    58. End Sub
    60. ' #### Formatierung des Eingabefeldes Freq. Ende bei CheckBox 2 in 10.000.000
    61. Private Sub txt_Freq_end_cbx2max_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_Freq_ende_cbx2.TextChanged
    63. If IsNumeric(txt_Freq_ende_cbx2.Text) Then
    64. txt_Freq_ende_cbx2.Text = Format(CDec(txt_Freq_ende_cbx2.Text), "###,##")
    65. txt_Freq_ende_cbx2.SelectionStart = Len(txt_Freq_ende_cbx2.Text)
    66. txt_Freq_ende_cbx2.ScrollToCaret()
    67. End If
    69. End Sub
    71. '### beim aktivieren der Checkbox3 werden die dahinter gelegenen Texteingabefelder aktiviert #####
    72. Private Sub cbx_form_freq_bereich_3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbx_form_freq_bereich_3.CheckedChanged
    74. If cbx_form_freq_bereich_3.Checked = True Then
    75. txt_Freq_start_cbx3.Enabled = True
    76. txt_Freq_ende_cbx3.Enabled = True
    77. Else
    78. txt_Freq_start_cbx3.Enabled = False
    79. txt_Freq_ende_cbx3.Enabled = False
    80. End If
    82. End Sub
    84. ' #### Formatierung des Eingabefeldes Freq. Beginn bei CheckBox 3 in 10.000.000
    85. Private Sub txt_Freq_start_cbx3min_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_Freq_start_cbx3.TextChanged
    87. If IsNumeric(txt_Freq_start_cbx3.Text) Then
    88. txt_Freq_start_cbx3.Text = Format(CDec(txt_Freq_start_cbx3.Text), "###,##")
    89. txt_Freq_start_cbx3.SelectionStart = Len(txt_Freq_start_cbx3.Text)
    90. txt_Freq_start_cbx3.ScrollToCaret()
    91. End If
    93. End Sub
    95. ' #### Formatierung des Eingabefeldes Freq. Ende bei CheckBox 3 in 10.000.000
    96. Private Sub txt_Freq_end_cbx3max_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_Freq_ende_cbx3.TextChanged
    98. If IsNumeric(txt_Freq_ende_cbx3.Text) Then
    99. txt_Freq_ende_cbx3.Text = Format(CDec(txt_Freq_ende_cbx3.Text), "###,##")
    100. txt_Freq_ende_cbx3.SelectionStart = Len(txt_Freq_ende_cbx3.Text)
    101. txt_Freq_ende_cbx3.ScrollToCaret()
    102. End If
    104. End Sub


    Vielleicht kann ich das ganze ja in eine verkettete Anweisung bringen da ich ja das Aktivschalten der einzelnen Checkboxen und das befüllen der Textfelder mit Zahlen überprüfen muß und die entsprechenden Berechnungen für die einzelnen Frequenzbereiche anstoßen muß. Wie ich das realisieren soll weiß ich auch noch nicht. Bin halt noch ein blutiger Anfänger der -stoppeln gehen muß.

    Der Übersichtshalber hänge ich mal ein Bild von meinem Formular an.

    LG
    Bilder

    • Fenster Frequenzbereiche festlegen klein.jpg

      83,34 kB, 944×652, 325 mal angesehen

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „varo.biker“ ()

    Hallo Vario.Biker,

    dass der Text grau erscheint könnte sein, wenn Textbox.Enabled = false ist.
    Du arbeitest mit Double, setze also bitte das CDEC nach dem Format auf CDBL.
    Du solltest dir auch überlegen deine Abwicklung mittels Funktion zu machen, dann brauchst du nicht für jede Checkbox eine so lange Sub, sondern löst eine Funktion aus, indem du den SENDER.NAME des Checkbox Events nutzt.

    Gruß

    Siestaeg

    Hallo Siestaeg,

    leider bin ich absoluter Neuling und habe überhaupt keine Erfahrungen mit Funktionen.
    Wenn ich gemein sein darf - wie würde denn so eine Funktion aussehen und was gilt es dabei zu beachten.

    Vielen Vielen Dank erst einmal für Deine bisherige Hilfe, hat mich erheblich weiter gebracht.

    Grüße varo.biker :)

    PS Du hattest übrigens Recht, habe es hin bekommen das die Zahlen in rot erscheinen.

    Hallo Vario.Biker,

    wie ich gesehen habe, hast du deine Steuerelemente schön durchnummeriert. Also könntest du folgendes machen:

    VB.NET-Quellcode

    1. Private Function Formatieren (byval chkBoxName as string)
    2. Dim Nr as String
    3. for x = chkBoxName.lenght -3 to chkBoxName.lenght -1
    4. if isnumeric(chkBoxName(x)) then
    5. Nr= Nr & chkBoxName(x)
    6. end if
    7. next
    8. Dim txtbox1 as textbox = ctype(me.controls("txt_Freq_start_cbx" & Nr),textbox)
    9. Dim txtbox2 as textbox = ctype(me.controls("txt_Freq_ende_cbx" & Nr),textbox)
    10. If cbx_form_freq_bereich_1.Checked = True Then
    11. txtbox1 .Enabled = True
    12. txtbox2 .Enabled = True
    13. Else
    14. txtbox1 .Enabled = False
    15. txtbox2 .Enabled = False
    16. End If
    17. end sub




    Im Handle der Checkbox, übrigens kannst du mehrere Checkboxen hintereinander angeben, BsP:

    Handles
    CheckBox2.CheckedChanged, CheckBox1.CheckedChanged

    VB.NET-Quellcode

    1. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    2. Formatieren (sender.name)
    4. End Sub




    habe den Code nicht probiert, aber du kannst darauf aufsetzen. Also viel Spaß noch und schönes WE.

Facebook
Telefonspende