تقييم الموضوع :
  • 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))
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يوجد شخص يعرف سبب هذه المشكلة !! كود برمجي 5 110 23-05-17, 12:33 AM
آخر رد: alma2
  هل يوجد ميزان مراجعة - من عندة يزودنا به السيد الجوهري 5 226 16-02-17, 05:43 PM
آخر رد: مساعدة
  [سؤال] هل يوجد طريقة للتنبيه قبل انتهاء التاريخ بيومين Marwan9990 22 1,139 08-02-17, 02:48 AM
آخر رد: أسامة السالمي
  [سؤال] يوجد لدي خطا في الكريستال ريبورت gmailali 5 194 28-01-17, 07:15 PM
آخر رد: gmailali
  مشكلة في فيجوال استوديو 2015 هل يوجد حل ؟ soper 7 274 24-01-17, 12:26 PM
آخر رد: soper
  [VB.NET] كود الفحص قبل الحفظ هل يوجد افضل منه ؟؟ 0theghost0 1 273 18-01-17, 11:43 AM
آخر رد: thevirus
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 937 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
  هل يوجد مثال عن اقفال الفترات المالية السيد الجوهري 4 335 04-01-17, 05:18 PM
آخر رد: asemshahen
  [سؤال] كيف جمع عمود به قيمة فارغة يوجد مثال aboslah4u22 8 1,543 04-01-17, 12:48 PM
آخر رد: مساعدة
  [سؤال] كيف اعمل برنامج يعمل في الخفاء ddemed 17 781 21-12-16, 12:39 PM
آخر رد: Basil Abdallah

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


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