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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد ترقيم الداتا جريد فيو سمير جمال 6 66 منذ 10 ساعة مضت
آخر رد: عبدالله الدوسري
  محتاج اضافة داخل الفيجوال بيسك 2010 Mohamed Magdy 2 46 أمس, 02:55 PM
آخر رد: Mohamed Magdy
  ضبط وضع الكتابة داخل الليست بوكس ابو روضة 4 76 13-11-18, 02:23 AM
آخر رد: ابو روضة
  سؤال فى الداتا جريد فيو احمد خطاب 2 75 11-11-18, 11:19 PM
آخر رد: احمد خطاب
  كود للداتا جريد salah mansour 4 83 11-11-18, 10:58 PM
آخر رد: Rabeea Qbaha
  [VB.NET] شرح واجهة داخل الفيجول ستوديو محمد اسماعيل 0 44 10-11-18, 10:50 PM
آخر رد: محمد اسماعيل
Rainbow [VB.NET] Grid View داخل Combo box محمد 12362 1 42 08-11-18, 02:56 PM
آخر رد: elgokr
Big Grin يرجى المساعدة في ترتيب البيانات في الداتا جريد فيو ahmadpal 3 45 05-11-18, 10:41 PM
آخر رد: ahmadpal
  مشكله في الداتا سيت makky 2 63 05-11-18, 05:23 PM
آخر رد: makky
  [سؤال] طلب تعديل علي رابط موقع داخل الكود ScreamVoice 2 75 04-11-18, 01:22 PM
آخر رد: ScreamVoice

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


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