Vágólap felhasználása programból

A megoldáshoz a Clipboard osztályt kell felhasználnunk. Ha egy sztringet szeretnénk a vágólapon elhelyezni, akkor ehhez a SetDataObject függvényt használhatjuk, paraméterként átadva az adott szöveget.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Clipboard.SetDataObject(TextBox1.Text)
    TextBox1.Text = ""
End Sub

A SetDataObject-nél ha második paraméterként egy igaz értéket is átadunk, akkor az így elhelyezett adat a programunk bezárása után is megmarad a vágólapon.

Kissé bonyolultabb feladat a vágólapról történő szöveg beillesztése, felhasználása alkalmazásunkban. Ehhez szükségünk lesz egy IDataObject osztályra. Amikor a Clipboard osztályból meghívjuk a GetDataObject függvényt, akkor ez egy ilyen típusú objektumot ad vissza. Mivel a vágólapon nem csak szöveg lehet, hanem nagyon sok más típusú adat is, így felhasználása előtt ezt ellenőriznünk kell. Ehhez a GetDataPresent függvényt kell meghívnunk az IDataObject osztályból, melynek paraméterként meg kell adnunk az ellenőrzendő típust. Ez a DataFormats felsorolt típus Text eleme lesz, szöveges adat vizsgálatakor. Ha a függvény igaz értékkel tér vissza, akkor az IDataObject szöveg objektumot tárol. Ekkor az osztály GetData függvényével kiolvashatjuk a szöveget, ha paraméterként ismét megadjuk ennek a függvénynek is az iménti Text felsorolt típust.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim ido As IDataObject = Clipboard.GetDataObject()
    If ido.GetDataPresent(DataFormats.Text) Then
        TextBox1.Text = CType(ido.GetData(DataFormats.Text), String)
    End If
End Sub