VPF::ProgressBar и Timer - Форум программистов

Voldemar2004

Дата 31.3.2005, 18:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

Короче так: ПрогрессБар считывает значение .value из текстового поля Text1.Text например, мне надо так, чтоб если значение перестало увеличиваться (ну не меняется в течении 1-ой секунды например) в поле то завершаем все хозяйство: доводим значение ПрогрессБар'a до максимума.

--------------------

i_i
(';')
(V)

user posted image

Naghual

Дата 31.3.2005, 20:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

Код


Private LastValue as single

private sub Timer1_Timer()
    if Val(Text1.Text) = LastValue then
        Timer1.Enabled = False
        Unload Me
    End if
    LastValue  = Val(Text1.Text)
end sub

Идея такова. Писал навскидку, уж не обезсудьте.

--------------------

Я желаю всем Счастья!

efedron

Дата 1.4.2005, 15:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 135
Регистрация: 16.3.2005

Репутация: 4
Всего: 4

Naghual
все правильно..тут и думать нечего smile

--------------------

Прежде чем совершить акт разрезания определенной материи целесообразно удостовериться в правильности всех произведенных измерений.

Voldemar2004

Дата 2.4.2005, 11:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

Вот так:

Код


Private LastValue As Single

Private Sub Timer1_Timer()

Do
If Text1.Text = "0" Or Text1.Text = "" Then

Else:
    If Val(Text1.Text) = LastValue Then
    Timer1.Enabled = False
    
        K = MsgBox("Message", vbOKOnly)
        
        If K = 1 Then
        Unload Me
        End If
       
    End If
    LastValue = Val(Text1.Text)
    
End If

Timer1.Enabled = True

Loop While Val(Text1.Text) <> LastValue

End Sub

--------------------

i_i
(';')
(V)

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »