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.
Home »
Visual Basic
» Cara Membuat Form VB 6.0 Menjadi Bulat
kak punia saya masih sala di gdi32...
ReplyDelete