صدای دینگ در هنگام جا به جایی فوکوس با کلید enter
موقع انتقال فوکوس یک دینگ میدهد نمشود کاریش کرد که این صدا را ندهد لطفا راهنمائیم کنید ممنون
صدای دینگ در هنگام جا به جایی فوکوس با کلید enter
موقع انتقال فوکوس یک دینگ میدهد نمشود کاریش کرد که این صدا را ندهد لطفا راهنمائیم کنید ممنون
اگر از کد زیر استفاده کنید در هر صورت اون صدا رو میشنوید :
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
شما بايد keyascii رو بعد از اين كه چك كرديد كه آيا مساوي 13 هست يا نه، بايد اونو صفر كنيد. به اين صورت:
از رويداد KeyPress استفاده كنيد.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
KeyAscii = 0
End If
End Sub
الگوریتم هایی که تاریخچه خود را فراموش می کنند، محکوم به تکرار آن هستند.