صدای دینگ در هنگام جا به جایی فوکوس با کلید 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