Breaking News
Loading...

Objek Visual BASIC | PROGRAMER

11:08 PM


Objek Visual BASIC | PROGRAMER - 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,....

 



Visual Basic telah menyediakan objek Clipboard untuk mengakses isi clipboard dengan mudah. Untuk mengambil teks dari clipboard



Clipboard.GetText


Contoh penggunaan :



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'







Untuk mengambil data dalam bentuk gambar ( bitmap ) dari clipboard



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



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,...


 
Toggle Footer