VBNet - Форум - Мелкая, неприятная, надоедливая проблема!

Вопрос: Мелкая, неприятная, надоедливая проблема! Добавлено: 10.05.07 22:08

Автор вопроса: Boconon | Web-сайт: microsoft.com | ICQ: 216390557

Private Sub Timer1_Timer()
Peremenna = Peremenna + 1
If Peremenna = Val(timeTxt.Text) Then
Call Shell(exeTxt.Text, vbNormalFocus)
Unload Me
End If
End Sub

По идее, когда таймер отстукает столько раз, сколько написано в timeTxt текстбоксе, то запустится приложение, путь к которому написан в exeTxt.
Но не работает? почему? Помогите плз.

VB6 XP Prof. SP2
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: nguufxm6bo Вопросов: 0 Ответов: 27	Профиль \| \| #1	Добавлено: 10.05.07 22:26
	Смотря что написано в текстбоксах timeTxt, exeTxt, какой тип имеет Peremenna, активен ли таймер, какой у него интервал. Когда проверишь все эти условия на корректность, сам найдешь ошибку. Ответить

Номер ответа: 2 Автор ответа: Boconon ICQ: 216390557 Вопросов: 25 Ответов: 71	Web-сайт: microsoft.com Профиль \| \| #2	Добавлено: 10.05.07 22:32
	В текстбоксах все Ок. Если выполнить Call Shell(exeTxt.Text, vbNormalFocus) то все работает. И с таймеров усе проверено. А что насчет типа переменной - я ее вообще не объявлял. Пофигизм. А Option Explicit отдыхает. И таймер, и запуск проги по отдельности работают - а вместе - никак!!! Ответить

Номер ответа: 3 Автор ответа: Boconon ICQ: 216390557 Вопросов: 25 Ответов: 71	Web-сайт: microsoft.com Профиль \| \| #3	Добавлено: 10.05.07 22:53
	Все. Вопрос закрыт. Решил его малость иначе. Спасибо. Ответить

Номер ответа: 4 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #4	Добавлено: 10.05.07 22:54
	кхм, ну даже не знаю что сказать оО убьет тебя такой ламерский стиль. "Необъявлял" твоя переменная создаеца в таймере и время жизни у нее тольк на время выполнения процедуры таймера, ето значит, что переменная у тебя ВСЕГДА равна 1. Объяви ее глобально Dim peremenna As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() peremenna = 0 End Sub Private Sub Timer1_Timer() peremenna = peremenna + 1 If peremenna = Val(timeTxt.Text) Then Call Shell(exeTxt.Text, vbNormalFocus) Unload Me End If End Sub Ответить

Номер ответа: 5 Автор ответа: Gogic Вопросов: 38 Ответов: 121	Профиль \| \| #5	Добавлено: 10.05.07 23:24
	Чего только не увидишь Ответить

Номер ответа: 6 Автор ответа: VisualPaul ICQ: 402519798 Вопросов: 12 Ответов: 111	Профиль \| \| #6	Добавлено: 11.05.07 17:37
	А вообще рекомендую ставить Option Exeplit Ответить

Номер ответа: 7 Автор ответа: User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302	Профиль \| \| #7	Добавлено: 11.05.07 17:38
	Exeplit => Explicit Ответить

Номер ответа: 8 Автор ответа: Boconon ICQ: 216390557 Вопросов: 25 Ответов: 71	Web-сайт: microsoft.com Профиль \| \| #8	Добавлено: 12.05.07 19:47
	Спасибо! Ответить

Страница: 1 |