Dim text1 As New TextBox TabControl1.TabPages(1).Controls.Add(text1) text1.Visible = True
Dim text1 As New TextBox, label1 As New Label, bouton1 As New Button TabControl1.TabPages(1).Controls.Add(text1) ' création des control TabControl1.TabPages(1).Controls.Add(label1) TabControl1.TabPages(1).Controls.Add(bouton1) label1.Location = New Drawing.Point(340, 22) ' positionnement label1.Text = "Recherche" text1.Location = New Drawing.Point(400, 20) text1.Width = text1.Width + 150 bouton1.Location = New Drawing.Point(660, 20) bouton1.Height = 20 bouton1.Text = "Lancer !!!"
AddHandler bouton1.Click, AddressOf rech
Modifié le 13 août 2018 à 16:29
merci mais finalement j'ai trouvé.
Je retiens ton astuce je n'y avais pas pensé.
@+