keypress

[BOYROMA1]

al keypress di una text ho associato l'azione form2.show tramite un controllo


if val(text1.text)=10 then

unload form1
form2.show

end if


ma come mai a volte lo zero me lo prende come l'invio?e cosi mi legge il valore 1 invece che 10 facendo unaltra zione?

graziee

[Thor82]

prova a non usare val(...)
fai semplicemente

if (form1.text1.text) then
bla bla bla
end if

[Mabi]

Originariamente inviato da BOYROMA1
ma come mai a volte lo zero me lo prende come l'invio?

Non ho capito cosa vuoi dire.
Devi considerare che il che il KeyPress avviene prima del Change, quindi non dovresti controllare la Text ma il KeyAscii.
Altrimenti fai il controllo nella Change così ti rimane più semplice da gestire il valore.

[GudFella]

Private Sub TEXT_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case VALORE
....
....
End Select
End Sub

[Mabi]

Originariamente inviato da GudFella
Private Sub TEXT_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case VALORE
....
....
End Select
End Sub

Come fai a controllare che la Text1.Text sia "10" guardando solo il KeyAscii ???!
Devi guardare entrambe le cose oppure devi gestire il controllo nella Change più facilmente.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Text1.Text = "1" And Chr(KeyAscii) = "0" Then
  MsgBox "10"
End If
End Sub

[GudFella]

visto che alla pressione del tasto X l'evento sarà:
unload form1
form2.show

io credo che la situazione sia del tipo login:
inserisco utente e password e premo invio

in questo caso il mio codice sarebbe corretto

[Mabi]

Ma come fai a controllare che il codice inserito per il Login sia corretto effettuando un controllo sull'ultimo tasto premuto e non su tutto il codice ?

[GudFella]

Originariamente inviato da Mabi
Ma come fai a controllare che il codice inserito per il Login sia corretto effettuando un controllo sull'ultimo tasto premuto e non su tutto il codice ?

utilizzo l'evento keypress solo per intercettare la pressione del tasto invio

[Mabi]

Originariamente inviato da GudFella
Private Sub TEXT_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case VALORE
....
....
End Select
End Sub

E lo fai con un Select Case ??!
Mi sembra più logico con un If.

[GudFella]

Originariamente inviato da Mabi
Mi sembra più logico con un If.

come preferisci ...