Cara membuat sidebar di vb net 2010

Hallo guys, pada kesempatan kali ini saya ingin membagikan tutorial tentang Cara Membuat Sidebar Di VB NET/Visual Studio .Sidebar sendiri berfungsi untuk mempercantik sebuah UI(User Interface) sebuah aplikasi di semua paltform. Nah kali ini saya ingin membuatnya untuk yang desktop ,untuk sidebar yang akan saya buat kali ini sangat sederhana,pembuatan sidebar sendiri saya juga memerlukan framework GUNA UI ,jika kalian belum tahu apa itu GUNA UI dan cara pemasangannya maka baca baca artikel sebelumnya Apa Itu GUNA UI ? Dan Cara Pemasangannya.

BACA JUGA :

Cara Buat Form Responsive Di VB NET
Cara Import File CSV Ke Mysql
Cara Buat Menu Search/pencarian Di VB NET

Langsung saja kita mulai pembuatannya :

1.Buka Aplikasi Visual Studio ,buat Project Baru dengan nama bebas ,contoh : latihan sidebar

Sumber :IT Dadakan

2.Tambahkan item  didalam Form yang telah dibuat tadi ,seperti gamabar berikut ini :

Sumber :IT Dadakan

Keterangan :

• Panel1 : panel_header
• panel2 : panel_sidebar
• gunabutton1 : btn_sidebar
• button1 : tombol_1
• button2 : tombol_2
• button3 : tombol_3
• timer1 : timer1
• timer2 : timer2

4. Isikan Kode di dalam button_header seperti berikut ini :

VB.NETM

If Panelsidebar.Width <= 200 Then

     Timer1.Start()

ElseIf Panelsidebar.Width >= 50 Then

     Timer2.Start()

End If

Keterangan :

Jika lebar panelsidebar <= 200 (lebih kecil sama dengan 200) maka Timer1 akan start(mulai)
atau jika lebar panelsidebar >= 50 (lebih besar sama dengan 50) maka Timer2 akan start(mulai)

5. Isikan Kode berikut di Timer1

VB.NETM

Panelsidebar.Width -= 150 'mengapa 150, maksudnya bilangan yang dipakai untuk mengurangi 200 dengan hasil 50

If Panelsidebar.Width <= 50 Then

   Timer1.Stop()

End If

Keterangan :

Jika lebar panel sidebar mempunyai lebar <= 50 (lebih kecil sama dengan 50) maka Timer1 akan berhenti

6. Isikan Kode berikut di Timer2

VB.NETM

Panelsidebar.Width += 150 'mengapa 150, maksudnya bilangan yang dipakai untuk menambah 50 dengan hasil 200

If Panelsidebar.Width >= 200 Then

  Timer2.Stop()

End If

Keterangan :

Jika lebar panel sidebar mempunyai lebar >= 200 (lebih besar sama dengan 200) maka Timer2 akan berhenti.

7.Save project dan kemudian RUN project ,maka akan seperti gambar berikut ini

Sumber :IT Dadakan

NB : Jika sidebar ingin lebih halus lagi ,silahkan ganti 150 menjadi angka yang lebih kecil misal 30.

Nah..,cukup sekian tutorial dari saya tentang Pembuatan Sidebar di vb net ,selamat mencoba .Jangan lupa coment ya jika didalam artikel ada kesalahan, atau bisa hubungi saya di febiarifin21@gmail.com ,sekian terima kasih....