Aide Microsoft Visual Basic 2008
Fermé
moi2702
-
25 oct. 2011 à 17:13
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 25 oct. 2011 à 18:31
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 25 oct. 2011 à 18:31
A voir également:
- Aide Microsoft Visual Basic 2008
- Microsoft office - Guide
- Oubliez Microsoft Office ! Cet équivalent totalement gratuit est parfait pour l'école, la maison et le bureau - Guide
- Microsoft 365 basic - Accueil - Microsoft Office
- Microsoft visual c++ runtime - Guide
- Visual basic - Télécharger - Langages
1 réponse
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
25 oct. 2011 à 18:31
25 oct. 2011 à 18:31
Bonjour,
Sur une forme un bouton et un label.
Tu pourrais aussi faire avec une variable static.
A+
Sur une forme un bouton et un label.
Public Class Form1
Dim NumMessage As Int32
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Txt() As String = {"Bonjour", "Bonsoir", "A demain"}
Label1.Text = Txt(NumMessage)
NumMessage = NumMessage + 1 : If NumMessage > 2 Then NumMessage = 0
End Sub
End Class
Tu pourrais aussi faire avec une variable static.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static NumMessage As Int32
Dim Txt() As String = {"Bonjour", "Bonsoir", "A demain"}
Label1.Text = Txt(NumMessage)
NumMessage = NumMessage + 1 : If NumMessage > 2 Then NumMessage = 0
End Sub
End Class
A+
