Aufruf einer Textbox mit zähler

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von 2024new.

    Aufruf einer Textbox mit zähler

    Schreibe ein kleines sehr einfaches VB-Programm und komme über einen Punkt nicht hinaus. Aufruf einer Textbox. Die Darstellung/Aufruf der Textbox ist ja „textbox1.text“. Für die Zahl 1 möchte ich eine Variable einsetzen, die ich gezielt ansprechen kann
    i = (1,4,7,23) etc.
    Aufruf: textbox(i).text
    Geht dies überhaupt. Es muss einfach sein da ich nur geringe Kenntnisse von VB habe, sorry
    Erstmal vielen Dank schon mal im voraus.
    ?(

    @2024new Was willst Du mit dieser Indizierung erreichen?
    Bei einem von @Haudruferzappeltnoch vorgeschlagenen Array gingen die Indizes von 0 bis (Länge - 1).
    Wo kommen Deine Werte her?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Erstell im Designer mit einem TableLayoutPanel Deine GUI.
    Pack in jedes Feld des TableLayoutPanels eine TextBox.
    Pack im Code diese TextBoxen in ein Array:
    Pseudocode:

    Quellcode

    1. Dim AllTextBoxes() ={ TextBox1, TextBox2, TextBox3, usw. }

    dann kannst Du sie über ihren Index ansprechen:

    VB.NET-Quellcode

    1. AllTextBoxes(17).Text = "Bla"
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Vielen Dank für die Vorschläge, vielleicht bin ich zu dumm den Vorschlag von RodFrom Germany umzusetzen, bekomme eine Fehlermeldung nach dem letzten Anführungszeichen hinter "Bla". Deshalb wird wahrscheinlich Bla auch nicht in der Textbox1 angezeigt. Leider kann ich kein screenshot ranhängen, hier mein VB-Code:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim zahl1 As Integer = 1
    4. Dim zahl2 As Integer = 1
    6. Dim AllTextBoxes() = {TextBox1, TextBox2}
    8. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    10. AllTextBoxes(zahl1).Text = "Bla[font='comic sans ms,cursive'][b]" hier liegt der Fehler[/b][/font]
    11. AllTextBoxes(zahl2).Text = "UHU"
    13. End Sub
    14. End Class


    Ich mus wohl weitersuchen, erstmal besten Dank !!

    Code-Tags eingefügt. ~Thunderbolt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    2024new schrieb:

    hier liegt der Fehler
    Diese Fehlermeldung ist klasse ;( .
    Die Zeile

    VB.NET-Quellcode

    1. Dim AllTextBoxes() = {TextBox1, TextBox2}
    steht im luftleeren Raum (Pseudocode).
    Probier mal dies:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim zahl1 As Integer = 0
    3. Dim zahl2 As Integer = 1
    4. Dim AllTextBoxes() As TextBox
    6. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. AllTextBoxes = {TextBox1, TextBox2}
    8. End Sub
    10. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    11. AllTextBoxes(zahl1).Text = "Bla" 'hier liegt der Fehler
    12. AllTextBoxes(zahl2).Text = "UHU"
    13. End Sub
    14. End Class
    Und:
    Bevor Du noch irgend etwas programmierst, machst Du Option Strict On
    Visual Studio – Empfohlene Einstellungen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich habe noch eine kleine Frage. Bekomme den Fehler BC30269 bei folgendem Code:

    Public Class Form1
    Dim AllTextBoxes() As TextBox
    Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    AllTextBoxes = {TextBox1, TextBox2}
    End Sub

    Private Sub Form1_Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ListBox1.DrawMode = DrawMode.OwnerDrawFixed
    End Sub
    End Class

    Es liegt vielleicht an der Tatsache, dass ich 2 "Sub Form1_Load" habe.
    Die Fehlermeldung lautet:

    "Private Sub Form1_Load(sender As Object, e As EventArgs)" hat mehrere Definitionen mit identischen Signaturen.

    Was kann ich ändern?

    2024new schrieb:

    Bekomme den Fehler BC30269 bei folgendem Code
    Poste bitte stets die Fehlerbeschreibung und die entsprechende Fehlerzeile, da lässt es sich schneller helfen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!