صدای دینگ در هنگام جا به جایی فوکوس با کلید enter

[Ali_Prodes]

صدای دینگ در هنگام جا به جایی فوکوس با کلید enter
موقع انتقال فوکوس یک دینگ میدهد نمشود کاریش کرد که این صدا را ندهد لطفا راهنمائیم کنید ممنون

[mmssoft]

اگر از کد زیر استفاده کنید در هر صورت اون صدا رو میشنوید :

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text2.SetFocus
End If
End Sub

در اینجا فکر کنم یک راه داشته باشید. اینکه از کد زیر استفاده کنید. یعنی اول تکست مورد نظر رو غیرفعال کنید و وقتی می خواهید روش فوکوس بزارید اون رو فعال کنید.

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text1.Enabled = True
Text1.SetFocus
End If
End Sub

[xxxxx_xxxxx]

شما بايد keyascii رو بعد از اين كه چك كرديد كه آيا مساوي 13 هست يا نه، بايد اونو صفر كنيد. به اين صورت:
از رويداد KeyPress استفاده كنيد.


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
KeyAscii = 0
End If
End Sub