تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] DataGridView Copy & Paste
#1
ربما تبحث عن كود لعمل نسخ من DataGridView الى اكسل او العكس

الكود هو 

Copy
كود :
Sub Copy(ByVal DGV As DataGridView)
       If DGV.GetCellCount(DataGridViewElementStates.Selected) > 0 Then
           Try
               DGV.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithAutoHeaderText
               Clipboard.SetDataObject(DGV.GetClipboardContent())
           Catch ex As System.Runtime.InteropServices.ExternalException
               MsgBox(ex.Message)
           End Try
       End If
   End Sub

Paste

كود :
   Private Sub Paste(ByVal DGV As DataGridView)
       DGV.Rows.Clear()
       DGV.Columns.Clear()
       Dim s As String
       Dim i, ii As Integer
       Dim arT() As String
       Try
           s = Clipboard.GetText()
           Dim tArr() As String = s.Split(ControlChars.NewLine)
           arT = tArr(0).Split(vbTab)
           Dim word As String
           For Each word In arT
               DGV.Columns.Add(word, word)
           Next
           Dim cc, iRow, iCol As Integer
           For i = 1 To tArr.Length - 2
               DGV.Rows.Add("")
               If tArr(i) <> "" Then
                   arT = tArr(i).Split(vbTab)
                   cc = iCol
                   For ii = 0 To arT.Length - 1
                       If cc > DGV.ColumnCount - 1 Then Exit For
                       If iRow > DGV.Rows.Count - 1 Then Exit Sub
                       With DGV.Item(cc, iRow)
                           .Value = arT(ii).TrimStart
                       End With
                       cc = cc + 1
                   Next
                   iRow = iRow + 1
               End If
           Next
       Catch ex As Exception
           MsgBox("Please redo Copy and Click on cell")
       End Try
   End Sub
الرد }}}}
تم الشكر بواسطة: الضمير المستتر , khodor1985 , khodor1985


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طباعة الداتاقريد Print DataGridView ابو ليلى 4 714 17-08-16, 11:49 AM
آخر رد: nabeelhassan
  تصدير DataGridView الى xls HASAN6.0 1 274 07-04-16, 11:17 PM
آخر رد: A_Baidak
  جمع قيم عمود معين فى datagridview الجندى 6 1,795 09-12-15, 04:40 PM
آخر رد: waled_life2002
  [VB.NET] جمع العمود في datagridview في vb net أحمد النجار 0 640 26-01-15, 01:28 AM
آخر رد: أحمد النجار
  [VB.NET] تنسيق البينات بناء على المدخلات datagridview vb net فيديو أحمد النجار 0 598 24-01-15, 07:42 PM
آخر رد: أحمد النجار

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


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