Membuat Bentuk Form VB Tidak Kotak

Jika biasanya form pada Visual Basic berbentk segiempat atau kotak, mungkin anda pernah berpikir membuat form yang tidak berbentuk kotak? Jika iya, berikut ini saya tunjukkan cara membuat form pada VB yang bentuknya tidak kotak.

Berikut ini langkah-langkahnya

1. Buka software VB anda, di sini saya menggunakan Microsoft Visual Basic 2010 Express. (Tenang, anda tidak akan dicap pembajak karena Microsoft memberikan kode lisensi gratis. Silakan cari caranya di google). Kemudian pilih Windows Form Application
   
2. Ketika sudah muncul tampilan utama project, klik kanan pada Form dan pilih View Code atau tekan tombol F7 pada keyboard.
   
3. Untuk membuat form berbentuk lingkaran, tambahkan syntax berikut pada event Form1_Load
   

   Dim p As New Drawing2D.GraphicsPath()
   p.AddEllipse(0, 0, Me.Width, Me.Height)
   Me.Region = New Region(p)

4. kemudian coba debug dengan  menekan tombol F5 untuk mengetahui hasilnya. Hasil dari penambahan syntax di atas adalah seperti berikut
   
   
   jika dilihat, hasil tersebut masih kurang bagus karena ada sisa border yang  terpotong oleh bentuk lingkarannya. Untuk, mengatasinya kita akan  menambahkan perintah  berikut untuk menghilangkan border dari Form1
   
   

   Me.FormBorderStyle = 0

   Maka hasilnya adalah seperti berikut
   
5. Untuk membuat sebuah tombol exit, buat sebuah  Button  kemudian tambahkan perintah close() pada event Button1_Click
   
   Kemudian debug lagi untuk mengetahui hasilnya apakah  seperti berikut
   
6. Untuk membuat bentuk yang lain ganti perintah pada event Form1_Load dengan  perintah-perintah di bawah ini
   a. Bentuk Ketupat

Me.FormBorderStyle = 0 Dim p As New Drawing2D.GraphicsPath() Dim Pojok As Integer Pojok = 250 p.AddLine(0, 0, Me.Width - Pojok, 0) p.AddArc(New Rectangle(Me.Width - Pojok, 0, Pojok, Pojok), -90, 90) p.AddLine(Me.Width, Pojok, Me.Width, Me.Height) p.AddLine(Me.Width - Pojok, Me.Height, Pojok, Me.Height) p.AddArc(New Rectangle(0, Me.Height - Pojok, Pojok, Pojok), 90, 90) Me.Region = New Region(p)

Hasil :

b. Segidelapan

Me.FormBorderStyle = 0 Dim p As New Drawing2D.GraphicsPath() Dim Pojok As Integer Dim pf(7) As PointF Pojok = 50 pf(0) = New PointF(0, Pojok) pf(1) = New PointF(Pojok, 0) pf(2) = New PointF(Me.Width - Pojok, 0) pf(3) = New PointF(Me.Width, Pojok) pf(4) = New PointF(Me.Width, Me.Height - Pojok) pf(5) = New PointF(Me.Width - Pojok, Me.Height) pf(6) = New PointF(Pojok, Me.Height) pf(7) = New PointF(0, Me.Height - Pojok) p.AddPolygon(pf) Me.Region = New Region(p)

Hasil :

c. Kotak dengan  pojok lengkung

Me.FormBorderStyle = 0 Dim p As New Drawing2D.GraphicsPath() Dim Pojok As Integer Pojok = 50 p.AddArc(New Rectangle(0, 0, Pojok, Pojok), 180, 90) p.AddLine(Pojok, 0, Me.Width - Pojok, 0) p.AddArc(New Rectangle(Me.Width - Pojok, 0, Pojok, Pojok), -90, 90) p.AddLine(Me.Width, Pojok, Me.Width, Me.Height - Pojok) p.AddArc(New Rectangle(Me.Width - Pojok, Me.Height - Pojok, Pojok, Pojok), 0, 90) p.AddLine(Me.Width - Pojok, Me.Height, Pojok, Me.Height) p.AddArc(New Rectangle(0, Me.Height - Pojok, Pojok, Pojok), 90, 90) Me.Region = New Region(p)

Hasil:

 

Demikian tutorial membuat form VB berbentuk tidak kotak. Anda bisa mengembangkan sendiri bentuk dari form yang anda buat dengan memodifikasi koordinat dari GraphicPath yang digunakan.
Akhirnya saya mengucapkan  terimakasih telah membaca tutorial dari saya, jika ada kritik saran atau ada yang salah dari yang saya tulis silakan ditulis dikolom komentar agar tutorial saya selanjutnya bisa lebih baik.
Terimakasih