Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Нужен счетчик

Автор: Voldemar2004 16.4.2005, 20:36

Код


Dim TaskComplit As Integer
Dim ProgressBarFormValue As String
Dim i As Integer

ProgressBarFormValue = Text3.Text

Do
If ProgressBarFormValue <> "0" Or ProgressBarFormValue <> "" Then

    If ProgressBarFormValue = LastValue Then
    Timer2.Enabled = False
          

        TaskComplit = MsgBox("")
        If TaskComplit = 1 Then

       ' сюда что-то надо вставить
       '
        Form1.Text3.Text = Form2.List1.List(i)
        End If
        Unload Me
   
    End If
    LastValue = ProgressBarFormValue
    
End If

Loop While ProgressBarFormValue <> LastValue

FileNameInTask - число файлов в Form2.List1.List(i)
Добавлено @ 20:39
Мне надо чтоб счетчик увеличивался на 1-цу после MsgBox до

Код


FileNameInTask = List1.ListCount

Автор: Naghual 16.4.2005, 20:58

i = i + 1
!?

Автор: Voldemar2004 16.4.2005, 21:09

Ну если б так, я бы не спрашивал. smile

Добавлено @ 21:11
Ну а если в Form2.List1.List(i) "i" будет равно 100, да при этом обновление должно происходить не мгновенно, а по таймеру как только завершится задача - через минуту, две.

Автор: Naghual 16.4.2005, 21:43

Ну тогда наверное правильнее было бы дождатся окончания работы процесса, а не ждать минуту-две! Как ты считаеш?

Автор: Voldemar2004 17.4.2005, 09:06

Объясняю на пальцах: сначала i=0

Код


If TaskComplit = 1 Then

если TaskComplit =1 тогда i=1, потом у меня идет выполнение задачи, задача выполнилась, опять - TaskComplit =1, i уже = 2, и т.д. до максимального значения i (List1.ListCount).

smile

Автор: Naghual 18.4.2005, 09:04

Код


    Dim OldTaskComplete as Integer
    Dim TaskComplete as Integer

    Do While  TaskComplete < List1.ListCount
        ...
        Do While TaskComplete = OldTaskComplete
            DoEvents
        Loop
        OldTaskComplete = TaskComplete
        ...
    Loop

Вот тебе набросок тела цикла