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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] هل يوجد اكواد صوت مثل Beep للتنبيه hglogtd 7 125 20-09-17, 02:36 AM
آخر رد: hglogtd
  طريقة جعل زر Enter يعمل عمل زر Tab lkaam 1 194 22-08-17, 03:37 PM
آخر رد: نبيل كونكت
  [VB.NET] هل كود : Windows Forms Application يعمل على ASP.NET web application ، والعكس AbdullahProg 1 61 22-08-17, 02:45 PM
آخر رد: حريف برمجة
  هل يوجد كتاب متخصص في التعامل مع الصور في فيجوال بيسك 2013 rafaag777 1 95 20-08-17, 10:55 PM
آخر رد: العواد الصغير
  مفتاح واحد يغلق الفورم ويفتحها نفسها بعد ثانيتين khaled12345 2 156 20-06-17, 11:00 AM
آخر رد: khaled12345
  هل يوجد شخص يعرف سبب هذه المشكلة !! كود برمجي 5 243 23-05-17, 12:33 AM
آخر رد: alma2
  هل يوجد ميزان مراجعة - من عندة يزودنا به السيد الجوهري 5 341 16-02-17, 05:43 PM
آخر رد: مساعدة
  [سؤال] هل يوجد طريقة للتنبيه قبل انتهاء التاريخ بيومين Marwan9990 22 1,324 08-02-17, 02:48 AM
آخر رد: أسامة السالمي
  [سؤال] يوجد لدي خطا في الكريستال ريبورت gmailali 5 272 28-01-17, 07:15 PM
آخر رد: gmailali
  مشكلة في فيجوال استوديو 2015 هل يوجد حل ؟ soper 7 365 24-01-17, 12:26 PM
آخر رد: soper

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


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