Discussion :

[alidak]

salut

j'ai crée une fonction liée à un textbox, qui s'exécute avec l'événement LOSTFOCUS

cette fenetre affiche un msgbox.

le prob c'est que ce msg s'affiche même lorsque je ferme la forme , ce qui me dérange.

pouvez vous m'aider à résoudre ce problème??

Merci d'avance

[Graffito]

On peut désactiver l'event Lostfocus du TextBox (ou la fonction qui affiche le msgbox) sur l'event OnClosing de la form.

Cela suppose que LostFocus se passe après OnClosing ce qui n'est pas sur.

[alidak]

salut

je pense que l'idée est présente dans ce que tu dis, mais comment la réaliser??

Merci

[Sehnsucht]

Bonjour,

Personnellement, j'aurais plutôt tendance à dire que le LostFocus s'effectue Avant le FormClosing, et ce pour une raison simple ; le FormClosing est un évènement du Form donc celui-ci doit préalablement avoir le Focus et par conséquent déclenchera le LostFocus du contrôle précédemment "focusé".
Après j'ai pas vérifié donc à tester

Cordialement !

[Graffito]

Pour tester :

• Créer l"'event OnClosing de la form,
• mettre 2 points d'arrets en debug : un point d'arret sur l'event LostFocus() un sur FormClosing(),
• voir ainsi quel event est activé le premier quand on ferme la form.

[chrismonoye]

Bonjour,
il semble qu'on aie :
LostFocus() puis FormClosing() puis LostFocus()
Une solution de contournement pourrait être :

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
21
22
23
    Dim traiteLaFonction As Boolean = True
 
    Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        perdfocus()
        'MessageBox.Show("TextBox1.LostFocus")
 
    End Sub
 
    Function perdfocus() As String
        Dim voir As String = TextBox1.Text
        If traiteLaFonction = True Then
            MessageBox.Show(TextBox1.Text)
            Return voir
        Else
            Return Nothing
        End If
 
    End Function
 
    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        traiteLaFonction = False
        'MessageBox.Show("Me.FormClosed")
    End Sub