[VB6] Pressione tasto Invio

[Harry]

Ciao a tutti, ho un problema... io per sottomettere un testo ad un'operazione devo utilizzare la pressione del tasto invio, e cercando un po' in rete ho trovato questo che funziona ma che alla pressione di Invio oltre a sottomettere il testo fa un suono di windows, di quelli tipo quando si cerca di scrivere o clickare in un'area non abilitata.

Private Sub txtgenerico_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn then
istruzione
End If
End Sub

La mia domanda è appunto come non far sentire sto suono! E già che ci sono... se volessi fare sottomettere quel codice all'istruzione non solo in seguito alla pressione di Invio ma anche con un pulsante (cioè, l'utente può scegliere se premere il pulsante sul form o Invio) come dovrei procedere? Grazie!

[Harry]

Ho risolto per il suono... basta impostare KeyAscii a 0 effettuata l'istruzione.
E se invece volessi far fare al mio programma la stessa cosa in seguito a due eventi differenti? Ho provato a mettere per esempio del codice in seguito alla pressione di un cmd, e poi al posto di copiare lo stesso codice nell'evento ho semplicemente richiamato cmd_Click ed ho visto che funziona. Potete magari dirmi se c'è qualche altro metodo più "fatto apposta"? Quello che ho trovato io è un po' rudimentale

[icecube_HT]

Originariamente inviato da Harry
Ho risolto per il suono... basta impostare KeyAscii a 0 effettuata l'istruzione.
E se invece volessi far fare al mio programma la stessa cosa in seguito a due eventi differenti? Ho provato a mettere per esempio del codice in seguito alla pressione di un cmd, e poi al posto di copiare lo stesso codice nell'evento ho semplicemente richiamato cmd_Click ed ho visto che funziona. Potete magari dirmi se c'è qualche altro metodo più "fatto apposta"? Quello che ho trovato io è un po' rudimentale

Ciao !
Il sistema "piu' fatto apposta" e' questo:
imposti la proprieta' Default del button a True, e il pulsante verra' "cliccato" anche premendo Invio...

(ora non ho VB sottomano, non ricordo se deve essere anche impostata la proprieta' KeyPreview del form a True....)

[Harry]

Grazie 1000! Funziona anche senza KeyPreview comunque

[Harry]

Solo un inghippo... dovrei eseguire delle azioni sotto pressione del tasto invio per comandi diversi nello stesso form... ed usando questo metodo lo fa solo su una, se provo ad abilitare un altro cmd disabilita il primo. Idee?

[gibra]

Originariamente inviato da Harry
Ciao a tutti, ho un problema... io per sottomettere un testo ad un'operazione devo utilizzare la pressione del tasto invio, e cercando un po' in rete ho trovato questo che funziona ma che alla pressione di Invio oltre a sottomettere il testo fa un suono di windows, di quelli tipo quando si cerca di scrivere o clickare in un'area non abilitata.

Private Sub txtgenerico_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn then
istruzione
End If
End Sub

La mia domanda è appunto come non far sentire sto suono! E già che ci sono... se volessi fare sottomettere quel codice all'istruzione non solo in seguito alla pressione di Invio ma anche con un pulsante (cioè, l'utente può scegliere se premere il pulsante sul form o Invio) come dovrei procedere? Grazie!

E' banalmente semplice:

Private Sub txtgenerico_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn then
        KeyAscii = 0 
        ' Istruzioni da eseguire
    End If
End Sub

Ciao

[Harry]

Originariamente inviato da gibra
E' banalmente semplice:

Private Sub txtgenerico_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn then
        KeyAscii = 0 
        ' Istruzioni da eseguire
    End If
End Sub

Ciao

Innanzitutto grazie della risposta
Il problema ora è un altro, leggi l'ultimo mio post.
Usando il tuo codice (che poi è quello con cui siamo partiti) si potrebbe fare, ma per non scrivere due volte il codice che devo eseguire (sia nel cmd, sia lì) non posso scriverci qualcosa che tradotto risulti: "fai la stessa azione che fa cmdazione"...?

[gibra]

Io no ci ho capito molto su quello che devi fare, sicuramente sarà un mio limite.

Se spieghi in dettaglio le azioni da fare, anzichè in generale, forse ci arrivo a capire qualcosa.

Ciao

[Harry]

In pratica il problema è risolto, l'obiettivo era poter effettuare il trattamento dei dati immessi in due txt diverse con due diverse operazioni, azionandole con la pressione del tasto invio quando il cursore si trova su di essa. E' un po' contorto da spiegare ma in pratica è molto semplice. Fin qui ci sono arrivato col codice da te postato sopra. Ora il problema è che le operazioni che effettuo premendo Invio, le devo rendere anche disponibili tramite un pulsante, e quindi dovrei avere quelle istruzioni sia per la pressione di un cmd, sia per l'evento KeyPress della txt. Per non dovere scrivere due volte lo stesso identico codice (che tanto breve non è), come potrei fare? Stavo pensando di simulare alla pressione del tasto Invio, la pressione del cmd corrispondente in modo da semplificare il tutto, ma non so come esprimerlo in codice. Quindi in pratica:

Private Sub txtgenerico_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn then
        KeyAscii = 0 
         "esegui le stesse operazioni che fai alla pressione di cmdgenerico"
    End If
End Sub

PS: grazie dell'assistenza anche a Ferragosto

[icecube_HT]

Originariamente inviato da Harry
In pratica il problema è risolto, l'obiettivo era poter effettuare il trattamento dei dati immessi in due txt diverse con due diverse operazioni, azionandole con la pressione del tasto invio quando il cursore si trova su di essa. E' un po' contorto da spiegare ma in pratica è molto semplice. Fin qui ci sono arrivato col codice da te postato sopra. Ora il problema è che le operazioni che effettuo premendo Invio, le devo rendere anche disponibili tramite un pulsante, e quindi dovrei avere quelle istruzioni sia per la pressione di un cmd, sia per l'evento KeyPress della txt. Per non dovere scrivere due volte lo stesso identico codice (che tanto breve non è), come potrei fare? Stavo pensando di simulare alla pressione del tasto Invio, la pressione del cmd corrispondente in modo da semplificare il tutto, ma non so come esprimerlo in codice. Quindi in pratica:

Private Sub txtgenerico_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn then
        KeyAscii = 0 
         "esegui le stesse operazioni che fai alla pressione di cmdgenerico"
    End If
End Sub

PS: grazie dell'assistenza anche a Ferragosto

"esegui le stesse operazioni che fai alla pressione di cmdgenerico"

equivale a:

cmdgenerico_Click

...o no ?