FORM BENTUK BULAT

Form bentuk bulat

Assalamualaikum wr, wb..

Form standar yang biasanya kita gunakan bentuknya persegi, Nah bagaimana kalau kita ingin membuat bentuk form supaya berbentuk lain, bulat misalnya. Jadi kan form kita gak monoton dan membosankan. Nah karna itu sekarang kita akan membuat Form supaya berbentuk bulat, agar ampilan form jadi lebih menarik. Simak caranya.

1. Buka Program Visual Basic dan mulai dengan Form baru.

2. Double klik pada area form dan masukan listing kode dibawah ini pada bagian Declaration

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long

3. Pada prosedur Form_Load(), masukan listing kode dibawah ini :

Private Sub Form_Load()
    Dim lngRegion As Long
    Dim lngReturn As Long
    Dim lngFormWidth As Long
    Dim lngFormHeight As Long
   
    lngFormWidth = Me.Width / Screen.TwipsPerPixelX
    lngFormHeight = Me.Height / Screen.TwipsPerPixelY
    lngRegion = CreateEllipticRgn(0, 0, lngFormWidth, lngFormHeight)
    lngReturn = SetWindowRgn(Me.hWnd, lngRegion, True)
End Sub

4. Jalankan dengan menekan tombol F5 pada keyboard anda.

5. Form anda jadi berbentuk bulat, Selamat anda sekarang bisa membuat form bentuk bulat.

Wassalam.. n smoga bermanfaat..