VB disattivare tic del tasto

[gyonny]

in una text ho messo il seguente codice:

Private Sub TexFimporto2_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13 ' enter
TexFimporto2.Text = Format(TexFimporto2.Text, "#,##0.00")
cmFCerca.SetFocus
End Select
End Sub

il codice funziona, solo che alla pressione del tasto enter nelle casse acustiche si sente il tic. Al cliente ("amico" e con carenze eurologiche) da fastidio.

dice che gli sembra un sito web

come faccio a disattivarlo?

by
gyonny

[amodio]

io ci ho provto in tutti i modi

infatti anche io a tempo passato
ho fatto questa domanda

nn so..
di al tuo "amico" che imparassse a farselo piacere

beh se qualcuno sa la risposta ben venga

[darkblOOd]

ma che vuol dire?

[amodio]

@darkblood

ma nn ti è mai capitato che fa un beep
quando implementi l'invio per fargli fare un tab ?

[darkblOOd]

Originariamente inviato da amodio
@darkblood

ma nn ti è mai capitato che fa un beep
quando implementi l'invio per fargli fare un tab ?

no, lo fa con esc.... con invio succede se alla pressione dello stesso non succede niente....anche se metti un form con una textbox e premi invio ti fa il beep...ma questo è normale...visto che lanci un comendo per niente

e cmq è così ovunque, non solo in quel programma quindi può dire di al tizio di attaccarsi..oppure stacca lo speacker del pc

[gyonny]

mmm

allora mi tocca regalargli una cuffia.

[gyonny]

ragazzi si può fare

ho risolto con il seguente codice:

If KeyAscii = 13 Then
KeyAscii = 0 ' evitare il beep
If Index = 15 Then ' se ti trovi all'ultima text
txtFields(1).SetFocus ' torna alla prima
Else
SendKeys "{Tab}" ' simula il tasto tab
End If
End If

If KeyAscii = 46 And Index = 4 Then ' se si inserisce il punto
KeyAscii = 44 ' cambialo in virgola
End If

bye