Vágólapon lévő Bitmap kezelése

Az első nyomógombhoz rendelt kód lementi egy állományba a vágólapon lévő képet. Ehhez persze gondoskodjunk arról, hogy ott az legyen. Ehhez például nyomjuk le a Print Screen billentyűt és máris képet találunk a vágólapon. A vágólapon lévő objektum kezeléséhez az IDataObject osztályra lesz szükségünk. Amikor a Clipboard osztály GetDataObject függvényét meghívjuk, akkor az egy ilyen típusú adatban adja vissza a vágólapon lévő adatot, ami bármi lehet. Következő lépésként ellenőrizzük, hogy ez egyáltalán kép-e. Ha igen, akkor létrehozunk egy Bitmap típusú változót, melyen elhelyezzük a vágólapon lévő képet, majd a Save függvényével mentjük azt egy állományba.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim ido As IDataObject = Clipboard.GetDataObject()
  If ido.GetDataPresent(DataFormats.Bitmap) Then
    Dim b As Bitmap = CType(ido.GetData(DataFormats.Bitmap), Bitmap)
    b.Save("c:\clipboard.bmp")

Második részében példánknak megvalósítjuk, hogy egy állományban lévő kép kerüljön a vágólapra. Ehhez a mellékelt a.bmp állományt másolja át a lefordított EXE könyvtárába, vagy módosítsa a forráskódban az elérési útvonalat.

Első lépésként itt is létrehozunk egy IDataObject objektumot, majd a SetData függvényhívással módosítjuk a vágólap tartalmát. Ehhez létre kell hoznunk egy új Bitmap osztályt, melynek konstruktorában adjuk meg a képet tároló állomány nevet, amely végül a vágólapra kerül.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  Label1.Text = Application.StartupPath + "\a.bmp"
  Clipboard.SetDataObject(New Bitmap(Label1.Text))
End Sub