Cara Membuat Form Bulat Dengan Visual Basic 6.0

Cara Membuat Form Bulat Dengan Visual Basic 6.0 | Visual Basic Magazine - Mungkin buat sebagian kita yang masih newbie dengan pemrograman Visual Basic 6.0, kita masih sering terpaku dengan dengan disain form yang standard.

Pada posting kali ini saya akan membagikan sedikit trik bagaimana cara membuat form menjadi berbentuk bulat sehingga tampilan dari form tersebut menjadi sedikit menarik dan berbeda.

Untuk itu silakan sobat ikuti langkah-langkah sederhana berikut :

• Buka sebuah project dan tambahkan sebuah form.
• Tambahkan sebuah Module dengan cara : klik menu Project kemudian pilih Add Module
• Masukkan script berikut ke dalam Module tersebut :

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)

• 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)

Keterangan :

Perhatikan bagian script : lbagian = CreateEllipticRgn&(100, 100, 500, 500)

Sobat bisa mengutak-atik angka (100, 100, 500, 500) untuk menentukan bentuk dan ukurannya.

Untuk lebih jelasnya, sobat bisa download contoh projectnya :

Sekian posting kami yang berjudul Cara Membuat Form Bulat Dengan Visual Basic 6.0. Selamat mencoba dan semoga bermanfaat..