Discussion :

[joefou]

[PocketPC 2003]

Salut !

voilà le problème:

J'ai une Form qui peut afficher parfois une MsgBox.
Pour fermer cette MsgBox j'appuye sur la touche entrée (je dois éviter d'utiliser le stylet, cahier des charges oblige ).
Le soucis c'est que cet évènement est aussi capturé ensuite par la fenêtre ! et du coup les traitements associés à cette touche dans la fenêtre s'effectuent, ce qui me provoque des dysfonctionnements dans mes traitements !
Comment puis-je indiquer que la MsgBox "consomme" l'évènement ?
Ou existe-'t'il une autre astuce pour obtenir le même résultat ?

D'avance merci !

[neguib]

Un peu de code l'ami va certainement nous éclairer sur ce qui se passe

[joefou]

C'est vrai, c'eut été plus clair, désolé !
Alors voilà en gros ce que j'ai dans ma Form qui me pose problème:

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
24
25
26
27
 
Public class Frm
 
Friend WithEvents m_ChampDate As System.Windows.Forms.TextBox
[... ]
 
Private Sub m_ChampDate_KeyUp(ByVal sender As Object, ByVal e As
 System.Windows.Forms.KeyEventArgs) Handles m_ChampDate.KeyUp
        If e.KeyCode = Keys.Return Then
            If ControlerSaisie() Then
               'Traitement d'enregistrement
            End If
        End If
End Sub
 
 
Private Function ControlerSaisie() As Boolean
     'Si la la date est incorrect alors
         MsgBox("Date incorrecte", MsgBoxStyle.OKOnly)
         m_ChampDate.Focus()
         Return false
     'sinon
         Return true
   End If
End Function
 
End Class

Si à l'affichage de la MsgBox j'appuye sur entrée, la MsgBox se ferme bien, mais je redétecte la touche entrée ! et je réaffiche la MsgBox...

[freddyboy]

je pense que tu peux ajouter un peu de code ici :

Code :

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

1
2
3
4
5
6
 
If e.KeyCode = Keys.Return Then
            If ControlerSaisie() Then
               'Traitement d'enregistrement
            End If
        End If

dans le genre avant le Then :
&& if (sender.GetType() != System.Windows.Forms.MessageBox

c'est pas du vb mais je connais rien en vb.
comme ca tu rentre dans ton test dans tout les cas sauf si le sender est un message box.

@+

[neguib]

Que penses-tu de ceci

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
 
...
Private Sub m_ChampDate_KeyUp(ByVal sender As Object, ByVal e As
 KeyEventArgs) Handles m_ChampDate.KeyUp
        If e.KeyCode = Keys.Return Then
            If ControlerSaisie() Then
               'Traitement d'enregistrement
            End If
            m_ChampDate.Focus()
        End If
End Sub
 
Private Function ControlerSaisie() As Boolean
     'Si la la date est incorrect alors
         MsgBox("Date incorrecte", MsgBoxStyle.OKOnly)
         Return false
     'sinon
         Return true
   End If
End Function
...

simple non

[joefou]

Dakodak !
Merci pour vos indications !