Discussion :

[crocket51]

Salut,

J'ai fait une forme avec des onglets TabPage et je souhaite executer une action quand la touche enter est appuyée.
J'avais déjà ce code pour une form1 et qui fonctionne bien mais j'ai essayé avec le Tabpage et ça ne fonctionne pas.

code pour la Form1

Code :

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

1
2
3
4
5
6
7
 
Private Sub form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        'Vérification de l'appui de la touche Enter        
        If Keys.Enter Then 'Exécution du code après l'appui sur la touche Enter            
            MsgBox("appui sur la touche Enter")
        End If
    End Sub

J'ai essayé ceci avec la TabPage1 mais ça ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Tabpage2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TabPage2.KeyPress
        'Vérification de l'appui de la touche Enter        
        If Keys.Enter Then 'Exécution du code après l'appui sur la touche Enter            
            MsgBox("appui sur la touche Enter")
        End If
 
    End Sub

[franticfranz]

Bonjour,

Essayez :

Code :

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

1
2
3
4
5
6
7
Private Sub Tabpage2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TabPage2.KeyPress
        'Vérification de l'appui de la touche Enter        
        If (e.KeyChar = Chr(13)) Then 'Exécution du code après l'appui sur la touche Enter            
            MsgBox("appui sur la touche Enter")
        End If
 
    End Sub

[crocket51]

Merci pour ton aide mais je l'ai trouvée sur un autre forum..le voici pour ceux que ça intéresse.

Code :

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

1
2
3
4
5
6
 
Private Sub TabControl1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TabControl1.KeyPress
        If Keys.Enter Then 'Exécution du code après l'appui sur la touche Enter            
            MsgBox("appui sur la touche Enter")
        End If
    End Sub