Discussion :

[Gazoute]

Bonjour,

Je voudrais laisser à l'utilisateur le choix entre TAB ou ENTRÉE pour passer d'un masque à l'autre.
Donc j'ai codé comme ceci :

Code :

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

1
2
3
4
5
6
7
Private Sub Text_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys ("{tab}")
KeyAscii = 0
End If
If KeyAscii = 46 Then KeyAscii = 44
End Sub

Mais j'ai en retour le message suivant :
Erreur d'exécution 70
Permission refusée

Où est mon erreur ? J'ai beau chercher, je ne trouve pas.

Merci d'avance.

[ProgElecT]

Salut

Même probléme que toi depuis Windows 7, mais comme je n'ai jamais aimé utiliser les SendKeys .....
Pour ton cas, pourquoi ne pas faire comme cela

Code :

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

1
2
3
4
5
6
7
8
Private Sub Text_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    'SendKeys "{tab}"
    KeyAscii = vbKeyTab ' code ascii tab = 9
    'KeyAscii = 0
End If
If KeyAscii = 46 Then KeyAscii = 44
End Sub

ATTENTION le TextBox doit avoir sa propriété TabStop = False

[Gazoute]

J'ai essayé sans oublié de mettre la propriété TabStop de Text à False mais sans succès sachant que en quittant Text c'est Frame1 qui doit apparaitre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Text_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = vbKeyTab
End If
If KeyAscii = 46 Then KeyAscii = 44
End Sub
 
 
Private Sub Text_LostFocus()
Frame1.Visible = True
End Sub

Ceci étant dit, le fait de mettre la propriété TabStop de Text à False signifie-t-il qu'on ne peut pas se servir de TAB ?

[l_autodidacte]

NON

Ceci étant dit, le fait de mettre la propriété TabStop de Text à False signifie-t-il qu'on ne peut pas se servir de TAB ?

Dans l'aide (MSDN) on trouve :

TabStop
True : (Valeur par défaut) Désigne l'objet comme taquet de tabulation.(L'objet prend ou perd le focus)
False : Ignore l'objet lorsque l'utilisateur utilise la touche TAB. L'objet conserve toutefois la position qu'il occupe dans l'ordre des tabulations, comme déterminé par la propriété TabIndex.

[ProgElecT]

Salut l_autodidacte

@ GazouteAutre précision (mais qui me semblait sous entendu) la propriété Multiligne doit être True

[l_autodidacte]

Salut ProgElecT

Tout à fait