Rabu, 30 November 2011

Objek Visual BASIC | PROGRAMER

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.
 
Mengakses Teks di dalam Clipboard 
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'

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.
'*** 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:

Poskan Komentar

Template by:
Free Blog Templates