الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

الإنتقال بين الخانات عن طريق Enter

بدأه المدلهم في 17 مايو 2009 · 7 رد · 1,250 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه ،،

عملت function

Public Function ConvertTabKeyToEnterKey(ByVal ev As System.Windows.Forms.KeyEventArgs) As Boolean

If ev.KeyCode = Keys.Enter Then

SendKeys.Send("{tab}")

ev.SuppressKeyPress = True

End If

End Function

و ذلك لعملية الإنتقال بين الحقول حيث وضعت function في modules و اقوم باستدعائها في الفورم

Private Sub masMid_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

ConvertTabKeyToEnterKey(e)

End Sub

لكن الامر ما تطبق

أفيدوني و لكم الشكر

تم تعديل هذه المشاركة بواسطة المدلهم في 17 مايو 2009 في 16:29

#2

السلام عليكــم ورحمـة الله وبركاتــه ،،

غير قيمة الخاصية KeyPreview للفورم إلى True

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#3

نعم أخي بارك الله فيك على التجاوب السريع و انت سند لنا في هذا المنتدى المبارك

نسيت اقول اني غيرت key preview إلى true

و بعد ما تغير شي..

ملحوظه

الحقول وضعتها داخل panal في form

#4

هل من الممكن وضع المشروع لرؤية المشكلة؟

لأن الكود يعمل معى بطريقة صحيحة بدون أى مشاكل :huh:

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#5

المشروع كبير جدا لا يمكنني تحميله

إلا أن هذا الشي وقف عائق امامي و خصوصا إنك إذا ضغط على enter راح تسمع صوت يدلك على أنه ليس هناك من تنفيذ للأمر

إضافة

masMid هو اسم الفورم و أنا وضعت المتغير في اسم الفورم و ليس في حقل معين

#6

لا أعلم المشكلة عندك

أنظر إلى الشاشة فى المرفقات لعلك تجد الخطأ :huh:

EnterToTab.rar

تم تعديل هذه المشاركة بواسطة GHOST2010 في 17 مايو 2009 في 18:04

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#7

الاخ الكريم

أدخل على كود النموذج واختار أول حقل تريد وضع زر الادخال Enter عليه ثم اختار الحدث Key down ومن داخل هذا الاجراء أكتب الكود التالى

If e.KeyCode = Keys.Enter Then

TextBox2.Focus()

End If

TextBox2 هو اسم الحقل التالى للحقل الذى قمت باختياره فى الاجراء الاول وهكذا مع بقية الحقول

تقبل التحيه

#8

شكرا لكم أخواني

المشكلة كانت عندي في البرنامج بحيث لم يكن يسقبل اي تحديث فقمت بعمل rebuild

و الآن يعمل بفعالية

الشكر موصول للأخ الفاضل و المعلم المحنك

GHOST2010

كما الشكر ايضا للأخ أسامة على حسن تعاونه

الكود هذا يغنيك عن اضافة لكل عنصر

كل التحايا

مواضيع مشابهة