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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  جعل مفتاح انتر يعمل عمل مفتاح تاب مع الداتا جريد فيو cvcvcv 7 1,901 15-11-16, 09:00 PM
آخر رد: samnaj00
  فحص لــ القيمة المدخلة فى حقل مفتاح رئيسى Unique Key ل datagridview noway 6 133 15-11-16, 09:06 AM
آخر رد: noway
Lightbulb [سؤال] هل يوجد اداة لاستعراض الانترنت غير webcontrol elhon.tec 1 155 09-11-16, 03:24 PM
آخر رد: elhon.tec
Rainbow [نقاش] [VB.NET] جعل المشروع يعمل تلقائي nabil-maher 4 155 05-11-16, 02:32 AM
آخر رد: الماجيك مسعد
  [VB.NET] كود الفحص قبل الحفظ هل يوجد افضل منه ؟؟ 0theghost0 0 71 25-10-16, 07:11 PM
آخر رد: 0theghost0
Information [VB.NET] طريقة عمل مربع حوار يعمل على ادخال صورة إلى قاعدة البيانات thevirus 1 75 24-10-16, 01:49 PM
آخر رد: Adrees
  [VB.NET] كيفية عمل كود ب vb.net يعمل على تحديث جميع السجلات في الداتا بيز بشرط معين thevirus 2 124 24-10-16, 06:45 AM
آخر رد: thevirus
  كيف اجعل برنامجى المصمم بالفيجوال ستوديو 2012 يعمل على ويندوز 10 : 64 بيت nabil.1710 7 178 18-10-16, 03:15 AM
آخر رد: nabil.1710
  [سؤال] رجاء المساعدة البرنامج لا يعمل تحديث للبيانات Asmaa adel 3 159 16-10-16, 09:48 AM
آخر رد: Asmaa adel
  [VB.NET] ملف exe لا يعمل عند تشغيله ويعطي رسالة الخطأ المرفقة نسيم 4 119 13-10-16, 09:57 PM
آخر رد: ممدوح

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


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