Discussion :

[noftal]

Bonjour,

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

Code :

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

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û ?

[maradona_9]

bonjour,
modifier Private par Protected

MOHAMMED

[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.

[maradona_9]

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

Code :

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

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

[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

[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

[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 ?

[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")

[noftal]

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

Code :

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

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 !