|
Clipboard.GetText
|
|
Dim S As String
S = Clipboard.GetText MsgBox S |
|
Clipboard.Clear
Clipboard.SetText str 'str adalah String |
|
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)
|
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 |
|
Clipboard.Clear
Clipboard.SetData dt, vbCFBitmap 'dt adalah data berformat gambar, 'bisa menggunakan objek IPictureDisp |
|
'***
kode untuk Command1
Private Sub Command1_Click() Clipboard.Clear Clipboard.SetData Picture1.Image, vbCFBitmap MsgBox "Gambar kini sudah ada di dalam Clipboard" End Sub |






