Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Цитата Dark_Timur:
При нажатии кнопки на "Label3" выводится "Текст 1", даже если время таймера равно 100. »
Естественно. Вы ведь в процедуре безусловно обнуляете «tTime» и так же безусловно задаёте надпись в «Label3».

Цитата Dark_Timur:
Command1 - Кнопка. Что она делает написано в коде »
Для чего она нужна — совершенно не понятно.

Код: Выделить весь код
Option Explicit

Dim lngTick As Long
Dim arrCaptions() As Variant

Private Sub Form_Load()
    lngTick = 0
    
    With Me.Timer1
        .Interval = 1000
        .Enabled = True
    End With
    
    arrCaptions = Array("AAAA", "SSSS", "DDDD", "FFFF")
    
    Me.Label1.Caption = ""
End Sub

Private Sub Timer1_Timer()
    If lngTick > UBound(arrCaptions) Then
        lngTick = 0
    End If
    
    Me.Label1.Caption = arrCaptions(lngTick)
    lngTick = lngTick + 1
End Sub

Последний раз редактировалось Iska, 28-06-2012 в 04:35. Причина: Сделал пример попроще


Отправлено: 04:22, 28-06-2012 | #2