.:: Jasa Membuat Aplikasi Website,Desktop,Android Order Now..!! | | Order Now..!! Jasa Membuat Project Arduino,Robotic,Print 3D ::.

Clipboard

0 komentar


بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم
bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Assalamu'alaikum warahmatullahi wabarakatuh


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


Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

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 :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين
Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
wassalamualaikum warahmatullahi wabarakatuh


Artikel Clipboard, Diterbitkan oleh scodeaplikasi pada Minggu, 09 Desember 2012. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.

Tawk.to