Clipboard

Secara awam, Clipboard adalah tempat di komputer untuk menyimpan data sementara ketika melakukan proses cut/copy-paste, baik data tersebut berupa teks, gambar, file atau yang lain. Dalam VB terdapat fungsi / prosedur khusus untuk mengoperasikan Clipboard secara sederhana. Berikut ini contoh penggunaannya :


[ VB 6.0 ]

• Meng-copy Teks

Clipboard.Clear
Clipboard.SetText "Teks yang akan di-copy", vbCFText

• Meng-copy Gambar (gambar diambil dari kontrol Picture1)

Clipboard.Clear
Clipboard.SetData Picture1.Picture, vbCFBitmap

• Meng-paste Teks (ditampung di kontrol Text1)

Text1.Text = Clipboard.GetText(vbCFText)

• Meng-paste Gambar (ditampung di kontrol Picture1)

Picture1.Picture = Clipboard.GetData(vbCFBitmap)

• Memeriksa apakah berisi data Teks (pesan MsgBox)

MsgBox Clipboard.GetFormat(vbCFText)

• Memeriksa apakah berisi data Gambar (pesan MsgBox)

MsgBox Clipboard.GetFormat(vbCFBitmap)

• Menghapus data

Clipboard.Clear

[ VB .NET ]

• Meng-copy Teks

Clipboard.SetText("Teks yang akan di-copy")

• Meng-copy Gambar (gambar diambil dari kontrol PictureBox1)

Clipboard.SetImage(PictureBox1.Image)

• Meng-paste Teks (ditampung di kontrol TextBox1)

TextBox1.Text = Clipboard.GetText

• Meng-paste Gambar (ditampung di kontrol PictureBox1)

PictureBox1.Image = Clipboard.GetImage

• Memeriksa apakah berisi data Teks (pesan MsgBox)

MsgBox(Clipboard.ContainsText)

• Memeriksa apakah berisi data Gambar (pesan MsgBox)

MsgBox(Clipboard.ContainsImage)

• Menghapus data

Clipboard.Clear

p;

Command1_click()

Me.TxtPath.Text = SelectFolder

End if

[ VB .NET ]
Kode untuk memanggilnya adalah :

Dim dlg As New FolderBrowserDialog

'jk ingin yg MyDocuments saja, aktifkan kode d bawah ini
'dlg.RootFolder = Environment.SpecialFolder.MyDocuments

dlg.Description = "Pilih Folder"

If dlg.ShowDialog() = 1 Then
MsgBox(dlg.SelectedPath) 'folder yg terpilih
End If