Membuat Form "Bulat" Di VB

Advertisemen

Tampilan Form pada VB yang normalnya kotak bisa kita akali agar menjadi bulat dengan cara ini
Buatlah Sebuah Project Baru dan tambahkan Sebuah form Lalu Masukan listing program Ini kejendela code editor





Private Sub Form_Load()
Dim lReturn As Long
Form1.Show
lReturn = SetWindowRgn(hWnd, CreateEllipticRgn(20, 30, 220, 250), True)
End Sub

Selanjutnya Tambahkan Sebuah Module di project tadi
dan masukan listing program ini

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

Coba Run dan lihat hasilnya

Advertisemen