Définir une action sur un Bouton créé dynamiquement...
1 réponse
Riton l'débutant...
Bonjour,
Je crée des boutons dynamiquement à l'aide du code suivant :
Private Sub CreerBouton(ByVal StrNom, ByVal PosX, ByVal PosY, ByVal
StrTexte, ByVal Commentaires, ByVal Couleur)
Dim MyToolTip As New ToolTip
MyToolTip.AutoPopDelay = 8000
MyToolTip.InitialDelay = 10
MyToolTip.ReshowDelay = 5
MyToolTip.ShowAlways = True
Dim Mybouton As New Button
Mybouton.Location = New Point(PosX, PosY)
Me.Controls.Add(Mybouton)
Mybouton.Height = HauteurB
Mybouton.Width = LargeurB
Mybouton.Text = StrTexte
Mybouton.Name = StrNom
Mybouton.BackColor = Couleur
MyToolTip.SetToolTip(Mybouton, StrNom)
End Sub
Je ne parviens pas à lancer une fonction lorsque l'utilisateur clique sur
ces boutons.(Chaque bouton doit envoyer un paramètre...)
Est-il possible d'ajouter dynamiquement du Sript VB (comme en ASP) ?
Merci pour votre aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Riton l''débutant...
Milles excuces Je viens de trouver la réponse plus bas : for i as integer = 0 to 399 dim Bouton as new Button AddHandler Bouton.Click, addressOf MyClickHandler() 'Positionne et ajoute le bouton à ton conteneur (Panel) Bouton.Width = ... Bouton.Height = ... Bouton.Left = ... Bouton.Top = ... Me.MyPanel.Controls.Add(Bouton) next
avec ton handler déclaré ainsi : private Sub MyClickHandler(sender as Object, e as System.EventArgs) 'Ici ton code pour l'évènement click end sub
Merci...
"Riton l'débutant..." a écrit :
Bonjour, Je crée des boutons dynamiquement à l'aide du code suivant : Private Sub CreerBouton(ByVal StrNom, ByVal PosX, ByVal PosY, ByVal StrTexte, ByVal Commentaires, ByVal Couleur)
Dim MyToolTip As New ToolTip MyToolTip.AutoPopDelay = 8000 MyToolTip.InitialDelay = 10 MyToolTip.ReshowDelay = 5 MyToolTip.ShowAlways = True
Dim Mybouton As New Button Mybouton.Location = New Point(PosX, PosY) Me.Controls.Add(Mybouton) Mybouton.Height = HauteurB Mybouton.Width = LargeurB Mybouton.Text = StrTexte Mybouton.Name = StrNom Mybouton.BackColor = Couleur MyToolTip.SetToolTip(Mybouton, StrNom)
End Sub Je ne parviens pas à lancer une fonction lorsque l'utilisateur clique sur ces boutons.(Chaque bouton doit envoyer un paramètre...) Est-il possible d'ajouter dynamiquement du Sript VB (comme en ASP) ? Merci pour votre aide.
Milles excuces Je viens de trouver la réponse plus bas :
for i as integer = 0 to 399
dim Bouton as new Button
AddHandler Bouton.Click, addressOf MyClickHandler()
'Positionne et ajoute le bouton à ton conteneur (Panel)
Bouton.Width = ...
Bouton.Height = ...
Bouton.Left = ...
Bouton.Top = ...
Me.MyPanel.Controls.Add(Bouton)
next
avec ton handler déclaré ainsi :
private Sub MyClickHandler(sender as Object, e as System.EventArgs)
'Ici ton code pour l'évènement click
end sub
Merci...
"Riton l'débutant..." a écrit :
Bonjour,
Je crée des boutons dynamiquement à l'aide du code suivant :
Private Sub CreerBouton(ByVal StrNom, ByVal PosX, ByVal PosY, ByVal
StrTexte, ByVal Commentaires, ByVal Couleur)
Dim MyToolTip As New ToolTip
MyToolTip.AutoPopDelay = 8000
MyToolTip.InitialDelay = 10
MyToolTip.ReshowDelay = 5
MyToolTip.ShowAlways = True
Dim Mybouton As New Button
Mybouton.Location = New Point(PosX, PosY)
Me.Controls.Add(Mybouton)
Mybouton.Height = HauteurB
Mybouton.Width = LargeurB
Mybouton.Text = StrTexte
Mybouton.Name = StrNom
Mybouton.BackColor = Couleur
MyToolTip.SetToolTip(Mybouton, StrNom)
End Sub
Je ne parviens pas à lancer une fonction lorsque l'utilisateur clique sur
ces boutons.(Chaque bouton doit envoyer un paramètre...)
Est-il possible d'ajouter dynamiquement du Sript VB (comme en ASP) ?
Merci pour votre aide.
Milles excuces Je viens de trouver la réponse plus bas : for i as integer = 0 to 399 dim Bouton as new Button AddHandler Bouton.Click, addressOf MyClickHandler() 'Positionne et ajoute le bouton à ton conteneur (Panel) Bouton.Width = ... Bouton.Height = ... Bouton.Left = ... Bouton.Top = ... Me.MyPanel.Controls.Add(Bouton) next
avec ton handler déclaré ainsi : private Sub MyClickHandler(sender as Object, e as System.EventArgs) 'Ici ton code pour l'évènement click end sub
Merci...
"Riton l'débutant..." a écrit :
Bonjour, Je crée des boutons dynamiquement à l'aide du code suivant : Private Sub CreerBouton(ByVal StrNom, ByVal PosX, ByVal PosY, ByVal StrTexte, ByVal Commentaires, ByVal Couleur)
Dim MyToolTip As New ToolTip MyToolTip.AutoPopDelay = 8000 MyToolTip.InitialDelay = 10 MyToolTip.ReshowDelay = 5 MyToolTip.ShowAlways = True
Dim Mybouton As New Button Mybouton.Location = New Point(PosX, PosY) Me.Controls.Add(Mybouton) Mybouton.Height = HauteurB Mybouton.Width = LargeurB Mybouton.Text = StrTexte Mybouton.Name = StrNom Mybouton.BackColor = Couleur MyToolTip.SetToolTip(Mybouton, StrNom)
End Sub Je ne parviens pas à lancer une fonction lorsque l'utilisateur clique sur ces boutons.(Chaque bouton doit envoyer un paramètre...) Est-il possible d'ajouter dynamiquement du Sript VB (comme en ASP) ? Merci pour votre aide.
