|
|
|
Application.OnTime - вызов процедуры с аргументами
|
|||
|---|---|---|---|
|
#18+
собственно а то че-то не получается имею: Application.OnTime (Now + TimeValue(tm)), "proced (arg1, arg 2)" sub proced (arg1, arg2) bla-bla-bla end sub заранее спасибо ответившим без аргументов все пашет, объявлять аргументы публичными нельзя ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.06.2005, 18:07:42 |
|
||
|
Application.OnTime - вызов процедуры с аргументами
|
|||
|---|---|---|---|
|
#18+
Олег aka 3вероВоусобственно а то че-то не получается имею: Application.OnTime (Now + TimeValue(tm)), "proced (arg1, arg 2)" sub proced (arg1, arg2) bla-bla-bla end sub заранее спасибо ответившим без аргументов все пашет, объявлять аргументы публичными нельзя В чем выражается "че-то не получается"? Сообщение об ошибке, молчаливое продолжение программы? Каков тип и как объявлены аргументы процедуры, является ли процедура глобальной? Пробовали ли Вы объявлять их со значениями по умолчанию и запускать процедуру без указания аргументов? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.06.2005, 10:11:13 |
|
||
|
Application.OnTime - вызов процедуры с аргументами
|
|||
|---|---|---|---|
|
#18+
выдает сообщение: "не найден макрос 'proced(arg1, arg2)'" агрументы типа String процедура описана в модуле как: Код: plaintext 1. 2. Код: plaintext без указания аргументов все запускается чтоб запускать процедуру, не используя аргументы, нужно будет объявить публичными от 20 переменных (10 х 2 аргумента), а делать этого не хочется очень ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.06.2005, 11:37:13 |
|
||
|
Application.OnTime - вызов процедуры с аргументами
|
|||
|---|---|---|---|
|
#18+
Олег aka 3вероВоувыдает сообщение: "не найден макрос 'proced(arg1, arg2)'" агрументы типа String процедура описана в модуле как: Код: plaintext 1. 2. Код: plaintext без указания аргументов все запускается чтоб запускать процедуру, не используя аргументы, нужно будет объявить публичными от 20 переменных (10 х 2 аргумента), а делать этого не хочется очень первое - sub proced (byval arg1 as string, byval arg2 as string) (на всякий случай) второе попробуйте вот так Application.OnTime (Now + TimeValue(tm)), "proced """arg1""", """arg2"""" или Application.OnTime (Now + TimeValue(tm)), "call proced ("""arg1""", """arg2""")" третье - если arg1 и arg2 - имена переменных, то как и где они объявлены? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.06.2005, 12:01:45 |
|
||
|
Application.OnTime - вызов процедуры с аргументами
|
|||
|---|---|---|---|
|
#18+
nibblesпервое - sub proced (byval arg1 as string, byval arg2 as string) (на всякий случай) второе попробуйте вот так Application.OnTime (Now + TimeValue(tm)), "proced """arg1""", """arg2"""" или Application.OnTime (Now + TimeValue(tm)), "call proced ("""arg1""", """arg2""")" третье - если arg1 и arg2 - имена переменных, то как и где они объявлены? и - нулевое, тоже на всякий случай, :)) чтоб не полагаться на дефаулт: public sub proc... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.06.2005, 12:05:32 |
|
||
|
Application.OnTime - вызов процедуры с аргументами
|
|||
|---|---|---|---|
|
#18+
2nibbles: сенкс, что откликнулись ;) arg1, arg2 - вычисляемые переменные (неглобальные и непубличные), заданы в той же процедуре CLICK, что содержит Application.OnTime (Now + TimeValue(tm)), "proced (arg1, arg 2)" Код: plaintext я так думаю, вся проблема в этом... их значения видно не передаются процедуре proced, так как после завершения работы процедуры CLICK они "умирают" попробовал всё, что советовали, не фурычит: Код: plaintext Код: plaintext прийдется кучу пабликов делать.... ээээх ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.06.2005, 19:34:49 |
|
||
|
Application.OnTime - вызов процедуры с аргументами
|
|||
|---|---|---|---|
|
#18+
а если переменные запихнуть в какие-нибудь ячейки и отдуда потом их считать из процедуры. Я так делал по крайней мере ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.06.2005, 09:09:28 |
|
||
|
Application.OnTime - вызов процедуры с аргументами
|
|||
|---|---|---|---|
|
#18+
Олег aka 3вероВоу2nibbles: сенкс, что откликнулись ;) arg1, arg2 - вычисляемые переменные (неглобальные и непубличные), заданы в той же процедуре CLICK, что содержит Application.OnTime (Now + TimeValue(tm)), "proced (arg1, arg 2)" Код: plaintext я так думаю, вся проблема в этом... их значения видно не передаются процедуре proced, так как после завершения работы процедуры CLICK они "умирают" попробовал всё, что советовали, не фурычит: Код: plaintext Код: plaintext прийдется кучу пабликов делать.... ээээх Нужно сделать так, чтоб в итоге строка, предоставляемая Application.OnTime (то, что будет видно в Debug.Print) была равна: Код: plaintext Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.06.2005, 09:39:29 |
|
||
|
Application.OnTime - вызов процедуры с аргументами
|
|||
|---|---|---|---|
|
#18+
2HandKot: пришлось так и сделать nibbles Нужно сделать так, чтоб в итоге строка, предоставляемая Application.OnTime (то, что будет видно в Debug.Print) была равна: Код: plaintext Код: plaintext в том-то и дело, что нет... пишет, что "не найден макрос 'proced "значение трали-вали один", "значение трали-вали два"' или 'call proced ("значение трали-вали один", "значение трали-вали два")' Остановился на простом. Спасибо за ответы :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.06.2005, 12:53:26 |
|
||
|
|

start [/forum/search_topic.php?author=SerVR&author_mode=last_posts&do_search=1]: |
0ms |
get settings: |
6ms |
get forum list: |
9ms |
get settings: |
6ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
29ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
28ms |
get tp. blocked users: |
1ms |
| others: | 643ms |
| total: | 744ms |

| 0 / 0 |
