تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة نسخ ولصق في داتا كريد فيو
#1
السلام عليكم
اريد كود يقوم بنسخ ولصق في داتا كريد فيو

عندي كود ينسخ و عند لصق يعكس الاعمدة

الكود في المرفقات


الملفات المرفقة
.doc   Private Sub datagrid.doc (الحجم : 31 ك ب / التحميلات : 15)
الرد
تم الشكر بواسطة:
#2
أستخدم هذا


كود :
Imports System.Text.RegularExpressions



كود :
  Try
            If e.Control And (e.KeyCode = Keys.C) Then
                Dim d As DataObject = DataGrid.GetClipboardContent()
                Clipboard.SetDataObject(d)
                e.Handled = True
            ElseIf (e.Control And e.KeyCode = Keys.V) Then
                Dim rowLines As String() = Clipboard.GetText(TextDataFormat.Text).Split({0}, StringSplitOptions.None)
                Dim Cell As Byte
                For Each x As Match In Regex.Matches(rowLines(0), "(\t|^).+?", RegexOptions.RightToLeft)
                    DataGrid(Cell, DataGrid.CurrentRow.Index).Value = x.Value
                    Cell += 1
                Next
            End If
        Catch ex As Exception
            'Log Exception
        End Try

يمكنك أيضا الاستغناء عن المصفوفة والتعامل مع النص المنسوخ مباشرة

كود :
  Dim Cell As Byte
                For Each x As Match In Regex.Matches(Clipboard.GetText, "(\t|^).+?", RegexOptions.RightToLeft)
                    DataGrid(Cell, DataGrid.CurrentRow.Index).Value = x.Value
                    Cell += 1
                Next
الرد
تم الشكر بواسطة: سعود , ابراهيم ايبو , rochdi191
#3
(12-06-20, 07:56 PM)سامي محمد كتب : أستخدم هذا


كود :
Imports System.Text.RegularExpressions



كود :
  Try
            If e.Control And (e.KeyCode = Keys.C) Then
                Dim d As DataObject = DataGrid.GetClipboardContent()
                Clipboard.SetDataObject(d)
                e.Handled = True
            ElseIf (e.Control And e.KeyCode = Keys.V) Then
                Dim rowLines As String() = Clipboard.GetText(TextDataFormat.Text).Split({0}, StringSplitOptions.None)
                Dim Cell As Byte
                For Each x As Match In Regex.Matches(rowLines(0), "(\t|^).+?", RegexOptions.RightToLeft)
                    DataGrid(Cell, DataGrid.CurrentRow.Index).Value = x.Value
                    Cell += 1
                Next
            End If
        Catch ex As Exception
            'Log Exception
        End Try

يمكنك أيضا الاستغناء عن المصفوفة والتعامل مع النص المنسوخ مباشرة

كود :
  Dim Cell As Byte
                For Each x As Match In Regex.Matches(Clipboard.GetText, "(\t|^).+?", RegexOptions.RightToLeft)
                    DataGrid(Cell, DataGrid.CurrentRow.Index).Value = x.Value
                    Cell += 1
                Next

شكرا لك اخي لكن الكود غير شغال
الرد
تم الشكر بواسطة: سعود , ابراهيم ايبو
#4
اخي الكريم صاحب السؤال ...
السؤال غير واضح والمرفق باين انه ملف وورد وانت لست بحاجة لرفع ملف ان اردت سرد كود بل مباشرة اكتب الكود.
ساعد اخوانك ليقدمو لك الحل باسرع مايمكن.
تحياتي اخي الكريم.
الرد
#5
الكود شغال بدون اي مشاكل .... لكن يجب ان لا يكون المأشر اخل الخلية عند نسخ الصف او لصقه ..... انقر على المساحة التي في بداية الصف بحث تكون جميع الخلايا مظلله وبدون
.... المأشر ان كان داخل الخلية فان عملية الصق تتم داخل الخلية وليس الصف
الرد
تم الشكر بواسطة: ابراهيم ايبو , rochdi191
#6
(12-06-20, 09:28 PM)سعود كتب : اخي الكريم صاحب السؤال ...
السؤال غير واضح والمرفق باين انه ملف وورد وانت لست بحاجة لرفع ملف ان اردت سرد كود بل مباشرة اكتب الكود.
ساعد اخوانك ليقدمو لك الحل باسرع مايمكن.
تحياتي اخي الكريم.

اخي سعود حاولت نسخ الكود في الرد لكن كان يتجزا لذا وضعته في ملف الورد
وهذا المشكل عند نسخ ولصق
الرد
تم الشكر بواسطة:
#7
ارجوا كود نسخ ولصق datagridview
الرد
تم الشكر بواسطة:
#8
(12-06-20, 10:26 PM)سامي محمد كتب : الكود شغال بدون اي مشاكل .... لكن يجب ان لا يكون المأشر اخل الخلية عند نسخ الصف او لصقه ..... انقر على المساحة التي في بداية الصف بحث تكون جميع الخلايا مظلله وبدون
.... المأشر  ان كان داخل الخلية فان عملية الصق تتم داخل الخلية وليس الصف

السلام عليكم
اخي سامي محمد جزاك الله خيرا الكود شغال
لم انتبه الى السطر الثاني عند تعديل عليه اشتغل الكود تمام
شكرا جزيلا
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] حل مشكلة تشغيل برنامج يعمل ب net framework 4.5 عبدالكريم برشدان 0 31 , 04:30 PM
آخر رد: عبدالكريم برشدان
  [VB.NET] حل مشكلة فتح مشروع قديم ibrahimhuseen828 2 242 , 03:43 AM
آخر رد: ibrahimhuseen828
  [سؤال] لدي مشكلة في عمل لوحة دخول مرتبطة في قاعدة بيانات اكسس مجـ متعلم ـرد 2 107 20-10-21, 08:48 PM
آخر رد: مجـ متعلم ـرد
  [سؤال] عاوز داتا بيز حسن الجلب 2 100 18-10-21, 08:06 PM
آخر رد: asemshahen5
  مشكلة في توليد arabic qr code osmana2005 6 4,392 10-10-21, 04:49 PM
آخر رد: mahtawfik
  مشكلة عند تحويل البيانات من الداتاقريدفيو الى الإكسل جيولوجي مبتدئ 3 204 09-10-21, 06:55 PM
آخر رد: ahmed4
  [VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح) saramustafa182 1 184 07-10-21, 11:32 AM
آخر رد: asemshahen5
  [VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح) saramustafa182 1 216 06-10-21, 08:33 PM
آخر رد: ابو انس
  [VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح) saramustafa182 0 127 06-10-21, 07:07 PM
آخر رد: saramustafa182
  [VB.NET] مشكلة تظهر عند تنصيب فيجوال ستوديو 2019 اباذر 4 3,472 04-10-21, 03:57 PM
آخر رد: Mohammed_khalil

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


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