как закрыть msgbox через некоторое время автоматически?

[Cramac]

Всем привет. Есть большой цикл, в нутри него выпадает msgbox с сообщением. Как это окошко можно закрыть через какое то время ?

[dr.MIG]

SendMessage WM_CLOSE или DestroyWindow.

[GM]

Такое подойдет?
http://vb.mvps.org/samples/project.asp?id=timedmsg

[Cramac]

смысл вообще такой. цикл очень большой и долго думает (около 20 минут) в цикле идет прогресбар, но через какой то период программка как бы подвисает (не отвечает ни на что) пока не закончит или пока не закрыть самому...
что бы этого избежать нашел выход выдав msgbox
но сидеть и тыркать в него мышей тож не прельщает

[EUGY]

скажем, при каждой десятой итерации DoEvents ?

[Cramac]

да только при каждой.
за 1 ход цикла, идет перебор 300 000 значений массива...и что бы окно не подвисало, хочется сделать паузу на момент и перейти к следующему ходу цикла

[EUGY]

за 1 ход цикла, идет перебор 300 000 значений

Логика программы такое требует? Может как-то упростить?

[Cramac]

логика требует. упростить некуда

[EUGY]

напиши ActiveX EXE, пусть в другом процессе вычисляется.

[Cramac]

если бы я умел, написал бы, я за ВБ четвертый день
нужно простое решение задачи. нашел в msgbox
или ему подобную процедуру вставить для торможения процесса основного.

[EUGY]

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

[Cramac]

DoEvents Function по подробнее если можно, а если есть примерчик.

[EUGY]

Private Sub Command1_Click()
Dim x As Integer
Dim s As String
For x = 0 To 10000
DoEvents
s = s & "OBHSS"
Debug.Print s
Next
End Sub

[Cramac]

спасибо. помогло.

А еще такой вопрос. Из за чего может перебор 1 и того же массива через несколько повторений начинает медленнее перебиратся? (сравнивал по прогресбару)

система такая:

есть цыкл
фор и=1 то 100
....
тут перебор двухмерного массива
....
некст и

все начинается с секундного перебора, а через несколько и основного цикла перебор сильно замедляется

[BV]

Либо показывай код, либо жди Хакера (это местный телепат такой)...

[Cramac]

вот:

private Sub chek1_file(filename)

count_ch = 0
ready = 0

For i = 1 To 30
If arr_file(filename, i) = 0 Then
count_ch = count_ch + 1
End If
Next i

If count_ch = 30 Then
ready = 1

End If





Form2.Label6.Caption = Form2.Label6.Caption & ready & " "

If ready <> 0 Then
Form2.Label7.Caption = Form2.Label7.Caption & "(" & ready & ")"


ReDim tmp1(UBound(nomerwinb, 1), 2)
For o = 1 To UBound(nomerwinb, 1)
If nomerwinb(o, 1) <> 0 Then
tmp1(o, 1) = nomerwinb(o, 1)
tmp1(o, 2) = nomerwinb(o, 2)
End If
Next o

' переопределяем основной массив
ReDim nomerwinb(UBound(nomerwinb, 1) + 1, 2)

For o = 1 To UBound(nomerwinb, 1) - 1
nomerwinb(o, 1) = tmp1(o, 1)
nomerwinb(o, 2) = tmp1(o, 2)
Next o


nomerwinb(UBound(nomerwinb), 1) = filename
nomerwinb(UBound(nomerwinb), 2) = ready


tmp_n_w = 1
End If

End Sub





Private Sub Command1_Click()
for i=1 to 200

For p = 1 To kolvo_file
chek1_file (p)
Next p

next i
End Sub

[Хакер]

И тут пришёл Хакер. И единственное, что он может сказать (при всей своей телетической подготовке) это:





(это следует понимать как "А где остальные 99% этой программы")

[Cramac]

а больше ничего особого нет, в начале
Private Sub Command1_Click()
идет только загрузка массива и забивание его значениями.
arr_file(5000, 30)
все эти действа разовы, тормозить начинает в нутри цикла на том что сверху выложил.

[EUGY]

....
Form2.Label6.Caption = Form2.Label6.Caption & ready & " "
....

я тоже телепат

s = s & "OBHSS"

[Cramac]

ладно, буду сам искать...попробую найти на чем тормозить начинает