يه كدي كه با استفاده از اينتر به تكس باكس بعدي بريم نه با tab

[mohsen gh]

از دوستان عزيز من اين كدو ازتون ميخام ممنون ميشم اگه بهم كمك كنيد .
يه كدي كه با استفاده از اينتر به تكس باكس بعدي بريم نه با tab

[mhmoein]

با سلام

این کرد برای رفتن به تکست باکس بعدی است :

با فرض این که شما دو تا تکست باکس داری به نامهای Textbox1 و Textbox2




PrivateSub TextBox1_KeyDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
TextBox2.Focus()
EndIf
EndSub


این هم برای این که صدای ویندوز برای حرکت بین تکست باکس ها بلند نشه :



PrivateSub TextBox1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Microsoft.VisualBasic.IsNumeric(e.KeyChar) = FalseThen
e.Handled = True
ExitSub
EndIf
EndSub



نمونه برنامه رو هم گذاشتم.


موفق باشی

[mohsen gh]

دوست عزيز واقعا ازت تشكر ميكنم
هميشه سر بلند باشي



محسن

[mohsen gh]

دوست عزيز ضمن تشكر
كدي كه واسه قطع صدا فرستادي كاري ميكنه كه
تكس باكسها فقط عدد بگيرند
اگه امكانش هست بيشتر كمكم كنيد

[mhmoein]

سلام . ببخش کاملا درست می گی کدت رو به این صورت اصلاح کن



Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
TextBox2.Focus()
End If
End Sub


اینم نمونه برنامه :