Discussion :

[OhMonBato]

Bonjour à tous,

je programme habituellement en VB6 et j'essaye de me mettre à Visual Basic 2008 express. Je sens que ce n'est pas gagné d'avance...
Habitué aux groupes de controles sous VB6, je suis un peu désarçonné par la manière à adopter sous Net. Pour exemple je veux tout simplement avoir une seule procédure de code pour gérer le click sur 3 boutons différents, à priori archi simple sauf que je n'y arrive pas.
Je viens de passer un bon bout de temps à rechercher à gauche à droite et je coince toujours (j'ai entre autre été voir là mais soit je suis une buse totale, pas impossible, soit y'a une erreur dans l'exemple : http://plasserre.developpez.com/v3-9.htm )

Voici ce que j'ai comme code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
Select Case sender
Case Button1
Debug.Print("bouton 1")
Case Button2
Debug.Print("bouton 2")
Case Button3
Debug.Print("bouton 3")
End Select
End Sub

et j'ai 3 messages d'erreur disant :
Erreur 1 L'opérateur '=' n'est pas défini pour les types 'Object' et 'System.Windows.Forms.Button'.

Je ne veux pas (ou voudrais éviter en tout cas) de devoir placer mes Boutons dans un Panel et utiliser la collection Controls de ce panel. Je sens que je fais fausse route sur la signification de 'sender'

[Silvers]

Bonjour en dotnet c'est facile il suffi de faire cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
        Dim ButtonClick As Control = sender
        Select Case ButtonClick .Name
            Case "Button1"
                'si on click sur le bouton 1 :
            Case "Button2"
                'si on click sur le bouton 2 :
            Case "Button3"
                'si on click sur le bouton 3 :
        End Select
    End Sub

Voili voilou et sa marche !!!

'sender' c'est l'object qui a déclanché l'évenement click !
Si tu click sur le bouton1: sender = bouton1

[GriffinK]

Tu peux faire ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
        If sender.ToString().IndexOf("Button1") > 0 Then
            Debug.Print("bouton 1")
        ElseIf sender.ToString().IndexOf("Button2") > 0 Then
            Debug.Print("bouton 2")
        ElseIf sender.ToString().IndexOf("Button3") > 0 Then
            Debug.Print("bouton 3")
        End If
    End Sub

Rah, non seulement j'oublie de me préparer pour prendre mon bus qui ne repasse que dans une heure en cherchant une soluce, mais en plus je me fait griller :p

[Kropernic]

Comme montré dans le cours de Philippe Lasserre, il y a plus simple.

C'est la méthode que tu as voulu utiliser mais tu as fait une erreur en recopiant.

je ne reprends que le select car c'est là que se trouve l'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Select Case True
     Case sender is Button1
           'le traitement du bouton 1
     Case sender is Button2
           'le traitement du bouton 2
     Case sender is Button3
           'le traitement du bouton 3
End Select

J'ai mis en rouge les parties que tu dois corriger dans ton code.

J'espère que ça t'aidera.

Griftou.

[Silvers]

Tu peux faire ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
        If sender.ToString().IndexOf("Button1") > 0 Then
            Debug.Print("bouton 1")
        ElseIf sender.ToString().IndexOf("Button2") > 0 Then
            Debug.Print("bouton 2")
        ElseIf sender.ToString().IndexOf("Button3") > 0 Then
            Debug.Print("bouton 3")
        End If
    End Sub

Rah, non seulement j'oublie de me préparer pour prendre mon bus qui ne repasse que dans une heure en cherchant une soluce, mais en plus je me fait griller :p

Pour moi ton code ne fonctionne pas, tu es sur que tu n'as pas fait d'erreurs ?

[robri]

Bonjour,

je pencherai pourun erreur dans l'exemple, car chez moi ça ne fonctionne pas non plus.

Essaye plutot de travailler en castant le sender en button.
et en travaillant ensuite avec le nom du bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
        Dim lButton As Button = CType(sender, Button)
        Select Case lButton.Name
            Case "Button1"
                Debug.Print("bouton 1")
            Case "Button2"
                Debug.Print("bouton 2")
            Case "Button3"
                Debug.Print("bouton 3")
        End Select
End Sub

ou directement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
        Dim lButton As Button = CType(sender, Button)
        Debug.Print(lButton.Name)
 
End Sub

EDIT: je me suis fait grillé aussi...

[GriffinK]

Pour moi ton code ne fonctionne pas, tu es sur que tu n'as pas fait d'erreurs ?

Oui je l'ai testé chez moi avant de le donner...je vois pas l'intérêt de balancer des trucs qui ne fonctionnent pas.

De toute façon il y a plus simple comme l'a indiqué griftou

[Silvers]

Oui je l'ai testé chez moi avant de le donner...je vois pas l'intérêt de balancer des trucs qui ne fonctionnent pas.

De toute façon il y a plus simple comme l'a indiqué griftou

Ce n'etait qu'une simple question, on est pas la pour ce prendre la tete, juste pour aider ce qui en on besoin.

[OhMonBato]

Merci à tous pour la rapidité et la pertinence de vos réponses.
J'utilise la solution proposée par Griftou mais si j'avais oublié cette méthode du "Select Case True" à laquelle je ne suis pas habitué, je ne pense pas avoir fait d'erreur en recopiant l'extrait de code proposé dans le lien que je donne plus haut, puisque il y est dit :

Select Case sender
Case CouleurRouge
..

ou

Select Case True
Case sender Is CouleurRouge
...
End Select

Avec 'CouleurRouge' étant le nom d'un des contrôles de l'exemple. Donc merci encore mais par simple curiosité j'aimerais quand même être sur qu'il n'y a pas une petite erreur dans la page à laquelle je fais référence.

[Kropernic]

Compare le code que tu as donné dans ton premier message avec ce que j'ai donné et que j'ai repris de la page à laquelle tu fais référence. Tu verras que ce n'est pas le même.

Il n'y a donc pas d'erreur dans le cours de Philippe Lasserre.

Pour info, avant que je me penche sur ta question, je ne savais pas que c'était possible. J'aurai donc également appris quelque chose.

Griftou.


EDIT : Sorry, j'ai zappé la partie avant le "OU" dans l'exemple donné par le cours. Je crois effectivement qu'il y a une erreur pour cette partie.

[OhMonBato]

EDIT : Sorry, j'ai zappé la partie avant le "OU" dans l'exemple donné par le cours. Je crois effectivement qu'il y a une erreur pour cette partie.

Voilà, c'est bien de cette partie dont je parlais, donc on serait d'accord

[Kropernic]

N'oublie pas le tag résolu si ça fonctionne

Griftou.

[GriffinK]

Ce n'etait qu'une simple question, on est pas la pour ce prendre la tete, juste pour aider ce qui en on besoin.

Tout à fait

Si mon message t'a semblé agressif, ce n'était pas voulu