Нужен вертикальный индикатор прогресса - Visual Basic .NET
Формулировка задачи:
Доброго времени суток!
Есть элемент полоса загрузки, действует только по горизонтали, так вот есть ли возможность смоделировать вертикальную полосу загрузки переписав код полосы загрузки?
Решение задачи: «Нужен вертикальный индикатор прогресса»
textual
Листинг программы
- Public Class Form1
- Const PBS_VERTICAL = &H4
- Dim pr As New VertProgressbar With {.Width = 20, .Height = 100}
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- pr.Value += 1
- End Sub
- Public Class VertProgressbar
- Inherits ProgressBar
- Protected Overrides ReadOnly Property CreateParams() As CreateParams
- Get
- Dim cp As CreateParams = MyBase.CreateParams
- cp.Style = cp.Style Or PBS_VERTICAL
- Return cp
- End Get
- End Property
- End Class
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Me.Controls.Add(pr)
- End Sub
- End Class
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д