Private textes() As String = {"texte 1", "texte 2", "texte 3" } Private indexTexte As Integer = 0 Private Sub timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) label1.Text = textes(indexTexte) indexTexte += 1 If indexTexte = textes.Length Then indexTexte = 0 End If End Sub
24 oct. 2018 à 13:43
24 oct. 2018 à 13:48
24 oct. 2018 à 19:23