1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
'je veux fait la modification ici
b.Location = New System.Drawing.Point(90, Label5.Location.Y + 49)
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
For i = 0 To table1.Rows.Count - 1
Label6.Text += table1.Rows(i).Item(0) & " : Veut S'inscrir" + vbCrLf + vbCrLf
Dim b As New Button
AddHandler b.Click, AddressOf Me.Clic1
b.Name = "b" & (i)
b.Location = New System.Drawing.Point(513, 150 + k)
b.Size = New System.Drawing.Size(30, 30)
b.BackgroundImage = Mini_Projet.My.Resources.Resources.add_male_user_256
b.BackgroundImageLayout = ImageLayout.Stretch
Me.Controls.Add(b)
k += 36
Next
End Sub
End Sub |