fermeture d'un form sur click

Version imprimable

25/12/2013, 16h31
noftal

fermeture d'un form sur click
Bonjour,

Voilà une heure que je cherche à fermer une fenetre aboutbox sur simple click
Code:

1 2 3 Private Sub AboutBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click Me.Close() End Sub
Rien n'y fait, même en pas à pas, avec point d'arrêt sur la procédure, le code n'y rentre pas.

A quoi cela peut-il être dû ?
25/12/2013, 17h53
maradona_9

bonjour,
modifier Private par Protected

MOHAMMED
25/12/2013, 18h09
noftal

C'est vrai que je ne maîtrise pas encore très bien les subtilités de Protected, Friend etc... mais là, ta suggestion ne marche pas.

je me demande si le nom du button est : Mybase ???

Code:

1
2
3
Private Sub AboutBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click
        Me.Close()
    End Sub

25/12/2013, 18h24
noftal

Non, il n'y a pas de bouton. AboutBox est une fenêtre modale de type Windows Form qui affiche le "à propos" de l'appli.
Je voulais juste provoquer la fermeture de cette fenêtre sur clic en n'importe quel endroit de la fenêtre.
La Sub est dans la class AboutBox bien sûr
25/12/2013, 18h28
noftal

Visiblement, il doit y avoir un truc ou une propriété spécifique à mon appli (ou à mon form) qui fait que ça ne marche pas parce que, dans un projet Windows Forms de base, créé pour l'occasion, ça marche très bien.
Mais je ne vois pas quoi
25/12/2013, 18h53
noftal

Bon j'ai trouvé d'où ça vient.
Si mon form contient un panel dont le docking est fill, un clic sur le form lève l'event Panel1.click et non Form.Click
Du coup c'est assez embêtant car ce même panel comporte des contrôles et il en va de même avec ces contrôles.
Donc, si je veux tester un clic quelque part dans le formulaire, je dois créer un event moncontrol.click pour chacun des contrôles contenus et situé au premier plan.
N'y at-il pas une solution plus clean ?
26/12/2013, 09h14
Kropernic

Durant le load de ton AboutBox, tu peux exécuter une petite boucle récursive qui ferait un AddHandler sur l'event Click de chaque contrôle vers ta procédure de fermeture.

Ca revient au même que de le faire manuellement mais au moins, t'es sûr de ne rien oublié. (et c'est sourtout moins "fatigant")

J'ai suivi ton conseil, même si j'espérais que VB.NET nous offrait la possibilité de faire plus simple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub AddClickEvent(ByVal parentctl As Control)
        If parentctl.HasChildren Then
            For Each ctl As Control In parentctl.Controls
                AddClickEvent(ctl)
            Next
        End If
        AddHandler parentctl.Click, AddressOf AboutBox_Click
 
End Sub
 
Private Sub AboutBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        ' ajout événement Click pour chaque contrôle contenu dans le formulaire
        AddClickEvent(Me)
End Sub
 
Private Sub AboutBox_Click(ByVal sender As System.Object, ByVal e As EventArgs)
        ' Ferme le form lorsqu'on clique dessus.
        Me.Close()
    End Sub

Merci de ton aide !