Supprimer un Button d'une Winform

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour

Je travaille en VB sur Visual Studio et je cherche à supprimer des boutons
Les boutons à supprimer sont créés de cette manière :
Code:

1 2 3 4 5 6 While i < lignes Me.Button = New System.Windows.Forms.Button Me.PanelParamLaminage.Controls.Add(Me.Button) Me.Button.Name = "Button" & i i += 1 End While
j'ai essayé des choses du genre :
Code:

1 2 3 Me.PanelParamLaminage.Controls.Remove(Me.Button("Button"&i) Me.PanelParamLaminage.Controls.Remove(Me.Button) Me.PanelParamLaminage.Controls.Remove(Me.("Button" & i))
mais ça ne fonctionne pas

Quelqu'un saurait il m'aider?

edit : je viens de penser à utiliser

Code:

Me.PanelParamLaminage.Controls.RemoveAt(i)

en attribuant des index dans mon While

Code:

Me.Button.TabIndex = i

mais je n'y arrive pas non plus

20/02/2012, 09h37
Livesecours

bonjour,

il faudrait que tu regardes le numéro de ton bouton dans ton panel, enfin son index

après tu blablabla.control(lenuméro).remove
20/02/2012, 09h44
Abyssin

Ah, j'ai édité mon message en même temps que tu as posté le tiens je crois ^^'
j'ai essayé avec la synthaxe

Code:

Me.PanelParamLaminage.Controls(i).remove

mais il me dit que remove n'est pas un membre de System.Windows.Forms.Control
20/02/2012, 09h49
Livesecours

et sinon, un code du genre

Code:

Panel1.Controls.RemoveAt(i)
20/02/2012, 09h58
Abyssin

Oui j'avais essayé

Code:

Me.PanelParamLaminage.Controls.RemoveAt(i)

avant de voir ton message mais ça ne marche pas
Je viens d'essayer en simplifiant mon machin, en créant juste 1 bouton et en tentant de le supprimer avec le RemoveAt mais il ne se passe rien du tout...

edit : en fait mon Remove est dans un Try car mais en mettant un point d’arrêt je viens de voir que la ligne n'est pas exécutée
comme s'il ne trouvait pas d'élément au numéro d'index que je précise
ça se fait bien comme ça pourtant :

Code:

Me.Button.TabIndex = 44
20/02/2012, 10h01
Livesecours

tu es sûr de l'index du panel (ce n'est pas celui que toi tu as attribué) ?
20/02/2012, 10h04
BenoitM

Regarde la propriété Name avant de le supprimer Me.PanelParamLaminage.Controls.Name

Peut etre qu'il faut faire un Refresh() meme si j'ai un doute

TabIndex n'a aucune rapport avec la position du bouton dans ta form

Il faut faire une boucle pour retrouver le bouton
20/02/2012, 10h08
BenoitM

Le plus simple est de faire

Code:

Me.Controls.Remove(Me.Controls("Button1"))

si ils sont sur le panel

Code:

Me.PanelParamLaminage.Controls.Remove(Me.PanelParamLaminage.Controls("Button1"))

et perso je ne supprimerait pas les boutons mais je les cacherai
20/02/2012, 10h22
Abyssin

Code:

Me.Button.Visible = False

fonctionne, je vais faire comme ça
par contre je n'arrive pas encore à le faire pour le cas où j'ai plusieurs boutons, mais je suis dessus

Pour la ligne

Code:

Me.PanelParamLaminage.Controls.Remove(Me.PanelParamLaminage.Cp,trpms("Button1"))

ça me souligne presque tout en bleu, VS ne connait pas CP ni trpms donc je vais juste faire avec le Visible
Je reviens quand ca marche (ou l'inverse)

Merci pour vos conseils à tous les 2
20/02/2012, 10h33
Abyssin

En fait je n'arrive pas à lui dire de cacher un bouton précis.
Quand le nom est définit au départ comme pour mes panels par exemple, c'est bon, mais quand les boutons sont créés au moment du chargement de l'application, j'ai plus de mal
il faudrait que je mette ça dans un while en spécifiant le nom du bouton tel que "Button" & i mais des trucs du genre

Code:

Me.Button("Button" & i).Visible = False

ne fonctionnent pas, je dois oublier quelquechose
20/02/2012, 10h33
BenoitM

Oula 8O
petit problème avec le copier coller
c'est corrigé

Me.Button c'est un Control que tu as ajouté manuellement...

Oui il est ajouté manuellement
et il faudrait que je supprime ou cache tout ce que je rajoute pour que ca se recharge au moment ou je click sur une DGV qui se trouve juste à coté
donc j'y met dans un try pour ca fonctionne

Code:

1
2
3
4
5
6
7
8
9
10
11
        Dim i As Integer = 0
        Dim RemoveOk As Boolean
        While RemoveOk
            Try
                'ligne pour cacher le bouton de Name "Button" & i
 
                            Catch ex As Exception
                RemoveOk = False
            End Try
            i += 1
        End While

Je fais fausse route?

20/02/2012, 10h46
BenoitM

C'est pas très beau le catch

De plus le mieux est de créer un panel ou tu ajoutes tout tes boutons dynamiques et ensutie tu supprimes ce panel

Encore mieux utilisé des UserControl afficher/ajouter ceux-ci en fonction des besoins
20/02/2012, 10h52
Abyssin

en fait le nombre de boutons sera fonction du résultat d'une requête qui elle sera déterminée en fonction de la cellule sélectionnée sur la DGV présente à coté du panel aux boutons

Donc supprimer le panel... j'y avais pas pensé !

Pour le UserControl je n'ai pas bien compris

De fait, y a des tas de manières plus propres pour faire cela. Mais pour répondre à la question posée, voici :

Ajout de 10 boutons dans le panel

Code:

1
2
3
4
5
6
7
8
9
10
    Dim button As System.Windows.Forms.Button
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer = 0
        While i < 10
            Me.button = New System.Windows.Forms.Button
            Me.PanelParamLaminage.Controls.Add(Me.button)
            Me.button.Name = "Button" & i
            i += 1
        End While
    End Sub

Suppression des 10 boutons dans le panel

Code:

1
2
3
4
5
6
7
8
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim i As Integer = 0
        While i < 10
            Me.PanelParamLaminage.Controls.Remove(Me.PanelParamLaminage.Controls("Button" & i))
            i += 1
        End While
    End Sub

N.B. : Lors de l'ajout des boutons, il faudrait penser à définir leur position respective car ils sont tous l'un au dessus de l'autre avec le code tel qu'il est ici.

Griftou.

20/02/2012, 10h58
BenoitM

Un UserControl c'est un control que tu définis toi même (souvent un panel par exemple ou tu definis les controls que tu veux), Ensuite tu ajoutes simplement ce UserControl à ton écran

Bon ca ne s'applique peut etre pas dans ce cas-ci
20/02/2012, 11h57
chrismonoye

Bonjour,
tu peux aussi t'inspirer de cette discussion.
Ta requête te donnant le nombre de boutons à afficher, il suffit de nettoyer ou vider le Panel avant d'ajouter les contrôles voulus :

Code:

Me.PanelParamLaminage.Controls.Clear()
20/02/2012, 11h57
Abyssin

La suppression du panel marche très bien
Pour les positions et les tailles des boutons, pas problème
par contre, est-ce possible de créer des procédures pour chaque bouton?

edit : J'ai vu le message à chrismonoye après avoir posté, et ça marche très bien, merci
20/02/2012, 14h21
Abyssin

ma question n'est peut être pas assez précise
je veux dire, créer une procédure pour les boutons créés dynamiquement
du coup je ne sais pas combien de boutons j'aurai pour chaque "page" (entre 1 et 16 à priori), donc je ne peux pas coder ça en dur
la procédure sera la même pour tous les boutons
j'ai fait quelques tentatives mais pas de grande réussite
20/02/2012, 14h24
BenoitM

Citation:

Envoyé par Abyssin

ma question n'est peut être pas assez précise
je veux dire, créer une procédure pour les boutons créés dynamiquement
du coup je ne sais pas combien de boutons j'aurai pour chaque "page" (entre 1 et 16 à priori), donc je ne peux pas coder ça en dur
la procédure sera la même pour tous les boutons
j'ai fait quelques tentatives mais pas de grande réussite

Qu'est ce que tu entends par crée une procédure?

Ce que tu peux faire c'est attacher une fonction a un bouton sur le Click par hasard
Si c'est crée du code dynamique ca c'est plus complexe

Voir 40 message(s) de cette discussion en une page