Cara Merubah Bentuk Form Menjadi Bulat Pada Bahasa Pemograman Microsoft Visual Basic 6.0

Bentuk form pada Visual Basic 6.0 tidak harus selalu berbentuk persegi panjang. Bentuk form dapat diubah menjadi bulat, poligon dan lain sebagainya. Pada postingan kali ini, saya akan berbagai tips cara mengubah form menjadi berbentuk bulat.

Langkah – langkah pembuatan program :

·           Buka proyek Standard EXE yang baru

·           Klik menu View  =>  Code, lalu kode program di bawah ini :

Private Sub Form_Click()

Unload Me

End Sub

Private Sub Form_Load()

Dim lBagian As Long

Dim lHasil As Long

    Me.Width = 400 * Screen.TwipsPerPixelX

    Me.Height = 400 * Screen.TwipsPerPixelY

    lBagian = CreateEllipticRgn&(0, 0, 250, 250)

    lHasil = SetWindowRgn(Me.hwnd, lBagian, True)

End Sub

·           Tambahkan sebuah modul dengan mengklik menu Project  =>  Add Module atau tekan tombol Alt P + M, lalu kode program di bawah ini :

Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hrgn As Long, ByVal redraw 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)

·           Jalankan Program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run  => Start

·           Hasilnya ketika program dijalankan :

 Gbr 1

Download Source Codenya  disini atau disini