Перейти к содержимому





- - - - -

моя страшная жизнь

Автор: 0pheliac, 03 марта 2010 · 481 просмотров

:uzi: меня уже воротит от этого

Const fona_okno_teksta_1 = &H80000005
Const bukva_okno_teksta_1 = &H80000008
Const fona_okno_teksta_2 = &H80000008
Const bukva_okno_teksta_2 = &H80000005

Dim ZakrõtLiFormu As Boolean

Private Sub KnopkaZakroi_Click()
ZakrõtLiFormu = True
End Sub

Private Sub OknoTeksta_Change()
FormaTšasov.Caption = OknoTeksta
End Sub

Private Sub KnopkaPrikaza_Click()
dlina = Len(OknoTeksta.Value)
If dlina > 0 Then OknoTeksta.Value = Left(OknoTeksta.Value, dlina - 1)
End Sub


Private Sub UserForm_Activate()
ZakrõtLiFormu = False
a = Time
Do
b = Time
If b <> a Then
a = b
JarlõkVremja.Caption = "Vremja: " & b
JarlõkVremja.Font.Underline = Not JarlõkVremja.Font.Underline

End Sub


:angry: :angry: :angry: :moderator: :wacko: :thumbdown:

  • 0




Обратные ссылки на эту запись [ URL обратной ссылки ]

Обратных ссылок на эту запись нет

Новые записи

Март 2024

П В С Ч П С В
    123
45678910
11121314151617
18192021222324
252627 28 293031

0 посетителей

0 пользователей, 0 гостей, 0 скрытых