Cara Membuat Form Berbentuk Rectangle dan Oval di VB6 - tip kali ini tip dan trik visual basic menghadirkan sebuah tip dari bentuk sebuah form yaitu Cara Membuat Form Berbentuk Rectangle dan Oval di VB6. Banyak sekali cara yang dilakukan oleh programer visual basic agar pengguna tidak jenuh berinteraksi dengan aplikasi buatannya.Salah satu caranya adalah dengan mengubah tampilan form agar terlihat lebih menarik dari biasanya.
Sebelum kita menuju tip mari kita simak pengertian dari form itu sendiri. Form adalah salah satu objek yang di gunakan sebagai tempat untuk meletakan objek-objek lain diatasnya, Form di ibaratkan sebuah kanvas untuk mendesain tampilan sebuah program aplikasi yang kita buat.
Biasanya tampilan form standar Visual Basic berbentuk kotak, nah kali ini Saya akan membuatnya dalam bentuk yang lain yaitu form yang berbetuk Rectangle dan Oval. Berikut ini adalah langkah-langkah membuat Form berbentuk Rectangle dan Oval :
A. Membuat Form Berbentuk Ractangle
1. Buka Form VB6 Anda
2. Ketik kode dibawah ini dibagian General-Declaratian:
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Sub Form_Load()
Dim s As Long
s = CreateRoundRectRgn(0, 0, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY, 20, 20)
SetWindowRgn Me.hwnd, s, 0
End Sub
3. Simpan kode dan jalankan Program, lihat hasilnya pada gambar dibawah ini:
B. Membuat Form Berbentuk Form Elips
Untuk membuat Form berbentuk Elips caranya sama, ketik kode dbawah ini di jendela kode
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 Boolean) As Long
Private Sub Form_Load()
Dim l As Long
l = CreateEllipticRgn(0, 0, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY)
SetWindowRgn Me.hwnd, l, 0
End sub
Simpan kode Anda, dan jalankan program.
Setelah Anda melakukan kedua tip berikut maka Anda sudah dapat menampilkan form yang berbentuk lain dan unik dan bisa Anda terapkan pada program yang Anda inginkan.Tentu saja semua itu harus disesuaikan dulu dengan bentuk program kita,
Demikian tips Cara Membuat Form Berbentuk Rectangle dan Oval di VB6. Semoga bermanfaat,selamat mencoba semoga berhasil
No comments:
Post a Comment