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
Clipboard.GetText
|
Dim S As String
S = Clipboard.GetText MsgBox S |
untuk memasukkan teks ke dalam
clipboard
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
Clipboard.GetData(vbCFBitmap)
|
Contoh penggunaan :
Buat kontrol PictureBox (Picture1) dan CommandButton (Command1) ke atas Form.
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
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.
Tidak ada komentar:
Posting Komentar