Discussion :

[stargates]

comment récupérer la touche tabulation pour un richtextbox

j'ai essayé ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Private Sub rtbFiches.KeyPress(...................................................)
 
Dim key as Keys
 
'Donne le focus
rtbfiches.Select()
 
key=Key.Tab
e.KeyChar=chr(key)
 
End Sub

il doit y avoir une erreur


Merci

[neguib]

Bonjour
Tout d'abord pourquoi veux-tu recuperer l'action utilisateur sur la touche Tab :
Si ton RichTextBox s'appelle rtbFiches :
As-tu initialisé la propriété de rtbFiches.AcceptsTab :

Code :

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

Me.rtbFiches.AcceptsTab = True

Sinon le code correct devrait être celui ci

Code :

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

1
2
3
4
5
6
 
Private Sub rtbFiches.KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles rtbFiches.KeyPress
  If AscW(e.KeyChar) = Keys.Tab Then
    ' traitement
  End If
End Sub