Обновление окна из внешней функции

[Inferno]

Есть окно с прогресс баром и внешняя функция для управления прогресс баром. Если функция находится в форме - никаких проблем с обновлением, если во вненшнем модуле, то в лучшем случае окно просто не обновляется. Можно конечно вставить в функцию Form.Show, но хотелось бы что-то более цивильное.

[ALX_2002]

А как ты обновляешь ? Через API или обычными средствами ?

[ALX_2002]

Хотелось бы глянуть на пример кода

[Inferno]

Да никак я пока не обновляю
Особо не заморачивался с этим, пока были другие задачи, а счас очередь дошла и до этого.

так для теста

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

'форма
Private Sub Command1_Click()
Call UpdateTest(Me)
End Sub



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

'внешний модуль
Public Function UpdateTest(frm As Form)
For k = 0 To 65000
DoEvents
frm.Label1.Caption = k
frm.Show
Next k
End Function


[ALX_2002]

Ничё не понял..... Какого рода обновления ты делаешь

Одно дело Redraw, другое дело обновление данных внутри объектов.

Ты объясни на пальцах, чего сделать нужно

[Inferno]

На форме есть элемент progress. Из формы вызываю внешнюю функцию находящуююся в другом модуле и изменяющуую значения прогресс бара. Нужно чтобы окно не терялось во время выполнения функции а отображало прогресс выполнения. Посмотри пример, там вроде просто.

[ALX_2002]

Ничё не понятно.... Тебе надо чтобы окно всё время поверх что ли было ? Т.е чтобы остальные его не перекрывали ?

P.S Я или совсем туп, или.... одно из двух

[Inferno]

Возьми пример. Создай форму на ней по дефолту лейбл и комманд буттон. Засунь код ф форму и модуль. Посмотри на результат. Потом заремь в модуле DoEvents и посмотри еще раз.

[ALX_2002]

Сделал. Результат увидел. Логичный вопр - а зачем тебе убирать DoEvents ?

[Inferno]

Я же говорил, может есть более корректная реализация.

[Cryonyx]

Наверно потому, что он ужасно тормозит критичные вычисления.
Вот представь себе, что у него не 65000 операций, а пара миллионов...
А DoEvents каждый раз ждёт отклика системы...
Как вариант - вызывать DoEvents через определённое число итераций или юзать стороннюю библу...

[ALX_2002]

Вот... Вернулся я.. Девушку встречал.

А если так сделать ?

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

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

Do

код..

Sleep 2
Doevents
Loop

А вообще и таймер можно, а если обычный VB -ный не хочется, то можно через API его создать.

Решений море

[Inferno]

Спасибо уже сделал.

[GM]

Можна еще вот так

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

For k = 0 To 65000

if k mod 1000 =0 then  DoEvents
frm.Label1.Caption = k
frm.Show
Next k


[Andrey Fedorov]

Возьми пример. Создай форму на ней по дефолту лейбл и комманд буттон. Засунь код ф форму и модуль. Посмотри на результат. Потом заремь в модуле DoEvents и посмотри еще раз.

Просто делай Refresh своему Label.

[alibek]

Есть окно с прогресс баром и внешняя функция для управления прогресс баром. Если функция находится в форме - никаких проблем с обновлением, если во вненшнем модуле, то в лучшем случае окно просто не обновляется. Можно конечно вставить в функцию Form.Show, но хотелось бы что-то более цивильное.

В форме сделай публичный флаг, который будет включаться при событии Activate.
Я обычно создавал публичную функцию Init, которая запускала внешнюю функцию.

[Inferno]

Лэйбл приведен только в качестве примера.
Вобщем если кого интересут - пробуйте.

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


Private Declare Function GetInputState Lib "user32" () As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Sub SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Public Enum WindowState
    SW_HIDE = 0
    SW_MAXIMIZE = 3
    SW_MINIMIZE = 6
    SW_RESTORE = 9
    SW_SHOW = 5
    SW_SHOWMAXIMIZED = 3
    SW_SHOWMINIMIZED = 2
    SW_SHOWMINNOACTIVE = 7
    SW_SHOWNA = 8
    SW_SHOWNOACTIVATE = 4
    SW_SHOWNORMAL = 1
End Enum

Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40

Private WindowIsActive As Boolean

Public Function Redraw(ByVal hWnd As Long, ByVal State As WindowState, ByVal OnTop As Boolean)
   If Not GetInputState <> 0 Then DoEvents
   If WindowIsActive OR Not OnTop Then
      ShowWindow hWnd, State
   Else
      SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
      WindowIsActive = True
   End If
End Function


[Inferno]

Итак строка

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

     If Not GetInputState <> 0 Then DoEvents


никого не смутила
Сам лажанулся

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


  If GetInputState() Then DoEvents


Вобщем рефрешнуть окно можно 3 айпишными функциями:
1) ShowWindow
2) SetWindowPos
3) MoveWindow

Может кто подскажет какая из этих функций выполняется быстрее?
И еще вопрос. У меня создается такое впечатление, что окно не просто отбражается, а создается его новый экземпляр. По крайней мере у меня после выгрузки программы, в памяти остается висеть процесс.[/code]

[Cryonyx]

Ну, процесс состоит не только из форм...
Ведь прога, в составе которой только сабмэйн, не выгружается из памяти, если ты этого не хочешь