VB.NET -> Textbox via Schleife auslesen

  • VB

  • Jannik
  • 1708 Aufrufe 6 Antworten

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • VB.NET -> Textbox via Schleife auslesen

    Hey Leute,

    Benögt werden:
    - Textbox1 (Maximal Lenght = 21)
    - Button1 (Siehe Code unten)

    So, hier der Code: (Please try to understand it ^^)

    PHP-Quellcode

    1. Dim regname As String
    3. If TextBox1.TextLength = 0 Then
    4. regname = "Jannik93 "
    5. ElseIf TextBox1.TextLength = 1 Then
    6. regname = TextBox1.Text & " "
    7. ElseIf TextBox1.TextLength = 2 Then
    8. regname = TextBox1.Text & " "
    9. ElseIf TextBox1.TextLength = 3 Then
    10. regname = TextBox1.Text & " "
    11. ElseIf TextBox1.TextLength = 4 Then
    12. regname = TextBox1.Text & " "
    13. ElseIf TextBox1.TextLength = 5 Then
    14. regname = TextBox1.Text & " "
    15. ElseIf TextBox1.TextLength = 6 Then
    16. regname = TextBox1.Text & " "
    17. ElseIf TextBox1.TextLength = 7 Then
    18. regname = TextBox1.Text & " "
    19. ElseIf TextBox1.TextLength = 8 Then
    20. regname = TextBox1.Text & " "
    21. ElseIf TextBox1.TextLength = 9 Then
    22. regname = TextBox1.Text & " "
    23. ElseIf TextBox1.TextLength = 10 Then
    24. regname = TextBox1.Text & " "
    25. ElseIf TextBox1.TextLength = 11 Then
    26. regname = TextBox1.Text & " "
    27. ElseIf TextBox1.TextLength = 12 Then
    28. regname = TextBox1.Text & " "
    29. ElseIf TextBox1.TextLength = 13 Then
    30. regname = TextBox1.Text & " "
    31. ElseIf TextBox1.TextLength = 14 Then
    32. regname = TextBox1.Text & " "
    33. ElseIf TextBox1.TextLength = 15 Then
    34. regname = TextBox1.Text & " "
    35. ElseIf TextBox1.TextLength = 16 Then
    36. regname = TextBox1.Text & " "
    37. ElseIf TextBox1.TextLength = 17 Then
    38. regname = TextBox1.Text & " "
    39. ElseIf TextBox1.TextLength = 18 Then
    40. regname = TextBox1.Text & " "
    41. ElseIf TextBox1.TextLength = 19 Then
    42. regname = TextBox1.Text & " "
    43. ElseIf TextBox1.TextLength = 20 Then
    44. regname = TextBox1.Text & " "
    45. Else
    46. regname = TextBox1.Text
    47. End If
    Alles anzeigen


    Ich würde das gerne ein wenig verkürzen, zum Beispiel durch eine Schleife. Leider weiß ich nicht, wie das genau funktioniert mit den Schleifen in VB.NET.

    Vielleicht kann mir ja jemand helfen... ;)

    Vielen Dank, :)

    Jannik93

  • Ich kann kein VB, aber denke doch mal nach...
    Je höher die Anzahl an Zeichen desto weniger Leerzeichen müssen hinzugefügt werden. Macht's klick? Das ist einfache Subtraktion ;)
    Pseudo-Code könnte so aussehen:

    Quellcode

    1. if empty(textfield) then textfield = 'jannick93';
    2. if textfield.length < 21 then textfield&= string.repeat(' ',math.absolute(textfield.length-21));


    Bin mir auch zu 90% sicher, dass es solche Funktionen in VB gibt. (google ist dein Freund)

    Gruß
    Broken Sword
    Auf dem Abstellgleis sah man ihn liegen,
    Auf dem Abstellgleis zwischen Schwelle und Gestein,
    Auf dem Abstellgleis im strömenden Regen,
    Auf dem Abstellgleis allein.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von Broken Sword ()

  • Oh man, kuck mal hier! Bis auf empty hab ich in 2 MInuten die Funktionen gefunden:
    StrDup Function
    Math.Abs Method (System)

    Aber empty kannst ja anderweitig abfragen.

    Gruß
    Broken Sword

    edit: Wenn das dir immernoch zu schwer ist, kannst du den StrDup-Teil ja mit einer for-schleife simmulieren.
    Auf dem Abstellgleis sah man ihn liegen,
    Auf dem Abstellgleis zwischen Schwelle und Gestein,
    Auf dem Abstellgleis im strömenden Regen,
    Auf dem Abstellgleis allein.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von Broken Sword ()

  • So, ich habe jetzt mir mal das angeschaut ;)

    PHP-Quellcode

    1. If TextBox1.TextLength = 0 Then
    2. TextBox1.Text = "Jannik93"
    3. Else
    4. TextBox1.Text = TextBox1.Text & StrDup(Math.abs(???), ???)
    5. End If


    Passt aber irgendwie noch nicht ganz... Und mir fehlt noch was bei "???"... :(

    Naja BrokenSword wirds wissen. Oder halt jemand anders. ;)

    Jannik93

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von Jannik ()