Свой элемент управления

[Alex[fj]]

Как бы мне научиться создавать их?
Есть замечательные статьи Как создать свой элемент управления в VB.NET... Но там берется элемент и к нему дописываем свойства, которые нужны...
Чесно читал и разбирался, но не нашел того, о чем спрашиваю.
А можно ли нарисовать свой, изменив практически все?
Часный случай: меня не устраивает TrackBar, а именно его вид и ширина (она не меняется).

[Viper]

Общий принцип: все что нужно рисуется ручками на теле контрола.

[Alex[fj]]

Да, вопрос как!

[Sebas]

Событие Paint

Public Event Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) As System.Windows.Forms.PaintEventHandler
Member of System.Windows.Forms.Control


e.Graphics.DrawLine(.....

[Alex[fj]]

Да, и так можно нарисовать TrackBar?
Нельзя ли, как говориться, от руки? Ну по кусочкам в фотошопе, там...
Ну или примерчик есть (не представляю, как Sebas будет рисовать...) Каждый, ведь наверняка с таким сталкивался!

[Viper]

Так можно нарисовать все, что угодно. Хоть через DrawLine, хоть кусочкамиранее нарисованными в Photoshop через DrawImage. Примера жаль под рукой нет

[Alex[fj]]

...хоть кусочкамиранее нарисованными в Photoshop через DrawImage. Примера жаль под рукой нет

А мне как жаль! И как через DrawImage? По форме рисовать?
Не врубаюсь...
Киньте, правда, пример, пожалуйста.

[dalona]

в VB.net 2005 это можно сделать как в приложении к этому сообщению
Может это тебе поможет, - на форме расположен PictureBox, который может содержать нужное тебе изображение. В данном примере за PictureBox форму можно таскать и сворачивать в трэй двойным щелчком левой кнопки. По правому щелчку форма закрывается. В общем загрузи и посмотри код.

[temur]

Код: Выделить всё

Protected Overrides Sub OnPaint(ByVal pe As System.Windows.Forms.PaintEventArgs)
    MyBase.OnPaint(pe)
     Dim Rectn As New Rectangle(X , Y , W, H)
     Dim mImage As Image = Image.FromFile("File Name")
     pe.Graphics.DrawImage(mImage, Rectn)
End Sub


Rectn - квадрат который определяет зону прорисовки картинки
X , Y - наверно объеснять не надо
W, H - ширина и высота квадрата
mImage - картинка которую надо рисовать

[Alex[fj]]

dalona, не в тему... Это не свой элемент управления, просто PictureBox в роли заголовка...

temur, как я таким образом нарисую TrackBar? Состоит он из двух элементов... Нет, так элементы не собирают. Эго же надо в класс залить!

[temur]

А мне как жаль! И как через DrawImage? По форме рисовать?

Ты спрашивал как использовать DrawImage я ответил а как ты будешь делать контрол это твое дело и за тебя никто его делать не будет! Таже функция есть у любого контрола. так что немного подумай немного книжку почитай про ВБ и все получится.

[AnarCky]

...нарисую TrackBar? Состоит он из двух элементов...

Извините, но как это TrackBar состоит из 2х элементов? Поясните мне уже. а то я че-то 5 минут в ступоре сидел

[Alex[fj]]

Ну... 1 - тело, 2 - ползунок...
И вообще, какая хрен разница сколько элементов?? Чего из темы делать дискуссионный зал?
Я вообще-то, за советом, за помощью...
Знаешь, помоги, не знаешь, чего влезать?

[Alex[fj]]

Ты спрашивал как использовать DrawImage я ответил а как ты будешь делать контрол это твое дело и за тебя никто его делать не будет!

Я спрашивал, как рисовать контрол. О DrawImage в тех чертах, в которых ты о нем написал, я знал...
Если я спросил бы "А что же это такое?!" твоя реплика была бы уместна! А так, не тепло, не холодно...

[Ramzes]

Alex[fj]
зайди на codeproject.com, там поищи, там были примеры

[AnarCky]

И вообще, какая хрен разница сколько элементов?? Чего из темы делать дискуссионный зал?

Ладно не сердись я просто стопанулся. Теперь дошло

Врядли я скажу что-то новое. Но попробую...
Например рисуешь ряд черточек графическими методами (в частности DrawLine) - это будет типа тело
Потом прямоугольник (не забудь сделать видимость объема) - это ползунок. Затем меняешь координату прямоугольника по оси Х в соответствии с величиной указанной в свойстве мин. изменения либо макс. изменения. Тебе придется самому отслеживать нажатия мышкой, клавой и пр. чтобы узнать напр какое св-во необходимо задействовать.
Такой подход тебя устроит

Может в ближайшие денька два накатаю примерного кода... Правда пусть потом умные мира сего меня проверят (я не очень доверяю своим кодам )

[Alex[fj]]

Ramzes, да, там есть примеры... Но только они не качаются... Зарегистрировался с горем пополам... Жму скачать - выбрасывает на ввод пароля, ввожу - кидает обратно... И по кругу

[Alex[fj]]

AnarCky, спасибо, что помогаешь, но это не то... Получается путь в обход. Это хорошо один раз, но надо создать библиотеку с контролом и его использовать
В этом-то вся и загвоздка, оказалось, что это не так и легко!

[Nord777]

Тебе уже всё подсказали. Надо было просто собрать всё воедино.
Наипростейший пример, который тупо отрисовывает контрол не следя за значениями:

Код: Выделить всё

Public Class Class1
    Inherits Windows.Forms.TrackBar

    Public Sub New()
        'по умолчанию этот стиль отлючен (не происходит событие OnPaint)
        'включаем его
        Me.SetStyle(ControlStyles.UserPaint, True)
    End Sub

    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim r As Rectangle = Me.ClientRectangle
        r.Inflate(-5, -5)
        e.Graphics.FillRectangle(Brushes.Beige, r)

        r = New Rectangle(10, Me.ClientRectangle.Height / 2, Me.ClientRectangle.Width - 20, 5)
        'отрисовка серой полоски, по которой ездит ползунок
        TrackBarRenderer.DrawHorizontalTrack(e.Graphics, r)

        r = New Rectangle(10, 10, Me.ClientRectangle.Width - 20, 5)
        'отрисовка отметок
        TrackBarRenderer.DrawHorizontalTicks(e.Graphics, r, 10, VisualStyles.EdgeStyle.Etched)

        r = New Rectangle(20, Me.ClientRectangle.Height / 3, 10, 20)
        'отрисовка ползунка
        TrackBarRenderer.DrawBottomPointingThumb(e.Graphics, r, VisualStyles.TrackBarThumbState.Normal)

    End Sub

    Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
        'без коментариев
        pevent.Graphics.FillRectangle(Brushes.DarkGoldenrod, pevent.ClipRectangle)
    End Sub

End Class

вместо TrackBarRenderer можешь вставить свои процедуры рисования.

[Ramzes]

Alex[fj]
У тебя проблема с браузером, у меня все качаеться

[Alex[fj]]

Nord777, спасибо!
Только как теперь его оживить?
Вставлять события и перерисовывать?

[Nord777]

В событии OnPaint анализируешь значение свойства Me.Value и соответственно отрисовываешь ползунок с нужным смещением

[Alex[fj]]

Это получается, надо менять координату X?

Код: Выделить всё

r = New Rectangle(20, Me.ClientRectangle.Height / 3, 10, 20)

Код: Выделить всё

r = New Rectangle(me.value, Me.ClientRectangle.Height / 3, 10, 20)

Тогда фигня получается...

ЗЫ туплю

[Nord777]

не всё так просто. координату x надо вычислять основываясь на значении me.value(и не только), а не подставлять напрямую

[Alex[fj]]

Основываясь на нем тоже делал. Типа:

Код: Выделить всё

Select Case Me.Value
            Case 0
                r = New Rectangle(5, Me.ClientRectangle.Height / 3, 10, 20)
                'отрисовка ползунка
                TrackBarRenderer.DrawBottomPointingThumb(e.Graphics, r, VisualStyles.TrackBarThumbState.Hot)
            Case 1
                r = New Rectangle(10, Me.ClientRectangle.Height / 3, 10, 20)
                'отрисовка ползунка
                TrackBarRenderer.DrawBottomPointingThumb(e.Graphics, r, VisualStyles.TrackBarThumbState.Pressed)
        End Select

Все равно фигня получается... Начинашь его тянуть, отрывается кусок, глучит...

...на значении me.value(и не только)...

А это как понимать?

[Nord777]

Начинашь его тянуть, отрывается кусок, глучит...

по ходу область отсечения где то задаётся. жестко. Я не смог от этого избавится... хотя не шибко с этим парился. Я унаследовался от Control и добавил несколько свойств - всё нормально. Приду с работы - скину код.

[Nord777]

как и обещал, вот код:

[Alex[fj]]

Зачет! Nord777, спасибо ОГРОМНОЕ!
Щас будем разбираться!
Всем спасибо, закрываем тему.

[Alex[fj]]

Nord777, чудок посидел с кодом - получился доделался TrackBar. Теперь можно выбирать Вертикальность\Горизонтальность и картинки ставить на нажатие и блокировку. Вообщем можно посмотреть и одобрить!
А вообще, предлагаю в кирпичи - штука полезная.

[Nord777]

1) При смене ориентации не меняется ClientRectangle, а надо бы.
2) При вертикальной ориентации ползунок двигается сверху-вниз, а привычней снизу-вверх