Прозрачный фон у ProgressBar

[YaS]

ProgressBar находится на рисунке и серый фон ProgressBar-а портит весь пейзаж.

Как сделать прозрачным фон у ProgressBar?

В поиске не нашел.

[vvs_adm]

Сделай свой и не мучайся Тогда и бегущая полоса цветной будет и т.д.

[YaS]

Свой - это хорошо.

А все таки.. возможно это сделать? Если да, то киньте кодом.

[Amed]

Примерно так
http://bbs.vbstreets.ru/viewtopic.php?t=3696

[YaS]

Примерно так
http://bbs.vbstreets.ru/viewtopic.php?t=3696

это самодельный прогрессбар.
а по поводу вопроса в заголовке?

Добавлено:

Поставлю свой прогресс.

Всем спасибо.

-------
ЗЫ: свое, оно и в африке

[YaS]

хм....

Amed, а как фон picturebox-а сделать прозрачным?

а то так получается, что мне хоть свой прогрессбар рисуй, хоть стандартный ставь - фон если не от прогрессбара, то от пиктуребокса глаза есть.

[GSerg]

Зачем picturebox?

[Amed]

Можно рисовать руками не на PictureBox, а на форме, скажем.

Расскажи-ка, что вообще надо сделать.

[YaS]

Примерно так
http://bbs.vbstreets.ru/viewtopic.php?t=3696

в этом примере именно на PictureBox:

'Клади на форму Timer Timer1 и PictureBox pb

А если не на picturebox-е рисовать, то на чем?

[GSerg]

а на форме, скажем.

[Amed]

form.line и так далее

[YaS]

Расскажи-ка, что вообще надо сделать.

При загрузке программы (много там всего расчитывается) появляется форма, обрезанная регионами по картинке, а на ней progressbar (на картинке) и label, в котором пишется чего на данный момент делается, чтобы юзер видел, что чего-то происходит, а не повисло.

Так вот, пока progressbar движется, "не закрашенная" его часть видна серым цветом.

Надо:

убрать эту серую "не закрашенную" часть progressbar-a, так как картинка не однородного цвета.

если как в примере выше, то там козни строит picturebox

Вроде как есть все расписал.


добавлено:

form.line и так далее

ага.. с формой получилось
но так у меня на форме на той picturebox, а в нем картинка и если красить на на форме, то видно не будет

[Amed]

Угу. Все так и есть, рисовать прогрессбар безо всякой картинки, прямо на форме.

[YaS]

я выше написал - Добавлено

[Amed]

Рисуем на том picturebox, которая уже есть на форме и в котором картинка. При желании можно нарисовать красивую рамочку, чтобы границы показать.

[YaS]

Да. На picturebox получилось - рисуется
Но... не получается рисовать с заданной координаты

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

Private Sub Timer1_Timer()
Static i As Integer

Picture1.Line (Picture1.ScaleWidth / 3, Picture1.ScaleHeight / 2)-(Picture1.ScaleWidth / 100 * i - 10, Picture1.ScaleHeight / 2 + 10), RGB(255, 0, 0), BF


i = i + 1

If i = 100 Then i = 0

End Sub


Сразу резко зарисовывает до начальной координаты, а только потом пополз прогресс.

[YaS]

Пробовал сначала выполнять

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

MoveToEx Picture1.hdc, Picture1.ScaleWidth / 3, Picture1.ScaleHeight / 2, ByVal 0&


- толку никакого

[tyomitch]

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

Picture1.Line (Picture1.ScaleWidth / 3, Picture1.ScaleHeight / 2)-(Picture1.ScaleWidth / 150 * i + Picture1.ScaleWidth / 3, Picture1.ScaleHeight / 2 + 10), RGB(255, 0, 0), BF

[YaS]

tyomitch,
Спасибо.

Не по глазам сразу было

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

Picture1.ScaleWidth / 150 * i + Picture1.ScaleWidth / 3

Теперь все нормально.
Всем еще раз Большое спасибо.

Вопрос считаю исчерпаным.

[IIIypuk]

А можно еще так:
Добавляешь Shape с параметрами, напр.:
BackColor = 16744576
BackStyle - opaque
BorderStyle - transparent
FillColor = 16777215
FillStyle - VerticalLine
Heigh - 165

А потом по мере загрузки просто меняешь Width.
На мой взгляд весьма простой и красивый способ. Можно еще поиграть там с видами заливки, бордюра, цветов и т.д.

Чтоб посмотреть, как работает, создай пустой проект, добавь шейп этот, кинь таймер на форму, интервал 100, и добавь и добавь код к таймеру

Shape1.Width = Shape1.Width + 10

[YaS]

IIIypuk,
согласен, вариант не плохой, но у меня наблюдалось мерцание при интервале таймера <100

Вот что я сделал, точнее собрал из того чего мне показывали:

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

Function fnProgress()
k = Fix((Form1.ScaleWidth - 255) / 2)       ' х-начальное
m = k + 255                                           ' х-конечное

For n = 0 To 255
Form1.Line (k, Form1.ScaleHeight / 2)- _
              (k + n, Form1.ScaleHeight / 2 + 15), RGB(Abs(125 - n), Abs(125 - n), 255), BF
Form1.Caption = RGB(Abs(125 - n), Abs(125 - n), 255) & ", " & Hex(RGB(Abs(125 - n), Abs(125 - n), 255))
Sleep (5)
DoEvents
Next
For n = 0 To 255
Form1.Line (m, Form1.ScaleHeight / 2)- _
              (m - n, Form1.ScaleHeight / 2 + 15), RGB(Abs(125 - n), Abs(125 - n), 255), BF
Form1.Caption = RGB(Abs(125 - n), Abs(125 - n), 255) & ", " & Hex(RGB(Abs(125 - n), Abs(125 - n), 255))
Sleep (5)
DoEvents
Next
End Function


Вместо Form1 можно и Picture... да вроде как все на чем рисовать можно.
Скорость регулируется

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

Sleep(5)

, конечно для этого надо в General добавить

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

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Можно и без API обойтись, например, если отражается процесс какого-либо расчета или чего другого, требующего времени - вот те и скорости регулировка.

[GluKoBuG]

Как я понял, нужно сделать картинку, прогресс бар и линии.
Линии можно просто

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


Line(x1,y1)-(x2,y2),color,[B][F]


А картинку

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


Me.PaintPicture(src.Picture,x,y)