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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة عند البحث بالداتا جريد فيو محمد اسماعيل 4 0 منذ 1 ساعه مضت
آخر رد: محمد اسماعيل
  نقل البيانات من ملف نصي لداتا جريد فيو محمد اسماعيل 10 0 17-02-18, 05:18 PM
آخر رد: محمد اسماعيل
  سؤال في الداتا جريدفيو emamtron2014 3 0 16-02-18, 05:27 PM
آخر رد: emamtron2014
  اريد كود يقوم بفتح ملف exe موجود داخل My.Resources ؟ التفاصيل في الداخل . DanyGhost2010 1 0 15-02-18, 04:22 PM
آخر رد: عبد العزيز البسكري
  [سؤال] هل يمكن عمل مجاميع رئيسية وفرعية داخل داتا جريد فيو السيد الجوهري 9 0 11-02-18, 07:52 PM
آخر رد: محمود صالح
  [سؤال] اذا عندي ستورد بروسيدجر بيعرض بيانات داخل الداتا جريد فيو السيد الجوهري 1 0 11-02-18, 08:42 AM
آخر رد: طالب برمجة
  [سؤال] مساعدة في إضافة العلامة العشرية والفاصلة داخل تكست بوكس والجريد فيو بيسك لكل العرب 4 2 11-02-18, 12:35 AM
آخر رد: nooralcown
  [VB.NET] حذف صف من داتا جريد فيو محمد اسماعيل 8 0 07-02-18, 05:41 PM
آخر رد: محمد اسماعيل
  كيفية اضافة صورة لزر في الداتا قريد فيو المتألق9 2 1 06-02-18, 03:35 PM
آخر رد: المتألق9
  [VB.NET] الاستعلام عن صفوف بشروط معينة بالداتا جريد محمد اسماعيل 0 0 06-02-18, 12:40 PM
آخر رد: محمد اسماعيل

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


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