Visual Basic 6 - Frecce direzionali

Forum - Visual Basic 6 - Frecce direzionali

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 20:31
Martedì, 11/12/2007

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...

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 21:40
Martedì, 11/12/2007

Imposta a True la proprieta' a KeyPreview del form e usa questo codice

Codice sorgente - presumibilmente VB.NET

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

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 18:08
Mercoledì, 12/12/2007

Grazie di tutto

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 16:28
Venerdì, 14/12/2007

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)

gius (Ex-Member)
Expert

Messaggi: 294
Iscritto: 20/06/2007

Postato alle 20:24
Venerdì, 14/12/2007

Ah gia vero,lo sapevo

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

Codice sorgente - presumibilmente VB.NET

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

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 21:28
Venerdì, 14/12/2007

visto che vogliamo essere schizzinosi il codice corretto è

Codice sorgente - presumibilmente VB.NET

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