Mise de sender (picture box) [Résolu]
Zag182
- Messages postés
- 24
- Date d'inscription
- mercredi 17 octobre 2007
- Dernière intervention
- 2 mars 2011
- Messages postés
- 24
- Date d'inscription
- mercredi 17 octobre 2007
- Dernière intervention
- 2 mars 2011
A voir également:
- Sender vb.net
- Vb.net sender - Meilleures réponses
- Vb sender - Meilleures réponses
- [visual basic] [graphisme] comment enregistrer une picture box :) (paint) - Conseils pratiques - Visual Basic / VB.NET
- Picture box avec scrolls bars (tres simple et 100% fonctionnel) - Codes sources - Visual Basic / VB.NET (Graphique)
- Visual Basic / VB.NET : Faire des dégrader de couleur dans un picture box - CodeS SourceS - Guide
- Visual Basic / VB.NET : Stretch d'une picture box et inversement haut bas gauche droite!! - CodeS So - Guide
- Défilement de texte de bas en haut dans picture box - Codes sources - Visual Basic / VB.NET (Texte)
5 réponses
Meilleure réponse
- Messages postés
- 2859
- Date d'inscription
- mardi 15 avril 2003
- Dernière intervention
- 26 novembre 2013
Si ta form ne contient que des picturebox créé dynamiquement tu peux faire
'Supprime le dernier élément créé du formulaire
Me.Controls.RemoveAt(Me.Controls.Count - 1)
Sinon pour supprimer un cotrôle à partir d'une procédure évenementielle de celui-ci :
'Dans le cas ou "sender" est le PictureBox
Dim index As Integer = Me.Controls.IndexOf(sender)
Me.Controls.RemoveAt(index)
Pour retrouver un comtrôle d'après son nom de nimporte ou dans la feuille:
Dim pBox As PictureBox = Me.Controls("pic" & i)
'les contrôles ayant été déclaré‚ avec le nom "pic" comme suit:
Dim _pBox As New PictureBox
_pBox.Name = "pic" & Me.Controls.Count
Me.Controls.Add (_pBox)
Voila @+
'Supprime le dernier élément créé du formulaire
Me.Controls.RemoveAt(Me.Controls.Count - 1)
Sinon pour supprimer un cotrôle à partir d'une procédure évenementielle de celui-ci :
'Dans le cas ou "sender" est le PictureBox
Dim index As Integer = Me.Controls.IndexOf(sender)
Me.Controls.RemoveAt(index)
Pour retrouver un comtrôle d'après son nom de nimporte ou dans la feuille:
Dim pBox As PictureBox = Me.Controls("pic" & i)
'les contrôles ayant été déclaré‚ avec le nom "pic" comme suit:
Dim _pBox As New PictureBox
_pBox.Name = "pic" & Me.Controls.Count
Me.Controls.Add (_pBox)
Voila @+
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
119 internautes nous ont dit merci ce mois-ci
- Messages postés
- 2859
- Date d'inscription
- mardi 15 avril 2003
- Dernière intervention
- 26 novembre 2013
Si tu tien à faire disparaitre un PictureBox créé dynamiquement alors utilise Dispose
Sub PictureBox_Click (sender As Object, e As Sytem.EventArgs)
Dim p As PictureBox = sender
Controls.Remove (p)
p.Dispose
End Sub
Mais je sais pas si j'ai bien compris le but de ton code, un petit post serait le bienvenue
Sub PictureBox_Click (sender As Object, e As Sytem.EventArgs)
Dim p As PictureBox = sender
Controls.Remove (p)
p.Dispose
End Sub
Mais je sais pas si j'ai bien compris le but de ton code, un petit post serait le bienvenue
- Messages postés
- 24
- Date d'inscription
- mercredi 17 octobre 2007
- Dernière intervention
- 2 mars 2011
Au faite ce que je voudrais c'est pouvoir supprimer le dernier PictureBox créée, j'ai essayé:
Controls.remove("pic" & i) i étant le numéro du dernier PictureBox créée!!!
Controls.remove(Ctype("pic" & i, PictureBox))
Controls.remove(Ctype("pic" & i, PictureBox).name)
Controls.remove(sender+i-sender)
Enfin plein de chose mais ça ne marche pas.
Controls.remove("pic" & i) i étant le numéro du dernier PictureBox créée!!!
Controls.remove(Ctype("pic" & i, PictureBox))
Controls.remove(Ctype("pic" & i, PictureBox).name)
Controls.remove(sender+i-sender)
Enfin plein de chose mais ça ne marche pas.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.