[GHID][VB.NET]Cum sa facem un ProgressBar vertical

[raynor009]

Salut, astazi am sa va arat cum sa facem ca progresbarul nostru sa fie vertical. Metoda este foarte simpla si se aplica folosind un simplu class. Sa incepem.

Creati un nou WindowsFormsApplications si dupaia adaugati un class /Project/Add Class . In class stergeti tot si dati Copy & Paste (ca asa ii misto) la codul meu:

   Imports System
Imports System.Windows.Forms

Public Class [COLOR="#FF0000"]raynor009VerticalProgressBar[/COLOR]  // Acesta va fi numele noului coponent
    Inherits ProgressBar
    Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.Style = cp.Style Or &H4
            Return cp
        End Get
    End Property
End Class

Dupa ce ati facut asta dam un Debug si dupa ce oprim programul in ToolBox o sa va apara o categorie noua cu componentul raynor009VerticalProgressBar sau ce nume i-ati dat voi. Ca sa vedem daca merge adaugam noul progresbar un form si mai adaugam un buton. La buton adaugam urmatorul cod:

If Raynor009VerticalProgressBar1.Value = Raynor009VerticalProgressBar1.Value + 10

Dam debug si cand apasam butonul in loc ca bara aia verde sa mearga in dreapa va incepe sa urce tot mai sus.

Sper ca va fost de folos si ati invat ceva nou. Bafta la programare si ne vedem in tutorialul urmator.

Edited December 31, 2011 by raynor009

[Scorpionadi]

Multumesc, apreciez munca ta.

[wanted99]

ms apreciez