+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد طريقة مختصرة (/showthread.php?tid=3015)
اريد طريقة مختصرة - عمار عيثاوي - 26-05-14
السلام عليكم كيف استطيع التنقل داخل الداتا كريد عن طريق زر الانتر ويكون التنقل افقي
واني جدا ممنون
RE: اريد طريقة مختصرة - vbnet - 26-05-14
(26-05-14, 07:02 PM)عمار عيثاوي كتب : السلام عليكم كيف استطيع التنقل داخل الداتا كريد عن طريق زر الانتر ويكون التنقل افقي
واني جدا ممنون
منقول
نضع الكود التالي في Class جديد ثم نذهب إلى القائمة Build ونختار Build المشروع وبعدها نجد أداة جديدة في أعلى الأدوات إسمها DataGridViewEX
كود :
Public Class DataGridViewEX
Inherits System.Windows.Forms.DataGridView
Protected Overrides Function ProcessDialogKey(ByVal keyData As Keys) As Boolean
Dim key As Keys = (keyData And Keys.KeyCode)
If key = Keys.Enter Then
If Me.CurrentCell.ColumnIndex = Me.Columns.Count - 1 Then
Me.CurrentCell = Me.Item(0, Me.CurrentRow.Index)
Return Me.ProcessDownKey(keyData)
Else
Return Me.ProcessRightKey(keyData)
End If
End If
Return MyBase.ProcessDialogKey(keyData)
End Function
Protected Overrides Function ProcessDataGridViewKey(ByVal e As KeyEventArgs) As Boolean
If e.KeyCode = Keys.Enter Then
If Me.CurrentCell.ColumnIndex = Me.Columns.Count - 1 Then
Me.CurrentCell = Me.Item(0, Me.CurrentRow.Index)
Return Me.ProcessDownKey(e.KeyData)
Else
Return Me.ProcessRightKey(e.KeyData)
End If
End If
Return MyBase.ProcessDataGridViewKey(e)
End Function
End ClassRE: اريد طريقة مختصرة - عمار عيثاوي - 26-05-14
بارك الله فيك اخي الكريم
جاري التجربة
RE: اريد طريقة مختصرة - عمار عيثاوي - 29-05-14
اخي الكريم الكود لا يعمل معي
ممكن توضيح اكثر لان انا مبرمج مبتداء
جزاك الله خيرا
RE: اريد طريقة مختصرة - a_almisery - 30-05-14
* - قم باضافه كلاس
من نافذه المشروع اضغط بزر الايمن واختر new ثم class
ثم افتح الكلاس وانسخ في الكود الذي اعطاك الاخ vb.net
RE: اريد طريقة مختصرة - vbnet - 31-05-14
(29-05-14, 10:58 PM)عمار عيثاوي كتب : ...الكود لا يعمل معي.....
ممكن توضيح اكثر لان انا مبرمج مبتداء
...
---> من القائمة Project واختر ...Add Class واكتب الاسم DataGridViewEX
---> في نافذة كود DataGridViewEX الجديدة الصق الكود السابق
---> من القائمة Build اختر Build WindowsApplication1 (يجب أن لا يحتوي برنامجك على أي أخطاء لتتم هذه العملية بنجاح)
---> أظهر النموذج في وضع التصميم واذهب لأعلى الأدوات وأضف الأداة الجديدة DataGridViewEX إلى النموذج واستخدمها بدلا من DataGridView القديمة
RE: اريد طريقة مختصرة - عمار عيثاوي - 31-05-14
عاشت ايدك وبارك الله فيك
الهم اجعل هذا العمل في ميزان حسناتك وجعل اجره لك ولوالديك