Здраствуйте, уважаемые, а особенно здраствуйте Cardinal, т.к. это вопрос по мотивам статей
ссылки на которые указаны Вами в посте "Странный такой таймер". Как я понял, в VBA нет
собственного таймера с разрешающей способностью менее 1 сек. Класс VB.Timer конечно
хорош, но проблема в том, что далеко не у всех установлен VB, а значит на других компьютерах
такой таймер работать скорее всего не будет. Вот и захотелось мне написать свой собственный
класс, на основе API функций описанных в одной из ваших статей. Но тут сразу же возникла
проблема: функция AddressOf возращает только адрес процедур находящихся в модуле, а
не в классе, значит события Timer() в моём классе не получится. Получился такой класс с выносом:
общая для всех таймеров процедура EventTimer(). Далее я планировал передавать через один
из параметров класса, строкового типа, индивидуальное имя процедуры, вызываемой при
срабатывании каждого конкретного таймера созданного на основе класса. Но не тут-то было.
В VBA, в отличии от Delphi, нет переменных процедурного типа, и следующий код не катит:

Dim NameProc as String (?может есть что-то более подходящее)
NameProc=Timer1.SubName
Call NameProc

Конечно, можно вывернутся, передавать какой нибудь условный параметр, типа NumberSub, а
потом писать:

If NumerSub = 1 Then
Call EvStart1
ElsIf NumerSub = 2 Then
Call EvStart2 ...

Но уж больно это всё, как вы писали, через з...цу получается. Нельзя ли сделать что-нибудь
попроще в этом направлении?

Цитата

хорош, но проблема в том, что далеко не у всех установлен VB, а значит на других компьютерах такой таймер работать скорее всего не будет.

- Мне кажется ,что VB как бы везде установлен,где есть VBA. Для примера на работе у меня VB6 - не установлен ,а дома есть. Классный таймер работает и там и там.

Старуха
Это как ставить будешь

Класс Vb.Timer - это библиотека VB6.OLB. Попробуй потаскать ее за собой

Цитата(Registr @ 4.1.2005, 17:58)

Как я понял, в VBA нет собственного таймера с разрешающей способностью менее 1 сек.

Хреново понял.

Цитата(TimerInterval)

You can use the TimerInterval property to specify the interval, in milliseconds, between Timer events on a form. Read/write Long.

Цитата

You can use the TimerInterval property to specify the interval, in milliseconds, between Timer events on a form. Read/write Long.

Да хоть и так только в реальности меньше 0.2 сек он не пашет

Run-time error

Цитата

Да хоть и так только в реальности меньше 0.2 сек он не пашет

Загрузи Аксесс. Создай форму. Брось на нее лейбл. Открой редактор VBA и забей туда следующее

Код

Dim i As Long Private Sub Form_Load() Надпись0.Caption = "" Me.TimerInterval = 10 ' Интервал - 0.01 секунды i = 0 End Sub Private Sub Form_Timer() i = i + 1 If i Mod 100& = 0 Then Надпись0.Caption = Str(i) End Sub

Сохрани. Открой форму. Впечатления - сюда.

Цитата

Загрузи Аксесс

Но мы же были в xl?

В xl нету у формы такого события. Обидно, но факт.

Ну вот пришли к тому с чего начали.Поэтому Cardinal и сделал Taimer.

Цитата

мы же были в xl?

ихде это было указано?

Начиналось все здесь

http://forum.vingrad.ru/index.php?showtopic=29823&hl=таймер

Вот такая фенька получилась

Код

Private Sub CommandButton1_Click() Dim c Dim f Oclock  f = t For x = 0 To t + x  Oclock    c = (t - f)    Range("B2").Value = c 'для просмотра ,что происходит   Range("C2").Value = x    If c = 500 Then    MsgBox "Прошло пол секунды" Exit For   End If   Next     End Sub

модуль

Код

Private Declare Function GetTickCount Lib "kernel32" () As Long Global t Sub Oclock() t = GetTickCount End Sub

Это сообщение отредактировал(а) Старуха - 1.4.2005, 21:48

Присоединённый файл ( Кол-во скачиваний: 6 )
 _._______.rar

Цитата(Registr @ 4.1.2005, 14:58)

If NumerSub = 1 Then Call EvStart1 ElsIf NumerSub = 2 Then Call EvStart2 ...

Чтобы вызвать процедуру по ее имени надо посмотреть на этот пример (см. ниже).

Вообще Registr если обращаетесь лично ко мне, то скидывайте мне плиз сообщение по PM, а то ведь я могу и не узнать...

Присоединённый файл ( Кол-во скачиваний: 6 )
 howto_callbyname.zip