VB 6 Aiuto su Evento Key Press

[stebux]

Ciao mondo!
Ho una richiesta da farvi!
Io ho relazionato un database a VB6. Dato che gli utenti finali di questo prodotto sono per lo più rimasti all'era dei 286 e delle schede perforate, e non sanno che cosa sia un mouse, dovrei riuscire a fare spostare il record nei db con la pressione dei tasti "FRECCIA DX" e "FRECCIA SX" e poi ovviamente agganciare i campi alle rispettive textbox!

come posso fare?

[buba88]

con l evento keypress nn lo puoi fare perchè le freccette nn sono riconosciute.
lo devi fare col key down

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 39 Then
data1.recordset.movenext
ElseIf KeyCode = 37 Then
data1.recordset.moveprevious
End If
End Sub

se nn utilizzi il controllo data ma un recordset creato da codice fai cosi

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 39 Then
nome_recordset.movenext
ElseIf KeyCode = 37 Then
nome_recordset.moveprevious
End If
End Sub

ciao fammi sapere se funziona

[stebux]

ti ringrazio per l'aiuto!
a presto!

[buba88]

di niente ma funziona ?
mi interessa saperlo anche a me xchè nn ho avuto il tempo di provarlo e se funzia lo devo mettere anche in un mio prog

[buba88]

a dimenticavo una cosa

devi anche controllare che nn si è arrivati alla fine o all inizio del recordset

ecco il codice completo

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 39 Then
    if data1.recordset.EOF then
       data1.recordset.movelast
    else
       data1.recordset.movenext
    end if
ElseIf KeyCode = 37 Then
if data1.recordset.BOF then
       data1.recordset.movefirst
    else
       data1.recordset.moveprevious
    end if
End If
End Sub

[stebux]

si si... grazie lo stesso ma avevo già controllato.
sai non sono proprio un neofita è che a volte certi controlli mi sfuggono. grazie lo stesso!

[stebux]

Originariamente inviato da buba88
di niente ma funziona ?
mi interessa saperlo anche a me xchè nn ho avuto il tempo di provarlo e se funzia lo devo mettere anche in un mio prog

Si funziona... anche se a dire la verità sul form non mi andava.
quindi ho dovuto mettere un oggetto (io ho messo una textbox) nascosta, in modo che non si veda (però non VISIBLE=FALSE) forzagli il setfocus e poi metteri li il comando sull'evento keydown.

Spero di essere stato chiara. grazie ancora! ciao

[Pasalino]

Scusate ma se inserisci la forzatura sulla textbox, significa che poi non puoi usare nessun altro controllo per inserimento. Giusto?