Cara Membuat Form Lingkaran/Bulat Visual Basic (VB6)

 Cara membuat form bulat atau lingkaran di VB6
Bagi yang belum punya Visual basic 6.0 bisa di Download dibawah ini :
Visual Basic 6.0 Enterprise Edition Service Pack 6
Visual Basic 6.0 Portable

• Buka sebuah project dan tambahkan sebuah form.

 

• Tambahkan sebuah Module dengan cara : klik menu Project kemudian pilih Add Module

• Beri nama module "ModCircle"

Isikan module dengan code berikut :
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)

• Kemudian kembali ke Form tadi, klik kanan pilih view code. Masukkan code berikuti

Private Sub Form_Load()
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)
End Sub

• Keterangan :
  Perhatikan bagian script : lbagian = CreateEllipticRgn&(100, 100, 500, 500)
  Sobat bisa mengutak-atik angka (100, 100, 500, 500) untuk menentukan bentuk dan ukurannya.

Thank's for reading the articelCara Membuat Form Lingkaran/Bulat Visual Basic (VB6) .If You want to copy paste your website please tag my link Cara Membuat Form Lingkaran/Bulat Visual Basic (VB6) Intro My Website.
<a href="https://operaterpm.blogspot.com/2013/12/cara-membuat-form-lingkaranbulat-visual.html">Cara Membuat Form Lingkaran/Bulat Visual Basic (VB6)</a>