Wo liegt der Fehler? (Anfänger)

  • VB

  • Jannik
  • 980 Aufrufe 2 Antworten

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

  • Wo liegt der Fehler? (Anfänger)

    Hallo Leute!


    Geschrieben mit VB2008
    ==================
    Public Class Form1
    Dim count As Integer
    Dim serial(4) As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Form2.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

    If count = 4 Then count = 0
    count = count + 1
    TextBox1.Text = serial(count)
    serial(1) = "876587523"
    serial(2) = "65787"
    serial(3) = "453567"
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
    End Class


    Wenn ich dann das Programm starte und auf "Serial generieren" klicke, passiert erstmal gar nichts. Erst wenn ich zweimal draufgeklickt habe, erscheint der Serial "65787". Wo liegt der Fehler?

    Jannik93 :)

  • hmm vielleicht solltest du das Array zuerst mit den Werten vorbelegen, bevor du es anzeigst ?

    also statt:

    Quellcode

    1. TextBox1.Text = serial(count)
    2. serial(1) = "876587523"
    3. serial(2) = "65787"
    4. serial(3) = "453567"


    eben:

    Quellcode

    1. serial(1) = "876587523"
    2. serial(2) = "65787"
    3. serial(3) = "453567"
    4. TextBox1.Text = serial(count)


    Teschnofan