Tutorial Menciptakan Bentuk Form Vb Tidak Kotak

13 views

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

Berikut ini langkah-langkahnya

  1. Buka software VB anda, di sini aku memakai Microsoft Visual Basic 2010 Express. (Tenang, anda tidak akan dicap pembajak alasannya ialah Microsoft menawarkan isyarat 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 menciptakan 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 ialah ibarat berikut

    kalau dilihat, hasil tersebut masih kurang anggun alasannya ialah ada sisa border yang  terpotong oleh bentuk lingkarannya. Untuk, mengatasinya kita akan  menambahkan perintah  berikut untuk menghilangkan border dari Form1

    Me.FormBorderStyle = 0

    Maka alhasil ialah ibarat berikut

  5. Untuk menciptakan sebuah tombol exit, buat sebuah  Button  lalu tambahkan perintah close() pada event Button1_Click

    Kemudian debug lagi untuk mengetahui alhasil apakah  ibarat berikut
  6. Untuk menciptakan 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 menciptakan form VB berbentuk tidak kotak. Anda dapat menyebarkan sendiri bentuk dari form yang anda buat dengan memodifikasi koordinat dari GraphicPath yang digunakan.
Akhirnya aku mengucapkan  terimakasih telah membaca tutorial dari saya, kalau ada kritik saran atau ada yang salah dari yang aku tulis silakan ditulis dikolom komentar semoga tutorial aku selanjutnya dapat lebih baik.
Terimakasih

 

Author: 
    author
    No related post!