تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هل يوجد كود يعمل عمل مفتاح انتر
#1
السلام عليكم
هل يوجد كود يعمل عمل مفتاح انتر
للتوضيح اكثر ... كتبت تحت زر بوتون الكود الاتي
BindingNavigatorPositionItem.Text = 4
طبعا لن يذهب للسجل الرابع الا بالضغط على انتر
اريدكود لذلك .. وشكرا
الرد }}}
تم الشكر بواسطة:
#2
ممكن بدل كل دا

امسح كل الكود تحت الزر وخلي فقط هذا الكود

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
الرد }}}
تم الشكر بواسطة:
#3
cvcvcv كتب :هل يوجد كود يعمل عمل مفتاح انتر

نعم يوجد كود للضغط على انتر ....ولاكن يفضل عمل الطريقة بعيدآ عن الكود
الطريقة بسيطة :
من خصائص الفورم
جعل الخاصية : AcceptButton = Button1
الرد }}}
تم الشكر بواسطة:
#4
مالكـ كتب :نعم يوجد كود للضغط على انتر ....ولاكن يفضل عمل الطريقة بعيدآ عن الكود
الطريقة بسيطة :
من خصائص الفورم
جعل الخاصية : AcceptButton = Button1


أو ممكن من الكود

كود :
SendKeys.Send(Keys.Enter)

ولكن في حالة المثال الأعلى لن تعمل لأنه لا يريد انتر للفورم ولكنه يريد انتر لعنصر معين وهو

BindingNavigatorPositionItem
الرد }}}
تم الشكر بواسطة:
#5
بسم الله الرحمن الرحيم
طبعا ممكن ان يكون الكود كالتالي

كود :
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
الرد }}}
تم الشكر بواسطة:
#6
شكرا للجميع والله استفدت فعلا من كل الاجابات ..
الرد }}}
تم الشكر بواسطة:
#7
أشكر الجميع على الحلول الجميلة وإذا سمحتوا ممكن أضيف محاولة أخرى ناجحة معي
للبحث مثلاً عن كلمة في 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

والسلام عليكم ورحمة الله وبركاته
الرد }}}
تم الشكر بواسطة:
#8
السلام عليكم
اخ cvcvcv
الشيء الذي تريده هو
اما بـ
--------------------
Button2_Click(Nothing,Nothing)
--------------------
علما انك وضعت في الحدث Button2_Click
امر معين
ا
و عن طريق
-------------------
Button2.Focus()
SendKeys.Send(Chr(13))

-------------------
الكود باختصار
SendKeys.Send(Chr(13))
الرد }}}
تم الشكر بواسطة: ابو روضة , ابو روضة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سورس كود الارسال الى الواتس -يعمل يرجي التعاون للتطوير new_programer 5 224 03-03-24, 08:45 PM
آخر رد: new_programer
Exclamation [VB.NET] من يقدر يعمل لي استعلام يحقق طلبي ؟ أبو خالد الشكري 5 417 09-11-23, 02:25 PM
آخر رد: أبو خالد الشكري
Smile تطبيقي يعمل تمام على ويندوز 10 قبل تحديث الوندوز وبعد التحديث لا يعمل رمضان محمد 2 382 31-10-23, 01:50 PM
آخر رد: رمضان محمد
  يوجد مشكلة عند تحميل البيانات فى كمبوبوكس داخل داتا جريد new_programer 2 473 17-10-23, 06:51 PM
آخر رد: new_programer
  [VB.NET] كيف اقوم بمنع المستخدم من استخدام الكيبورد وخصوصا مفتاح Print screen Ameenh 0 235 07-10-23, 10:45 PM
آخر رد: Ameenh
  البرنامج لدي يعمل على ويندوز 11 والان لا يعمل على ويندوز 10 ماهو الحل moh61 1 279 01-09-23, 04:38 AM
آخر رد: اسامه الهرماوي
  جعل النظام يعمل بجميع مقاسات الشاشه Owz 7 528 08-08-23, 07:36 PM
آخر رد: Owz
  [SQL] يوجد لدى خطأبرمجى ارجو المساعدة عاصم النجار 6 503 26-07-23, 05:22 PM
آخر رد: عبد الخالق
  يوجد خطاء عند تحميل الفورم - مثال شجرة الحسابات new_programer 6 755 11-06-23, 06:47 PM
آخر رد: new_programer
  يوجد خطاء عند فتح الفورم مثال شجرة الحسابات new_programer 2 564 06-06-23, 02:41 PM
آخر رد: new_programer

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم