Ole drag-drop

Menggunakan OLE Drag-Drop

15.1. Apa Itu OLE Drag-Drop?

OLE (Object Linking and Embedding) Drag-Drop adalah jenis drag-drop yang memungkinkan user untuk menyalin atau memindahkan data dari satu bagian ke bagian yang lain di dalam satu program atau dengan program yang lain. Sebagian besar program-program buatan Microsoft (seperti Microsoft Office) ataupun perusahaan lain (seperti Adobe PhotoShop) mendukung penggunaan OLE drag-drop.

15.2. OLE Drag-Drop dengan VB 6.0

VB 6.0 menyediakan beberapa property, method dan event yang berhubungan dengan OLE drag-drop. Operasi OLE drag-drop melibatkan object source dan object target. Hanya beberapa komponen pada VB 6.0 yang bisa digunakan sebagai object source maupun target, yaitu: TextBox, ComboBox, ListBox, Image, PictureBox, DirListBox dan FileListBox. Sedangkan komponen lainya hanya bisa digunakan sebagai object target, seperti: CommandButton, CheckBox, OptionButton, Label dan Form.

Property, method dan event yang berhubungan dengan OLE drag-drop adalah sebagai berikut:

Properti	Object	Ketrangan
OLEDragMode	Source	Menentukan bagaimana OLE drag dimulai: - Manual (vbOLEDragManual = 0, default) atau - Otomatis (vbOLEDragAutomatic = 1)
OLEDropMode	Target	Menentukan bagaimana OLE drop dilakukan: - Diabaikan (vbOLEDropNone = 0, default) - Manual (vbOLEDropManual = 1) atau - Otomatis (vbOLEDropAutomatic = 2)
Method	Object	Ketrangan
OLEDrag	Source	Digunakan untuk memulai OLE drag secara manual (property OLEDragMode diset vbOLEDragManual).
Event	Object	Ketrangan
OLEStartDrag	Source	Saat operasi OLE drag-drop dimulai.
OLECompleteDrag	Source	Saat proses drop pada object target selesai.
OLEDragOver	Target	Saat pointer mouse melewati object target selama operasi OLE drag-drop berlangsung.
OLEDragDrop	Target	Saat data di-drop pada object target.

Ada tiga argumen penting pada event-event OLE drag-drop, yaitu: AllowedEffects, Effect dan Data. Argumen AllowedEffects dan Effect digunakan untuk menentukan efek OLE drag-drop yang diperbolehkan atau yang digunakan. Nilai untuk kedua argumen tersebut adalah sebagai berikut:

Nilai	Keterangan
vbDropEffectNone = 0	Data tidak bisa diterima oleh object target.
vbDropEffectCopy = 1	Data disalin ke object target.
vbDropEffectMove = 2	Data dipindahkan ke object target.

Sedangkan argumen data merupakan object DataObject yang digunakan selama operasi OLE drag-drop

berlangsung.

 Object DataObject

Untuk menangani OLE drag-drop secara manual digunakan object DataObject untuk menyimpan data

dan format datanya. Property dan method yang dimiliki object DataObject adalah:

Properti	Keterangan
File	Koleksi nama-nama file (format datanya vbCFFiles)
Method	Keterangan
Clear	Menghapus semua data dan format datanya.
GetData(format)	Mengambil data yang tersimpan. Argumen format digunakan untuk menentukan format data yang diambil.
GetFormat(format)	Mengetahui format data yang tersimpan. Akan menghasilkan nilai True (bila formatnya sesuai) atau False (bila formatnya tidak sesuai).
SetData value, [format]	Menyimpan data dengan format tertentu. Argumen value adalah data yang akan disimpan.

Nilai untuk argumen format adalah sebagai berikut:

Nilai	Keterangan
Dikosongkan = 0	Format data akan ditentukan otomatis berdasarkan datanya.
vbCFText = 1	Data teks
vbCFBitmap = 2	Data bitmap (gambar)
vbCFMetafile = 3	Data metafile (gambar)
vbCFDIB = 8	Data device-independent bitmap (gambar)
vbCFFiles = 15	Data file