VPF::Помогите с прогресс баром - Форум программистов

Machaon

Дата 13.9.2008, 15:08 (ссылка)

(нет голосов)

Загрузка ...

КаРолЬ АсьКи МуАЛя

Профиль
Группа: Участник
Сообщений: 160
Регистрация: 12.8.2008
Где: М.о. Красногорск

Репутация: нет
Всего: 3

Нужен прогресс бар свойства которого способны менять цвет и вместо кубиков использующий ползущую полоску но главное чтобы ето был UserControl так как тоскать dll неахота.

diadiavova

Дата 13.9.2008, 20:39 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Я тут примерно набросал, можно произвести от UserControl или от Control - разницы нет.

Код


Public Class MyProgressBar
    Dim _value As Int32 = 0
    Public Property Value() As Integer
        Get
            Return _value
        End Get
        Set(ByVal value As Integer)
            _value = value
            Me.Invalidate()
        End Set
    End Property
    Dim _progressColor As Color = Color.Lime

    Public Property ProgressColor() As Color
        Get
            Return _progressColor
        End Get
        Set(ByVal value As Color)
            _progressColor = value
        End Set
    End Property
    Dim _minimum As Integer = 0
    Dim _maximum As Integer = 100
    Public Property Minimum() As Integer
        Get
            Return _minimum
        End Get
        Set(ByVal value As Integer)
            _minimum = value
        End Set
    End Property

    Public Property Maximum() As Int32
        Get
            Return _maximum
        End Get
        Set(ByVal value As Int32)
            _maximum = value
        End Set
    End Property

    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
        Dim progressWidth As Single = 0
        Try
            progressWidth = (Me.Value / (Me.Maximum - Me.Minimum)) * Me.Width
        Catch ex As Exception
        End Try
        Dim progressRect As New RectangleF(0, 0, progressWidth, Me.Height)
        e.Graphics.FillRectangle(New SolidBrush(Me.ProgressColor), progressRect)
    End Sub
End Class

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

Machaon

Дата 13.9.2008, 23:06 (ссылка)

(нет голосов)

Загрузка ...

КаРолЬ АсьКи МуАЛя

Профиль
Группа: Участник
Сообщений: 160
Регистрация: 12.8.2008
Где: М.о. Красногорск

Репутация: нет
Всего: 3

Во спс то что искал.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »