Enterを押下した時、Beep音を消すには Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then 'Enter押下 KeyAscii = 0 End If End Sub これだけです。
Enterを押下した時、Beep音を消すには
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then 'Enter押下 KeyAscii = 0 End If End Sub
Private Sub
Text1_KeyPress(KeyAscii
As Integer
)
If
KeyAscii = vbKeyReturn
Then
'Enter押下
KeyAscii = 0
End If
End Sub
これだけです。