| Вопрос: Как заставить контрол мигать по условию? | Добавлено: 09.01.07 08:50 |
Автор вопроса:  vall
|
|
With Application.FileSearch
.NewSearch .LookIn = "\\Server\applications\TAPI\" .Filename = vc If .Execute() > 0 Then ComandButton1.ForeColor = vbRed '-надо чтобы мигала пока .Execute() > 0 End If End With |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #1 | Добавлено: 09.01.07 09:15 |
| Timer включи и пусть отслеживает. | ||
|
Номер ответа: 2 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #2 | Добавлено: 09.01.07 09:30 |
|
Что-то подобное.
With Application.FileSearch
.NewSearch .LookIn = "\\Server\applications\TAPI\" .Filename = vc If .Execute() > 0 Then Timer1.Enabled = True End If End With Private Sub Timer1_Timer() If .Execute() > 0 Then ComandButton1.ForeColor = vbRed '-надо чтобы мигала пока .Execute() > 0 Timer2.Enabled = True Timer1.Enabled = False Else Timer1.Enabled = False End If End Sub Private Sub Timer2_Timer() ComandButton1.ForeColor = vbGreen Timer2.Enabled = False Timer1.Enabled = True End Sub |
||
|
Номер ответа: 3 Автор ответа: vall Вопросов: 6 Ответов: 31 |
Профиль | | #3 | Добавлено: 09.01.07 10:15 |
Однако , объект требует для
Timer1.Enabled = True
|
||
|
Номер ответа: 4 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #4 | Добавлено: 09.01.07 10:23 |
|
Что требует переменной(Execute),
так она Dim Execute должна быть объявленна глобально.В общей области а не в процедуре. |
||
|
Номер ответа: 5 Автор ответа: vallВопросов: 6 Ответов: 31 |
Профиль | | #5 | Добавлено: 09.01.07 11:10 |
|
Все равно требует объект!
Как его объявить, так не идет setTimer1=Timer '??????
Вообщем туплю, однако!!! |
||
|
Номер ответа: 6 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #6 | Добавлено: 09.01.07 11:11 |
|
Или так попробуй если тебе нужно только в этой процедуре.
With Application.FileSearch
.NewSearch .LookIn = "\\Server\applications\TAPI\" .Filename = vc If .Execute() > 0 Then Timer1.Enabled = True Else Timer1.Enabled = False Timer2.Enabled = False ComandButton1.ForeColor = vbRed'это на каком цвете хочешь остановится. End If End With Private Sub Timer1_Timer() ComandButton1.ForeColor = vbRed Timer2.Enabled = True Timer1.Enabled = False Else Timer1.Enabled = False End If End Sub Private Sub Timer2_Timer() ComandButton1.ForeColor = vbGreen Timer2.Enabled = False Timer1.Enabled = True End Sub |
||
|
Номер ответа: 7 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #7 | Добавлено: 09.01.07 11:20 |
|
Поправил. Админ, а редактирование у ВАС на форуме не ожидается?
With Application.FileSearch
.NewSearch .LookIn = "\\Server\applications\TAPI\" .Filename = vc If .Execute() > 0 Then Timer1.Enabled = True Else Timer1.Enabled = False Timer2.Enabled = False ComandButton1.ForeColor = vbRed'это на каком цвете хочешь остановится. End If End With Private Sub Timer1_Timer() ComandButton1.ForeColor = vbRed Timer2.Enabled = True Timer1.Enabled = False End Sub Private Sub Timer2_Timer() ComandButton1.ForeColor = vbGreen Timer2.Enabled = False Timer1.Enabled = True End Sub |
||
|
Номер ответа: 8 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #8 | Добавлено: 09.01.07 11:25 |
|
Все равно требует объект!
Как его объявить, так не идет Так в VB справа в панели часики нарисованны. Ты об этом? Зарегенился смотрел вроде в 2005 году. Кинь часики на форму и читай хоть что-то. |
||
|
Номер ответа: 9 Автор ответа: vallВопросов: 6 Ответов: 31 |
Профиль | | #9 | Добавлено: 09.01.07 15:21 |
|
Просто очень редко программирую, и то на
на ламерском уровне, так как работа у меня другая! А это для облегчения рутины иногда что-то ваяю и уже не помню, каждый раз как заново! А Вам большое спасибо, что возились с ламером!!! |
||
Страница: 1 |