Tips Visual Basic: Mengakses Teks dan Gambar di dalam Clipboard

            
Visual Basic menyediakan objek-objek bawaan yang memungkinkan para programmer untuk mengakses isi clipboard, baik mengambil isi clipboard maupun memasukkan data ke clipboard, dengan mudah. Format data yang bisa diakses dari clipboard dapat berupa teks, gambar, rich text, daftar file, dan lain-lain semuanya bisa diakses lewat Visual Basic. Dalam halaman ini, diberikan tips-tips mengakses data berupa teks dan gambar dari clipboard menggunakan Visual Basic.
Mengakses Teks di dalam Clipboard

Visual Basic telah menyediakan objek Clipboard untuk mengakses isi clipboard dengan mudah.
Untuk mengambil teks dari clipboard, gunakan instruksi ini:

Clipboard.GetText

Contoh penggunaan:

Dim S As String S = Clipboard.GetText MsgBox S

Sedangkan untuk memasukkan teks ke dalam clipboard, bisa digunakan instruksi berikut:

Clipboard.Clear Clipboard.SetText str   'str adalah String

Contoh penggunaan:

Dim S As String S = "tes 123" Clipboard.Clear Clipboard.SetText S     'clipboard sekarang berisi teks: 'tes 123'

Mengakses Gambar di dalam Clipboard

Untuk mengambil data dalam bentuk gambar (bitmap) dari clipboard, gunakan instruksi berikut:

Clipboard.GetData(vbCFBitmap)

Contoh penggunaan:

Buat kontrol PictureBox (Picture1) dan CommandButton (Command1) ke atas Form.

'*** kode untuk Command1 Private Sub Command1_Click()     If Not Clipboard.GetFormat(vbCFBitmap) Then         MsgBox "Tidak ada gambar di dalam Clipbooard !"         Exit Sub     End If     Picture1.Picture = Clipboard.GetData(vbCFBitmap)     End Sub

Keterangan: Sebelum anda klik tombol Command1, lakukan PrintScreen lebih dahulu (tekan tombol PrintScreen di keyboard). Gambar hasil printscreen akan ditampilkan di atas kontrol Picture1.

--------------
Adapun untuk memasukkan data berformat gambar ke clipboard, gunakan instruksi ini:

Clipboard.Clear Clipboard.SetData dt, vbCFBitmap   'dt adalah data berformat gambar,                                    'bisa menggunakan objek IPictureDisp

Contoh penggunaan:

Berikut ini kita akan memasukkan gambar yang telah ada di PictureBox ke dalam clipboard.
Buat kontrol PictureBox (Picture1) dan CommandButton (Command1) ke atas Form. Masukkan gambar ke dalam Picture1 lewat property Picture.

'*** kode untuk Command1 Private Sub Command1_Click()     Clipboard.Clear     Clipboard.SetData Picture1.Image, vbCFBitmap     MsgBox "Gambar kini sudah ada di dalam Clipboard"     End Sub

Keterangan: Untuk menguji contoh di atas, setelah anda klik tombol Command1, bukalah program Paint milik Windows, lalu Paste (CTRL+V). Kalau gambar yang ada di Picture1 muncul di program Paint, berarti contoh di atas berhasil. Saya sendiri sudah mencobanya dan berhasil.
    

Thanks for reading & sharing INFO COMPUTER