Как засунуть Progressbar в Panel на Statusbar'е?

[Shiz]

subj

[BV]

SetParent'ом. Поиск!

[Ruslan Demidow]

subj

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


Sub PBinSB(ByVal SB As StatusBar, ByVal PB As ProgressBar, ByVal sPanelKey As String)
    SB.Align = vbAlignBottom
    SB.Refresh
    PB.left = SB.Panels(sPanelKey).left + 25
    PB.Width = SB.Panels(sPanelKey).Width - 45
    PB.top = SB.top + 45
    PB.Height = SB.Height - 75
End Sub



' Использование:

Sub ShowPb(ByVal sPanelKey As String,Optional strSbrMessage As String) 'отображает
    PBinSB sbrStatus, LoadProgressBar, "sPanelKey"
    LoadProgressBar.Visible = True
    If Not IsMissing(strSbrMessage) Then
        sbrStatus.Panels(sPanelKey).Text = Trim$(strSbrMessage)
    End If
End Sub

Sub HidePb(ByVal sPanelKey As String) 'скрывает
    LoadProgressBar.Visible = False
    sbrStatus.Panels(sPanelKey).Text = vbNullString
    sbrStatus.Refresh
End Sub

Sub Main()
       ShowPb "ProgressPanel", "Построение списка тредов... "
'  ..... некоторый код ...........
       Hide PB "ProgressPanel"
End Sub


[Shiz]

2Ruslan Demidow
Спасибо! А как быть при Resiz'е

[Sebas]

как вариант, использовать VS.NET

[Ruslan Demidow]

2Ruslan Demidow
Спасибо! А как быть при Resiz'е

Скрывай, а после отображай.

[BV]

2 Ruslan Demidow

Твой способ неверен (читай через Ж), ведь афтару нужно именно в Panel на StatusBar'е, а не на неё. Так что только SetParent + GetWindowRect + SetWindowPos.

[Ruslan Demidow]

2 Ruslan Demidow

Твой способ неверен (читай через Ж), ведь афтару нужно именно в Panel на StatusBar'е, а не на неё. Так что только SetParent + GetWindowRect + SetWindowPos.

На любителя: у меня работает и меня устраивает. Как прекратит устраивать - перейду на предложенный тобой способ.
Тем более мой ответ был новичку (который возможно и не знает об API или только слышал о нём). Почитайте ваши ответы в топике.

SetParent'ом. Поиск!

Новичку они - что пустой звук. Или у вас всех начался месячник борьбы с простыми вопросами?

[Shiz]

SetParent + GetWindowRect + SetWindowPos

Можешь поподробней?

[Alexander N. Samarin]

А я где-то видел статью
http://vbrussian.com/Article.asp?ID=105 - Эта?

[BV]

SetParent + GetWindowRect + SetWindowPos

Можешь поподробней?

Это три Win32 API функции:

SetParent - устанавливает заданное окно ребёнком другого заданного окна как родителя.
GetWindowRect - служит для получения размера заданного окна.
SetWindowPos - служит для изменения размера и Z параметра окна (делает его позади всех, всегда наверху...)


Всё очень просто.
Надо узнать размер соответствующей панели, потом сделать твой прогресс дочерним окном панели статуса и только переместить его туда. Не знаешь как использовать эти API? Читай MSDN или API-Guide.