Bonjour à tous et toutes !

J'ai un petit soucis dans un panel d'encodage de données.
^J'ai divers contrôles dont certains textbox qui sont remplis par un choix dans une listbox. Jusque là, c'est simple sauf que ma listbox se trouve sur une petite fenêtre qui s'ouvre quand le textbox reçoit le focus.
J'ai donc :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Private Sub txtType_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtType.GotFocus
        Dim frmTyp As New frmTypes
 
        frmTyp.ShowDialog()
 
    End Sub
Dans cette feuille, je remplis la textbox :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Private Sub lstExamen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstExamen.SelectedIndexChanged
 
        frmEncodage.txtType.Text = lstExamen.SelectedItem.ToString
        Me.Close()
 
 
    End Sub
La textbox est bien remplie mais je ne sors plus de ma fenêtre frmType. En effet, le GotFocus se "refait" et réaffiche ma fenêtre.

J'ai cherché tout ce qui concerne gotfocus sur le forum mais rien vu. Cela doit être tellement simple et évident que je n'y arrive pas

Merci