12-06-20, 05:52 PM
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
Next12-06-20, 08:29 PM
(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
شكرا لك اخي لكن الكود غير شغال
12-06-20, 09:28 PM
اخي الكريم صاحب السؤال ...
السؤال غير واضح والمرفق باين انه ملف وورد وانت لست بحاجة لرفع ملف ان اردت سرد كود بل مباشرة اكتب الكود.
ساعد اخوانك ليقدمو لك الحل باسرع مايمكن.
تحياتي اخي الكريم.
السؤال غير واضح والمرفق باين انه ملف وورد وانت لست بحاجة لرفع ملف ان اردت سرد كود بل مباشرة اكتب الكود.
ساعد اخوانك ليقدمو لك الحل باسرع مايمكن.
تحياتي اخي الكريم.
12-06-20, 10:26 PM
الكود شغال بدون اي مشاكل .... لكن يجب ان لا يكون المأشر اخل الخلية عند نسخ الصف او لصقه ..... انقر على المساحة التي في بداية الصف بحث تكون جميع الخلايا مظلله وبدون
.... المأشر ان كان داخل الخلية فان عملية الصق تتم داخل الخلية وليس الصف
.... المأشر ان كان داخل الخلية فان عملية الصق تتم داخل الخلية وليس الصف
12-06-20, 11:31 PM
(12-06-20, 09:28 PM)سعود كتب : [ -> ]اخي الكريم صاحب السؤال ...
السؤال غير واضح والمرفق باين انه ملف وورد وانت لست بحاجة لرفع ملف ان اردت سرد كود بل مباشرة اكتب الكود.
ساعد اخوانك ليقدمو لك الحل باسرع مايمكن.
تحياتي اخي الكريم.
اخي سعود حاولت نسخ الكود في الرد لكن كان يتجزا لذا وضعته في ملف الورد
وهذا المشكل عند نسخ ولصق
15-06-20, 12:58 AM
ارجوا كود نسخ ولصق datagridview
15-06-20, 04:38 PM
(12-06-20, 10:26 PM)سامي محمد كتب : [ -> ]الكود شغال بدون اي مشاكل .... لكن يجب ان لا يكون المأشر اخل الخلية عند نسخ الصف او لصقه ..... انقر على المساحة التي في بداية الصف بحث تكون جميع الخلايا مظلله وبدون
.... المأشر ان كان داخل الخلية فان عملية الصق تتم داخل الخلية وليس الصف
السلام عليكم
اخي سامي محمد جزاك الله خيرا الكود شغال
لم انتبه الى السطر الثاني عند تعديل عليه اشتغل الكود تمام
شكرا جزيلا