Нужен вертикальный индикатор прогресса - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток! Есть элемент полоса загрузки, действует только по горизонтали, так вот есть ли возможность смоделировать вертикальную полосу загрузки переписав код полосы загрузки?

Решение задачи: «Нужен вертикальный индикатор прогресса»

textual
Листинг программы
  1. Public Class Form1
  2.     Const PBS_VERTICAL = &H4
  3.     Dim pr As New VertProgressbar With {.Width = 20, .Height = 100}
  4.  
  5.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  6.         pr.Value += 1
  7.     End Sub
  8.  
  9.     Public Class VertProgressbar
  10.         Inherits ProgressBar
  11.         Protected Overrides ReadOnly Property CreateParams() As CreateParams
  12.             Get
  13.                 Dim cp As CreateParams = MyBase.CreateParams
  14.                 cp.Style = cp.Style Or PBS_VERTICAL
  15.                 Return cp
  16.             End Get
  17.         End Property
  18.     End Class
  19.  
  20.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  21.         Me.Controls.Add(pr)
  22.     End Sub
  23. End Class

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.091 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы