Knippen, Kopieeren en plakken

[Twanno5483]

Hoi allemaal,

Hier ben ik weer. zou op dit moment willen weten hoe ik kan knippen, kopieeren en plakken d.m.v. clipboard.

Dit heb ik door te googlen gevonden, maar het werkt niet echt. Ik loop een beetje vast.

 Private Sub CutToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CutToolStripMenuItem.Click
        ' Use My.Computer.Clipboard to insert the selected text or images into the clipboard
        Clipboard.SetDataObject(Artikelen.Art_OmschrijvingTextBox.SelectedText)
        Artikelen.Art_OmschrijvingTextBox.SelectedText = ""
        Clipboard.SetDataObject(Artikelen.Art_MerkTextBox.SelectedText)
        Artikelen.Art_MerkTextBox.SelectedText = ""
        Clipboard.SetDataObject(Artikelen.Art_TypeTextBox.SelectedText)
        Artikelen.Art_TypeTextBox.SelectedText = ""
        Clipboard.SetDataObject(Artikelen.Art_BasisvrdTextBox.SelectedText)
        Artikelen.Art_BasisvrdTextBox.SelectedText = ""
        Clipboard.SetDataObject(Artikelen.Art_VrdTextBox.SelectedText)
        Artikelen.Art_VrdTextBox.SelectedText = ""
        Clipboard.SetDataObject(Artikelen.Art_MaxVrdTextBox.SelectedText)
        Artikelen.Art_MaxVrdTextBox.SelectedText = ""
        Clipboard.SetDataObject(Artikelen.TextBox1.SelectedText)
        Artikelen.TextBox1.SelectedText = ""
        Clipboard.SetDataObject(Categorie.CategorieTextBox.SelectedText)
        Categorie.CategorieTextBox.SelectedText = ""
        Clipboard.SetDataObject(Mutaties.Zoekbox.SelectedText)
        Mutaties.Zoekbox.SelectedText = ""


    End Sub

    Private Sub CopyToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CopyToolStripMenuItem.Click
        ' Use My.Computer.Clipboard to insert the selected text or images into the clipboard
        Clipboard.SetDataObject(Artikelen.Art_OmschrijvingTextBox.SelectedText)
        Clipboard.SetDataObject(Artikelen.Art_MerkTextBox.SelectedText)
        Clipboard.SetDataObject(Artikelen.Art_TypeTextBox.SelectedText)
        Clipboard.SetDataObject(Artikelen.Art_BasisvrdTextBox.SelectedText)
        Clipboard.SetDataObject(Artikelen.Art_VrdTextBox.SelectedText)
        Clipboard.SetDataObject(Artikelen.Art_MaxVrdTextBox.SelectedText)
        Clipboard.SetDataObject(Artikelen.TextBox1.SelectedText)
        Clipboard.SetDataObject(Categorie.CategorieTextBox.SelectedText)
        Clipboard.SetDataObject(Mutaties.Zoekbox.SelectedText)


    End Sub

    Private Sub PasteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PasteToolStripMenuItem.Click
        'Use My.Computer.Clipboard.GetText() or My.Computer.Clipboard.GetData to retrieve information from the clipboard.
        My.Computer.Clipboard.GetText()
    End Sub

Alvast bedankt
Twan

 

[evertVB]

Kopieren gaat zo:

        My.Computer.Clipboard.SetText(TextBox1.Text)

(In dit voorbeeld wordt TextBox1.text in het clipboard geplaatst.)



Plakken gaat zo:

    Public Function GetClipboardText() As String
        Dim objClipboard As IDataObject = Clipboard.GetDataObject()
        GetClipboardText = ""
        With objClipboard
            If .GetDataPresent(DataFormats.Text) Then Return .GetData(DataFormats.Text)
        End With
    End Function

    ...
        TextBox1.Text = GetClipboardText()
    ...

(In dit voorbeeld wordt de inhoud van het clipboard in TextBox1 geplaatst.)