Конференція VBStreets - Перегляд теми - як закрити msgbox через деякий час автоматично

Весь смак програмування!

Список форумів‹ Visual Basic‹ Visual Basic 1–6
Змінити розмір шрифту

FAQ
Вхід

Як закрити msgbox через деякий час автоматично?

Логіка програми таке потребує? Може спростити?

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

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

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

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

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

Private Sub Command1_Click() for i=1 to 200

For p = 1 Tokolvo_file chek1_file (p) Next p

І тут прийшов Хакер. І єдине, що він може сказати (за всієї своєї телетичної підготовки) це:

(це слід розуміти як "А де решта 99% цієї програми")

я теж телепат