 |
| Pembuatan KONTROL ACTIVEX FORM ( Visual Basic ) |
NET24.xyz- Kontrol form yaitu
kontrol-kontrol yang berfungsi mengubah tampilan form, antara lain form
untuk mengubah bentuk form, memberi warna pada form, dan kontrol untuk
memberi skin seperti halnya program WinAmp yang dapat diganti-ganti
skin-nya. Selamat mempe-lajarinya dan semoga yang diberikan dalam buku
ini bermanfaat.
Form Berbentuk Elips
Langkah awal yang akan penulis tunjukkan dari manipulasi form
menggunakan kontrol ActiveX adalah membuat form menjadi berbentuk elips.
Di sini kita akan menggunakan 4 fungsi dari API Windows, yaitu:
- CreateEllipticRgn untuk membentuk objek baru berbentuk elips/bulat.
- SetWindowRgn untuk mengubah bentuk form sesuai objek yang telah kita bentuk sebelumnya.
- DeleteObject untuk menghapus objek yang telah kita bentuk dari fungsi pertama.
- CreateRectRgn untuk membentuk objek sesuai bentuk form semula.
Cara penulisan CreateEllipticRgn dan CreateRectRgn adalah sebagai berikut:
Variabel (bertype long) = CreateEllipticRgn(x1, y1, x2, y2)
Variabel (bertype long) = CreateRectRgn(x1, y1, x2, y2)
Keterangan:
x1 = koordinat x pojok kiri atas lingkaran
y1 = koordinat y pojok kiri atas lingkaran
x2 = koordinat x pojok kanan bawah lingkaran
y2 = koordinat y pojok kanan bawah lingkaran
Cara penulisan SetWindowRgn adalah sebagai berikut:
SetWindowRgn(handle, variabel, True)
Handle di sini maksudnya adalah handle dari form ataupun kontrol lainnya yang akan diubah atau disesuaikan bentuknya (untuk form yaitu Form.hwnd).
Sintaks untuk DeleteObject adalah:
DeleteObject(variabel).
Oleh karena form kita berubah bentuk menjadi elips, kita akan kehilangan bar caption dari form sehingga akan menyulitkan kita untuk menggeser form kita yang tidak memiliki bar caption. Oleh sebab itu supaya dapat menggesernya maka kita menggunakan 2 fungsi API, yaitu SendMessage untuk mengirim pesan tertentu ke window untuk suatu memanggil proses tertentu dari Windows dan fungsi kedua, yaitu ReleaseCapture untuk menimbulkan proses tombol mouse.
Keuntungan penggunaan ActiveX di sini adalah saat perancangan program setelah ActiveX ini dimasukkan ke dalam form program kita maka form sudah dapat terlihat berbentuk elips sehingga kita dapat mengatur letak kontrol-kontrol yang lain di dalam form kita tersebut dalam rangka membuat program EXE seperti gambar berikut ini.
Variabel (bertype long) = CreateEllipticRgn(x1, y1, x2, y2)
Variabel (bertype long) = CreateRectRgn(x1, y1, x2, y2)
Keterangan:
x1 = koordinat x pojok kiri atas lingkaran
y1 = koordinat y pojok kiri atas lingkaran
x2 = koordinat x pojok kanan bawah lingkaran
y2 = koordinat y pojok kanan bawah lingkaran
Cara penulisan SetWindowRgn adalah sebagai berikut:
SetWindowRgn(handle, variabel, True)
Handle di sini maksudnya adalah handle dari form ataupun kontrol lainnya yang akan diubah atau disesuaikan bentuknya (untuk form yaitu Form.hwnd).
Sintaks untuk DeleteObject adalah:
DeleteObject(variabel).
Oleh karena form kita berubah bentuk menjadi elips, kita akan kehilangan bar caption dari form sehingga akan menyulitkan kita untuk menggeser form kita yang tidak memiliki bar caption. Oleh sebab itu supaya dapat menggesernya maka kita menggunakan 2 fungsi API, yaitu SendMessage untuk mengirim pesan tertentu ke window untuk suatu memanggil proses tertentu dari Windows dan fungsi kedua, yaitu ReleaseCapture untuk menimbulkan proses tombol mouse.
Keuntungan penggunaan ActiveX di sini adalah saat perancangan program setelah ActiveX ini dimasukkan ke dalam form program kita maka form sudah dapat terlihat berbentuk elips sehingga kita dapat mengatur letak kontrol-kontrol yang lain di dalam form kita tersebut dalam rangka membuat program EXE seperti gambar berikut ini.
Pembuatan KONTROL ACTIVEX FORM ( Visual Basic )
Reviewed by masran
on
2:03 PM
Rating:
Reviewed by masran
on
2:03 PM
Rating:
No comments: