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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في فيجوال استوديو 2015 هل يوجد حل ؟ soper 4 49 منذ 3 ساعة مضت
آخر رد: soper
  [VB.NET] كود الفحص قبل الحفظ هل يوجد افضل منه ؟؟ 0theghost0 1 138 18-01-17, 11:43 AM
آخر رد: thevirus
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 510 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
  هل يوجد مثال عن اقفال الفترات المالية السيد الجوهري 4 179 04-01-17, 05:18 PM
آخر رد: asemshahen
  [سؤال] كيف جمع عمود به قيمة فارغة يوجد مثال aboslah4u22 8 1,336 04-01-17, 12:48 PM
آخر رد: مساعدة
  [سؤال] كيف اعمل برنامج يعمل في الخفاء ddemed 17 438 21-12-16, 12:39 PM
آخر رد: Basil Abdallah
  جعل مفتاح انتر يعمل عمل مفتاح تاب مع الداتا جريد فيو cvcvcv 7 2,060 15-11-16, 09:00 PM
آخر رد: samnaj00
  فحص لــ القيمة المدخلة فى حقل مفتاح رئيسى Unique Key ل datagridview noway 6 178 15-11-16, 09:06 AM
آخر رد: noway
Lightbulb [سؤال] هل يوجد اداة لاستعراض الانترنت غير webcontrol elhon.tec 1 186 09-11-16, 03:24 PM
آخر رد: elhon.tec
Rainbow [نقاش] [VB.NET] جعل المشروع يعمل تلقائي nabil-maher 4 204 05-11-16, 02:32 AM
آخر رد: الماجيك مسعد

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


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