Casella testo premere ENTER

di il
1 risposte

Casella testo premere ENTER

Salve

ho messo 2 textbox in una maschera

vorrei che l'utente potesse digitare del testo in txtTest e premere invio
uscire dalla txtTest e visualizzare cosa e' stato digitato in una label lblHelp
ho notato che l'evento Enter NON funziona come pensavo

E' GIUSTO controllare con l'evento Keydown SE SI E' PREMUTO enter e visualizzare cio' che 'e stato digitato con LostFocus

potreste per favore correggere il codice?

GRAZIE


Private Sub txtTest_KeyDown(KeyCode As Integer, Shift As Integer)
Debug.Print "keydown " & KeyCode & " " & Chr(KeyCode)

If KeyCode = 13 Then
Me.Caption = "Premuto Enter"

'qui non riesco a sapere il testo digitato !!!
' debug.print IIf(Not IsNull(txtTest.Value), txtTest.Value, "")
End If
End Sub

Private Sub txtTest_LostFocus()
lblHelp.Caption = IIf(Not IsNull(txtTest.Value), txtTest.Value, "")
End Sub


Private Sub txtTest_Enter()
' Me.Caption = "PROVA"
' MsgBox "ENTER"
End Sub

1 Risposte

  • Re: Casella testo premere ENTER

    Mi pare di comprendere che confondi l'evento ENTER con il tasto ENTER(INVIO)....

    Quello che chiedi si fa su LOSTFOCS oppure su KeyPresso o KeyDown... ma in quei casi devi leggere la proprietà TEXT e non VALUE.
Devi accedere o registrarti per scrivere nel forum
1 risposte