NON FAR digitare i tasti

[amodio]

non far digitre i tasti tranne / e - numeri e lettere

io ho scritto

If KeyAscii <> 47 And KeyAscii <> 45 And KeyAscii <> 8 And KeyAscii < 65 And KeyAscii > 90 _
And KeyAscii < 48 And KeyAscii > 57 Or KeyAscii > 90 Then '/- LETTERE MIN, numeri

KeyAscii = 0

End If
ma proprio se ne frega cosa chè che non va?
grazie

[darkblOOd]

Originariamente inviato da amodio
non far digitre i tasti tranne / e - numeri e lettere

io ho scritto

If KeyAscii <> 47 And KeyAscii <> 45 And KeyAscii <> 8 And KeyAscii < 65 And KeyAscii > 90 _
And KeyAscii < 48 And KeyAscii > 57 Or KeyAscii > 90 Then '/- LETTERE MIN, numeri

KeyAscii = 0

End If
ma proprio se ne frega cosa chè che non va?
grazie

devi spezzare il controllo in + controlli.

E devi anche rispettare l'ordine di numerazione!

[Janx]

Allora.....
Sto supponendo che il tutto sia relativo ad una TextBox.


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 48 To 57
Case 65 To 90
Case 97 To 122
Case Else
KeyCode = 0
End Select
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57
Case 65 To 90
Case 97 To 122
Case Else
KeyAscii = 0
End Select
End Sub

Se li usi entrambi puoi SOLO scrivere numeri e lettere.

[amodio]

ah ecco non ho messso or al posto di and tra gli insiemi grazie