VB.NET -> Textbox via Schleife auslesen

  • VB

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

    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 ()