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 ]
[ VB 6.0 ]
Clipboard.Clear
Clipboard.SetText "Teks yang akan di-copy", vbCFText
Clipboard.SetText "Teks yang akan di-copy", vbCFText
- Meng-copy Gambar (gambar diambil dari kontrol Picture1)
Clipboard.Clear
Clipboard.SetData Picture1.Picture, vbCFBitmap
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
'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
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :