Cara Membuat Form VB 6.0 Menjadi Bulat

Standar dari form visual basic 6.0 berbentuk persegi, dalam pembuatan sebuah aplikasi memang dibutuhkan form berbentuk persegi, tetapi tidak menutup kemungkinan untuk menambah keunikan dan keindahan pada aplikasi yang dibagun membutuhkan jugu form dalam bentuk lain. Misal untuk form login kita dapak menggunakan form berbentuk bulat agar tampilan form kita lebih menarik dan unik.

Langsung saja kita beranjak pada listing program pada form yang akan kita ubah bentuk menjadi bulat.
pada listing program masukan kode program berikut:

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

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


untuk hasil kurang lebih seperti berikut:

untuk contoh gambar saya buat backcolor form berwarna merah.
Semoga bermanfaat.

Tweet