تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التنقل بالانتر داخل الداتا جريد فيو
#1
بعد اذنكم يا جماعة الخير
ازاى اتحرك بزرار الانتر داخل الداتا جريد فيو
الرد }}}
تم الشكر بواسطة:
#2
جرب الكود التالي ::


PHP كود :
Private Sub DataGridView1_KeyDown(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyEventArgsHandles DataGridView1.KeyDown
            If e
.KeyCode Keys.Enter Then
                e
.SuppressKeyPress True
                Dim iCol 
DataGridView1.CurrentCell.ColumnIndex
                Dim iRow 
DataGridView1.CurrentCell.RowIndex
                If iCol 
DataGridView1.Columns.Count 1 Then
                    If iRow 
DataGridView1.Rows.Count 1 Then
                        DataGridView1
.CurrentCell DataGridView1(0iRow 1)
 
                   End If
 
               Else
                    DataGridView1
.CurrentCell DataGridView1(iCol 1iRow)
 
               End If
 
           End If
 
       End Sub 
Don't Be The Perfect one
be the right one
الرد }}}
تم الشكر بواسطة: فارس احمد السيد
#3
تحتاج الى كودين
 الاول: اذا لم يتم التعديل على الخلايا
PHP كود :
Private Sub DataGridView1_KeyDown(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyEventArgsHandles DataGridView1.KeyDown
        If e
.KeyCode Keys.Enter Then
            e
.SuppressKeyPress True
            Dim iCol 
DataGridView1.CurrentCell.ColumnIndex
            Dim iRow 
DataGridView1.CurrentCell.RowIndex
            If iCol 
DataGridView1.Columns.Count 1 Then
                If iRow 
DataGridView1.Rows.Count 1 Then
                    DataGridView1
.CurrentCell DataGridView1(0iRow 1)
 
               End If
 
           Else
                DataGridView1
.CurrentCell DataGridView1(iCol 1iRow)
 
           End If
 
       End If
 
   End Sub 

الثاني: اذا تم التعديل على الخلايا
PHP كود :
    Private Sub DataGridView1_CellEndEdit(sender As System.ObjectAs System.Windows.Forms.DataGridViewCellEventArgsHandles DataGridView1.CellEndEdit
        Dim iCol 
DataGridView1.CurrentCell.ColumnIndex
        Dim iRow 
DataGridView1.CurrentCell.RowIndex
        
If iCol DataGridView1.Columns.Count 1 Then
            
If iRow DataGridView1.Rows.Count 1 Then
                DataGridView1
.CurrentCell DataGridView1(0iRow 1)
            End If
        Else
            If iRow DataGridView1.Rows.Count 1 Then
                SendKeys
.Send("{up}")
            End If
            DataGridView1.CurrentCell DataGridView1(iCol 1iRow)
        End If
    End Sub     
الرد }}}
تم الشكر بواسطة: فارس احمد السيد
#4
(22-02-16, 12:34 AM)mazen.excel كتب : تحتاج الى كودين
 الاول: اذا لم يتم التعديل على الخلايا
PHP كود :
Private Sub DataGridView1_KeyDown(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyEventArgsHandles DataGridView1.KeyDown
        If e
.KeyCode Keys.Enter Then
            e
.SuppressKeyPress True
            Dim iCol 
DataGridView1.CurrentCell.ColumnIndex
            Dim iRow 
DataGridView1.CurrentCell.RowIndex
            If iCol 
DataGridView1.Columns.Count 1 Then
                If iRow 
DataGridView1.Rows.Count 1 Then
                    DataGridView1
.CurrentCell DataGridView1(0iRow 1)
 
               End If
 
           Else
                DataGridView1
.CurrentCell DataGridView1(iCol 1iRow)
 
           End If
 
       End If
 
   End Sub 

الثاني: اذا تم التعديل على الخلايا
PHP كود :
    Private Sub DataGridView1_CellEndEdit(sender As System.ObjectAs System.Windows.Forms.DataGridViewCellEventArgsHandles DataGridView1.CellEndEdit
        Dim iCol 
DataGridView1.CurrentCell.ColumnIndex
        Dim iRow 
DataGridView1.CurrentCell.RowIndex
        
If iCol DataGridView1.Columns.Count 1 Then
            
If iRow DataGridView1.Rows.Count 1 Then
                DataGridView1
.CurrentCell DataGridView1(0iRow 1)
            End If
        Else
            If iRow DataGridView1.Rows.Count 1 Then
                SendKeys
.Send("{up}")
            End If
            DataGridView1.CurrentCell DataGridView1(iCol 1iRow)
        End If
    End Sub       

لكل من شارك فى اجابة اسئلتى خالص التحية و الاحترام
و عرفان بالجميل
اشكركم انتم و اسرة هذا المنتدى على ماقدتموه فى خدمة المبتدئين امثالى
الرد }}}
تم الشكر بواسطة: علاء الكبابي
#5
مالمقصود بالتعديل او قبل التعديل؟ ولماذا الحاجة الى كودين ارجو التوضيح ان امكن مع الشكر
الرد }}}
تم الشكر بواسطة:
#6
قد يكون المستخدم بحاجة الى تعديل البيانات الموجودة في خلايا الداتاجريد لذلك عند تعديل هذه البيانات في خلايا الداتاجريد، وعند الانتهاء من التعديل يتم الضغط انتر فينفذ كود التنقل
وقد لا يكون المستخدم بحاجة الى الدخول الى الخلية وتعديلها ، لذلك ينفذ كود التنقل بدون تعديل

انتبه الى مكان اجراء الكود
CellEndEdit
KeyDow
الرد }}}
تم الشكر بواسطة: علاء الكبابي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى جمع عمود فى داتا جريد فيو احمد خطاب 3 152 06-03-24, 07:49 PM
آخر رد: احمد خطاب
  حذف الاسطر الفارغه من الداتا جريد فيو اليوم السابع 3 2,357 03-03-24, 12:57 AM
آخر رد: مصمم هاوي
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 223 25-02-24, 11:26 PM
آخر رد: heem1986
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  [VB.NET] مشكلة التاريخ في الداتا قريد فيو مبرمج صغير 1 6 399 24-01-24, 10:12 PM
آخر رد: annagui
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 304 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  حماية عمود داخل ورقة الاكسل العيدروس 3 190 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 460 10-11-23, 11:08 AM
آخر رد: khalidalwdi
  ممكن كود ترقيم تلقائي في الداتا غريد فيو المبرمج البسيط 16 10,577 08-11-23, 01:44 AM
آخر رد: الحزين اليماني
  انتقال المؤشر بين الخلايا في نفس الصف في الداتا جريد فيو fares_mohammed 2 462 03-11-23, 09:57 PM
آخر رد: fares_mohammed

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


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