السلام عليكم
هل يوجد كود يعمل عمل مفتاح انتر
للتوضيح اكثر ... كتبت تحت زر بوتون الكود الاتي
BindingNavigatorPositionItem.Text = 4
طبعا لن يذهب للسجل الرابع الا بالضغط على انتر
اريدكود لذلك .. وشكرا
ممكن بدل كل دا
امسح كل الكود تحت الزر وخلي فقط هذا الكود
Me.Table1BindingSource.Position = 3
طبعا 0 يعني أول سجل و 1 تاني سجل وهكذا
هاتلاقيه الرقم غير في BindingNavigatorPositionItem
وراح للسجل في الداتا جريد فيو
ولو عاوز تعمل أزرار تنقل ممكن زر التالي
Me.Table1BindingSource.Position += 1
أو السابق
Me.Table1BindingSource.Position -= 1
أو الأول
Me.Table1BindingSource.Position = 0
أو الأخير
Me.Table1BindingSource.Position = Me.Table1BindingSource.Count - 1
cvcvcv كتب :هل يوجد كود يعمل عمل مفتاح انتر
نعم يوجد كود للضغط على انتر ....ولاكن يفضل عمل الطريقة بعيدآ عن الكود
الطريقة بسيطة :
من خصائص الفورم
جعل الخاصية : AcceptButton = Button1
مالكـ كتب :نعم يوجد كود للضغط على انتر ....ولاكن يفضل عمل الطريقة بعيدآ عن الكود
الطريقة بسيطة :
من خصائص الفورم
جعل الخاصية : AcceptButton = Button1
أو ممكن من الكود
كود :
SendKeys.Send(Keys.Enter)
ولكن في حالة المثال الأعلى لن تعمل لأنه لا يريد انتر للفورم ولكنه يريد انتر لعنصر معين وهو
BindingNavigatorPositionItem
بسم الله الرحمن الرحيم
طبعا ممكن ان يكون الكود كالتالي
كود :
Private Sub TextBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
SendKeys.Send("{TAB}")
End If
End Sub
شكرا للجميع والله استفدت فعلا من كل الاجابات ..
أشكر الجميع على الحلول الجميلة وإذا سمحتوا ممكن أضيف محاولة أخرى ناجحة معي
للبحث مثلاً عن كلمة في Textbox باستخدام زر البحث Button :
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
On Error Resume Next
If Asc(e.KeyChar) = 13 Then
Button7.PerformClick()
e.Handled = True
End If
End Sub
والسلام عليكم ورحمة الله وبركاته
السلام عليكم
اخ
cvcvcv
الشيء الذي تريده هو
اما بـ
--------------------
Button2_Click(Nothing,Nothing)
--------------------
علما انك وضعت في الحدث Button2_Click
امر معين
ا
و عن طريق
-------------------
Button2.Focus()
SendKeys.Send(Chr(13))
-------------------
الكود باختصار
SendKeys.Send(Chr(13))