Saisie et contrôle du texte d'une TextBox
Bonjour à tous,
j'essaie de simuler une navigation dans des fenêtres d'un logiciel, mais j'ai besoin de saisir du texte (comme on ferait avec un mot de passe) le contrôler mais juste en validant par la touche [Entrée] du clavier.
J'utilise pour cela une TextBox sur la slide concernée, mais elle ne se remet pas à zéro en relançant la présentation et ne se valide pas avec la touche [entrée].
Voici le code de la diapo1 :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Private Sub ActivePresentation()
TextBox1.Value = ""
End Sub
Private Sub TextBox1_Click()
Set TextBox1.Text = ""
End Sub
Private Sub CommandButton1_Click()
Select Case TextBox1
Case "mdp"
SlideShowWindows(1).View.GotoSlide (3)
Case Else
SlideShowWindows(1).View.GotoSlide (1)
End Select
End Sub |
Qui ne fonctionne qu'avec le bouton de validation ajouté.
J'ai essayé cela :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Private Sub TextBox1_Change()
TextBox1.EnterKeyBehavior = True
'Test for line feed (user pressed enter)
If Right(TextBox1.Value, 1) = vbLf Then
' mdp$ = textbox1_value
' Clear the Textbox value
If Left(TextBox1.Value, 3) = "mdp" Then
SlideShowWindows(1).View.GotoSlide (3)
Else
SlideShowWindows(1).View.GotoSlide (1)
End If
TextBox1.Value = ""
End If
End Sub |
sans plus de succès.
Avez-vous des pistes pour corriger mon problème.
Merci d'avance, bien cordialement
Utilisation d'un Userform
Bonjour jean_btx,
je te conseille d'utiliser un UserForm dans lequel tu mettras ton TextBox (dans lequel tu pourras saisir ton texte) ainsi qu'un CommandButton (qui fera les contrôles lors de l'appui sur le bouton). Tu peux faire l'initialisation du texte (la raz) à l'ouverture de ce UserForm.
Yves
