Private Sub creer() Dim nvxbtn As New DateTimePicker forme = contenue(1) nvxbtn.Name = "NewButton" + (nbrbtn + 1).ToString() 'defini le nom du boutton nvxbtn.Text = "Teste" 'defini le text du boutton nvxbtn.Width = 100 'on definit la taille horizontale du boutton nvxbtn.Height = 20 'on definit la taille verticale du boutton forme.Controls.Add(nvxbtn) ' Ajoute le controle à la collection AddHandler nvxbtn.Click, AddressOf newbtnclique_Clik ' ajoute l'evenement myButtonHandler_Click au controle End Sub
Dim newform as new Form newform.name=contenue(1) newform.Text=contenue(2) newform.visible=true
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question