ProgressBar vertical - VB.NET

Neste artigo vou mostrar como ter uma progressBar vertical.

Primeiro crie uma classe chamada MyVerticalProgessBar, depois de cria-la, apague tudo e cole;

1:  Imports System  
2:  Imports System.Windows.Forms  
3:  Public Class MyVerticalProgessBar  
4:    Inherits ProgressBar  
5:    Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams  
6:      Get  
7:        Dim cp As CreateParams = MyBase.CreateParams  
8:        cp.Style = cp.Style Or &H4  
9:        Return cp  
10:      End Get  
11:    End Property  
12:  End Class  

Pronto, agora compile seu projeto e note que vai ter este controle na sua ToollBar ou caixa de ferramentas.

COMENTE

& Compartilhe

Tweet