Cara Membuat Form Bulat pada Visual Basic

Ini dia !
Mungkin membuat form pada VB itu mudah, tinggal klik Add form. namun kali ini Yang jadi permasalahan adalah Bagaimana jika formnya berbentuk BULAT!!!



Belom pernah denger sih, tapi kita coba ajah! oke
langkah-langkahnya sbb :

• Buka Sebuah project dan tambahkan sebuah form, atauuu bisa juga anda membuat project baru.
• Tambahkan sebuah Module, dengan cara pilih menu "Project" kemudian pilih "Add Module"
• Masukkan Script Berikut ke dalam Module : 

	Option Explicit
	Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
	Declare Function CreateEllipticRgn& Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long)

view raw Module hosted with ❤ by GitHub

• Buka form, kemudian double klik pada form tersebut dan masukkan script berikut tepat diantara Private Sub Form_Load() dengan End Sub :

	Dim lbagian As Long
	Dim lhasil As Long
	Me.Width = 600 * Screen.TwipsPerPixelX
	Me.Height = 600 * Screen.TwipsPerPixelY
	lbagian = CreateEllipticRgn&(100, 100, 500, 500)
	lhasil = SetWindowRgn(Me.hWnd, lbagian, True)

view raw SubForm_Load hosted with ❤ by GitHub

Keterangan :

• Perhatikan bagian script : lbagian = CreateEllipticRgn&(100, 100, 500, 500)
• Sobat bisa mengutak-atik angka (100, 100, 500, 500) untuk menentukan bentuk dan ukurannya.
• Fungsi Module Bisanya Untuk Memmanggil Beberapa Function Yang Ada Dalam Module Tersebut Dan Function Tersebut Sifatnya Public Yang Artinya Semua Form Dapat Menggunkan Function Yang Ada Pada Mudule tersebut.

Jika anda penasaran saya beri contohnya, silahkan Download :

Download Form Bulat

Terimakasih

Semoga Bermanfaat

Google + : https://plus.google.com/u/0/+esaprasetio
Twitter : http://twitter.com/aphriell_art
IG : @aphriel_art
Blog :
aprilartwork.blogspot.com for my artwork
aphriellart.blogspot.com for some tutorial
Email : aphriellart@gmail.com