Comment puis-je récupérer un DataGridView à partir du Presse-papiers? (Il finit par être Null dans le Presse-papiers)

Question

Je suis incapable de lire un objet datagridview collé à partir du Presse-papiers. Tout ce que je veux faire est, quand un utilisateur a la ligne entière sélectionnée et copiée, je voudrais coller cette ligne dans le presse-papiers en tant que DataObject. Cela fonctionne très bien mais lorsque j'essaie de lire ce DataObject (après que l'utilisateur clique sur Coller) le DataGridViewRow qui est enregistré dans le Presse-papiers a toujours une valeur de Nothing. S'il vous plaît aider!

Voici le code que j'utilise pour copier et coller.

Private Sub copyToClipboard() 
    If DataGridView1.CurrentCell IsNot Nothing AndAlso _ 
     DataGridView1.CurrentCell.Value IsNot Nothing Then 
     If DataGridView1.SelectedRows.Count = 1 Then 
      My.Computer.Clipboard.SetData(GetType(DataGridViewRow).ToString, getActiveGrid.SelectedRows(0)) 
     End If 
    End If 
End Sub 

Private Sub pasteFromClipboard() 
    Dim oDataObject As IDataObject = My.Computer.Clipboard.GetDataObject 
    If oDataObject.GetDataPresent(GetType(DataGridViewRow).ToString) Then 
     Dim GridRow As DataGridViewRow = _ 
      DirectCast(oDataObject.GetData(GetType(DataGridViewRow).ToString), DataGridViewRow) 
     ' here's the issue. the variable GridRow always has a value of nothing. 
    End If 
End Sub 

Answer 1

Voici ce que j'utilise:

Private Sub mnuCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCopy.Click 
    If dgvDisplaySet.GetClipboardContent Is Nothing Then 
     MsgBox("Nothing selected to copy to clipboard.") 
    Else 
     Clipboard.SetDataObject(dgvDisplaySet.GetClipboardContent) 
    End If 
End Sub 

I La propriété clipboardCopyMode de la vue de grille de données est également définie sur EnableAlwaysIncludeHeaderText.

Je veux copier les cellules qu'ils ont sélectionnées.

HTH

Answer 2

D'après ce que je peux dire le Presse-papiers ne peut pas prendre le format DataGridViewRow. C'est pourquoi vous ne récupérez rien.

Essayez ceci:

Private Sub copyToClipboard() 
If DataGridView1.CurrentCell IsNot Nothing AndAlso _ 
    DataGridView1.CurrentCell.Value IsNot Nothing Then 
    If DataGridView1.SelectedRows.Count = 1 Then 
     My.Computer.Clipboard.SetDataObject(getActiveGrid.GetClipboardContent()) 
    End If 
End If 
End Sub 

Private Sub pasteFromClipboard() 
Dim oDataObject As IDataObject = My.Computer.Clipboard.GetDataObject 
If oDataObject.GetDataPresent(DataFormats.Text) Then 
    Dim strRow as String = Clipboard.GetData(DataFormats.Text) 

    'Then create a datagridrow using the data  

End If 
End Sub 

Vous pouvez également vérifier ici (il est C#, mais les concepts sont les mêmes): Row copy/paste functionality in DataGridview(windows application)