Selamat siang sobat TOG, pada kesempatan kali ini kita akan berbagi tutorial cara membuat progress bar vertical di visual basic. Biasanya kalian kalau membuat progress bar biasa yang bentuknya horisontal saya pastikan semua pasti sudah bisa :D Dibawah ini saya akan menunjukkan cara membuat progress bar yang bentuknya tidak seperti biasa, berikut step-stepnya:
1. Buka program Visual Basic anda, pada tutorial ini saya menggunakan Microsoft Visual Basic 2010 Express pilih Windos Form Applications
2. Lalu pilih menu Project dan pilih Add Class
3. Kemudian pilih Class dan beri nama VerticalBar_Vertical atau nama lain sesuai keinginan kita terus tekan Add
4. Setelah itu kita menekan Add, pada Solution Explorer sebelah kanan akan muncul Class yang telah dibuat
5. Tambahkan script berikut ini pada class ProgressBar_Vertical
1 Imports System
2 Imports System
3 Imports System.Windows.Forms
4 Public Class ProgressBar_Vertical
5 Inherits ProgressBar
6 Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams
7 Get
8 Dim cp As CreateParams = MyBase.CreateParams
9 cp.Style = cp.Style Or &H4
10 Return cp
11 End Get
12 End Property
13 End Class
6. Debug program tersebut dengan cara tekan tombol F5 atau pada menu Debug->Start Debugging
7. Tutup form hasil debug, dan sekarang pada ToolBox akan muncul Windows Component baru yaitu Pointer dan ProgressBar_Vertical
8. Sekarang saatnya menggunakan ProgressBar Vertical tadi, pilih Component ProgressBar_Vertical pada toolbox. Tempatkan pada form sehingga nanti akan tampak seperti gambar dibawah ini
9. Kemudian view code itu dengan menekan tombol F7, lalu masukkan code berikut ini ya