Wo liegt der Fehler? (Anfänger) VB

[Jannik]

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

 

[Teschnofan]

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

also statt:

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

eben:

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

Teschnofan

 

[Jannik]

DANKE VIELMALS! Threat kann geschlossen werden...