Oppure

Loading
11/12/07 19:31
GrG
Ciao!
Come posso far in modo che se viene premuta la freccia direzionale su mi venga una msgbox con scritto "su"??

Credo ke bisogna usare vbKeyUp, ma non so come...
aaa
11/12/07 20:40
gantonio
Imposta a True la proprieta' a KeyPreview del form e usa questo codice

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyUp Then Print "up"
End Sub

aaa
12/12/07 17:08
GrG
Grazie di tutto:D
aaa
14/12/07 15:28
GrG
No, nn ce ne bisogno, ad esempio se nella form_load o in un pulsante scrivi:

if text1.text = "ciao" then msgbox "ciao"

non c'è bisogno di mettere end if (solo quando è tutto su una riga)
aaa
14/12/07 19:24
gius
Ah gia vero,lo sapevo:D:D:D


cmq visto che hai chiesto una msgbox gantonio si che nn ci vole niente a modificare il codice ma sarebbe stato più completo nel dire nel cose.

Fa questo

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyUp Then 
MsgBox"up"
End If
End Sub


aaa
14/12/07 20:28
P4p3r0g4
visto che vogliamo essere schizzinosi il codice corretto è
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then MsgBox "su"
End Sub 
aaa