Static myvar As Integer = 0comme a dit
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim myVar As Integer = 0
myVar = myVar + 1
If ComboParente.Text = "Enfant" Then
If (myVar = 1) Then
Label1.Text = Me.TextBox1.Text
TextBox1.Clear()
ElseIf (myVar = 2) Then
Label2.Text = Me.TextBox1.Text
TextBox1.Clear()
ElseIf (myVar = 3) Then
Label3.Text = Me.TextBox1.Text
TextBox1.Clear()
End If
End If
Dim monIndex As Integer = 0'variables dimensionnées au niveau de la classe Dim mesTextBoxs As List(Of TextBox)'dans le New tu y mets tes textbox Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click mesTextBoxs(monIndex).Clear()'utilisation de la liste quand même plus simple monIndex = monIndex + 1 If (monIndex >= mesTextBoxs.Count) Then monIndex = 0 End If End Sub
Public Class Form1 Dim monIndex As Integer = 0 Dim mesTextBoxs As List(Of TextBox) = New List(Of TextBox) Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load mesTextBoxs.Add(TextBox1) mesTextBoxs.Add(TextBox2) mesTextBoxs.Add(TextBox3) End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click mesTextBoxs(monIndex).Clear() monIndex = monIndex + 1 If (monIndex >= mesTextBoxs.Count) Then monIndex = 0 End If End Sub End Class