VBNet - Форум - Где в Word'е Timer?!? :)

Вопрос: Где в Word'е Timer?!? :) Добавлено: 19.10.06 23:37

Автор вопроса: -АлександР- | Web-сайт: sham.clan.su

Что-то покапался в вордоских элементах управления и... не нашёл.
Подскажите кто-нибудь, как его подключить или как хоть библиотека называется?
Заранее спасибо!
Ответить

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

Номер ответа: 1 Автор ответа: GenyaA Вопросов: 0 Ответов: 185	Web-сайт: www.genyaa.nm.ru Профиль \| \| #1	Добавлено: 19.10.06 23:49
	OnTime Method Starts a background timer that runs a macro on the specified date and at the specified time. expression.OnTime(When, Name, Tolerance) Запускает в фоновом режиме таймер, который активизирует указанный в аргументе макрос в установленные дату и время. Ответить

Номер ответа: 2 Автор ответа: -АлександР- Вопросов: 55 Ответов: 1008	Web-сайт: sham.clan.su Профиль \| \| #2	Добавлено: 20.10.06 15:45
	Спасибо, но не то. Нужно как в VB: Я хочу, чтобы он страницу двигал с определенной скоростью Ответить

Номер ответа: 3 Автор ответа: GenyaA Вопросов: 0 Ответов: 185	Web-сайт: www.genyaa.nm.ru Профиль \| \| #3	Добавлено: 20.10.06 16:49
	Я не знаю, как VB... но и в Word можно сделать продвижение страницы по таймеру: Public i As Long, nxt As Date, d As Single Sub BeginToStep() i = 0 d = 0.00001 'здесь промежуток времени между шагами - чем меньше, тем быстрее (1 = сутки) nxt = Now + d Application.OnTime When:=nxt, Name:="nxtstep" End Sub Sub nxtstep() If i < 30 Then 'ограничение по количеству шагов - чем больше, тем дальше продвинется i = i + 1 ActiveDocument.ActiveWindow.SmallScroll Down:=1 '1 - количество строк продвижения за шаг Application.OnTime When:=nxt, Name:="nxtstep" nxt = Now + d End If End Sub Ответить

Номер ответа: 4 Автор ответа: -АлександР- Вопросов: 55 Ответов: 1008	Web-сайт: sham.clan.su Профиль \| \| #4	Добавлено: 20.10.06 17:36
	Охты, и вправду работает... Спасибо, GeyaA, в ВБА - разбираешься Ответить

Номер ответа: 5 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #5	Добавлено: 20.10.06 19:01
	а SetTimer/KillTimer? Ответить

Номер ответа: 6 Автор ответа: -АлександР- Вопросов: 55 Ответов: 1008	Web-сайт: sham.clan.su Профиль \| \| #6	Добавлено: 20.10.06 19:04
	Ну я ж и спрашиваю, в какой библе? потому что VBA вордовский таких команд не знает Ответить

Номер ответа: 7 Автор ответа: GenyaA Вопросов: 0 Ответов: 185	Web-сайт: www.genyaa.nm.ru Профиль \| \| #7	Добавлено: 20.10.06 23:50
	а SetTimer/KillTimer? Уверен, что и это можно сэмулировать или реализовать нужные реакции Word'а под конкретные условия, если захотеть... я не юзал VB и не знаю, что именно делают эти команды(/функции/методы?). Ответить

Номер ответа: 8 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #8	Добавлено: 21.10.06 00:51
	чуваки... слышали о Aplications Programming Interface? ) Ответить

Номер ответа: 9 Автор ответа: -АлександР- Вопросов: 55 Ответов: 1008	Web-сайт: sham.clan.su Профиль \| \| #9	Добавлено: 22.10.06 00:00
	ААААААА...... понял Ответить

Номер ответа: 10 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #10	Добавлено: 22.10.06 17:06
	слава яйцам Ответить

Номер ответа: 11 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #11	Добавлено: 21.02.07 14:13
	А можно чуть подробнее про SetTimer и KillTimer. Ну, если не сложно. Ответить

Номер ответа: 12 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #12	Добавлено: 21.02.07 17:22
	Ну вообще-то MSDN есть, и ненадо говорить что он не установлен итп итд... Единственная маза - упали корневые DNS сервера Кстати где-то новость проскакивала что их недавно досили ах да, про что это мы... SetTimer задёт функцию которая будет сама вызываться через определённый интервал времени, параметры соответственно адрес функции которая вызывается, интервал, событие которое будет передаватся функции при её вызове (по не идентификатор), ну и хендел по которому потом убъём таймер. Код примерно такой... Декларации функций: Private Declare Function SetTimer& Lib "user32" (ByVal hWnd&, ByVal nIDEvent&, ByVal uElapse&, ByVal lpTimerFunc& Private Declare Function KillTimer& Lib "user32" (ByVal hWnd&, ByVal nIDEvent& Сама функция которая "тикает" (Типа как с Timer1_Timer) Private Sub TimerProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long) 'Код обрабатывающий таймер End Sub Установка таймера: Interval = 1000 'в мил. сек. Call SetTimer (Me.Hwnd, 1, Interval, AddressOf TimerProc) Код снятия таймера Call KillTimer (Me.hwnd, 1) Ответить

Номер ответа: 13 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #13	Добавлено: 27.02.07 17:11
	Спасибо, HACKER. Попробую так сделать. А MSDN то на англ. А с англ. то плоховато. Так что вдвойне спасибо. Ответить

Страница: 1 |