Passer d'1 textbox1 a un textbox2 avec la touche entree
napab2
Messages postés
3
Date d'inscription
samedi 10 mai 2003
Statut
Membre
Dernière intervention
15 mai 2003
-
12 mai 2003 à 09:11
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 12 mai 2003 à 10:07
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 12 mai 2003 à 10:07
A voir également:
- Passer d'1 textbox1 a un textbox2 avec la touche entree
- Tableau excel gestion stock entrée sortie - Forum Visual Basic 6
- Le format de la chaîne d'entrée est incorrect - Forum C# / .NET
- Python détecter touche clavier - Forum Python
- Utiliser la touche "barre d'espacement" ✓ - Forum Python
- Évènements clavier ✓ - Forum Python
3 réponses
napab2
Messages postés
3
Date d'inscription
samedi 10 mai 2003
Statut
Membre
Dernière intervention
15 mai 2003
12 mai 2003 à 09:12
12 mai 2003 à 09:12
-------------------------------
Réponse au message :
-------------------------------
> Bonjour,
>
> Je tente de faire une base de données et je voudrais passer du textbox1 apres l'avoir renseigné au textbox2 en appuyant sur la touche entree.
> Merci d'avance
>
Réponse au message :
-------------------------------
> Bonjour,
>
> Je tente de faire une base de données et je voudrais passer du textbox1 apres l'avoir renseigné au textbox2 en appuyant sur la touche entree.
> Merci d'avance
>
danounouche
Messages postés
33
Date d'inscription
jeudi 5 décembre 2002
Statut
Membre
Dernière intervention
2 novembre 2003
12 mai 2003 à 09:25
12 mai 2003 à 09:25
Je ne suis pas sur d'avoir bien compris ta question mais si tu cherche comment faire passer le contenu du textbox1 a textbox2 alors voila la solution:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text2.Text = Text1.Text
Text1.Text = ""
End If
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text2.Text = Text1.Text
Text1.Text = ""
End If
End Sub
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
12 mai 2003 à 10:07
12 mai 2003 à 10:07
Bonjour
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Text2.SetFocus
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Text2.SetFocus
End Sub
