noBeepEnter
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = Asc(vbCr) Then KeyAscii = 0 End If End Sub 'Quando si avvia il programma la pressione del tasto [Enter] non 'produrrą pił il beep.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc(vbCr) Then
KeyAscii = 0
End If
End Sub
'Quando si avvia il programma la pressione del tasto [Enter] non
'produrra' piu' il beep.
( nobeepenter.html )- by Paolo Puglisi
- Modifica del 17/12/2023