Me.controls.add(panel) et evenements
Résolu
scortex84
Messages postés
379
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
20 avril 2011
-
26 juil. 2005 à 11:29
scortex84 Messages postés 379 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 20 avril 2011 - 26 juil. 2005 à 11:49
scortex84 Messages postés 379 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 20 avril 2011 - 26 juil. 2005 à 11:49
1 réponse
scortex84
Messages postés
379
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
20 avril 2011
1
26 juil. 2005 à 11:49
26 juil. 2005 à 11:49
Bon ok, j'ai posté avant de chercher sur mon ami google...
Donc je me répond : (ça peut servir à d'autre) :
Il suffit de déclarer le composant utilisateur avec "With Events", puis de coder les procédures des evenements. Et ça roule...
Petit exemple,pour les besoins de mon programme, cela se trouve dans un module en public :
Public
WithEvents panelS2
As System.Windows.Forms.Panel
panelS2 =
New Panel
panelS2.Location =
New Point(panelX, panelY)
panelS2.Size =
New Size(panelW, PanelH)
panelS2.BorderStyle = BorderStyle.None
Form.Controls.Add(panelS2)
Voilà, et pour gerer l'evenement "paint" :
Private
Sub PanelS2_Paint(
ByVal sender
As System.Object,
ByVal e
As System.Windows.Forms.PaintEventArgs)
Handles panelS2.Paint
DrawGradient(panelS2, Color.FromArgb(117, 162, 255), Color.FromArgb(208, 223, 255), Drawing2D.LinearGradientMode.Horizontal)
End
Sub
Pas plus compliqué !!
Seb.
Donc je me répond : (ça peut servir à d'autre) :
Il suffit de déclarer le composant utilisateur avec "With Events", puis de coder les procédures des evenements. Et ça roule...
Petit exemple,pour les besoins de mon programme, cela se trouve dans un module en public :
Public
WithEvents panelS2
As System.Windows.Forms.Panel
panelS2 =
New Panel
panelS2.Location =
New Point(panelX, panelY)
panelS2.Size =
New Size(panelW, PanelH)
panelS2.BorderStyle = BorderStyle.None
Form.Controls.Add(panelS2)
Voilà, et pour gerer l'evenement "paint" :
Private
Sub PanelS2_Paint(
ByVal sender
As System.Object,
ByVal e
As System.Windows.Forms.PaintEventArgs)
Handles panelS2.Paint
DrawGradient(panelS2, Color.FromArgb(117, 162, 255), Color.FromArgb(208, 223, 255), Drawing2D.LinearGradientMode.Horizontal)
End
Sub
Pas plus compliqué !!
Seb.
