|
|
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
Кто нибудь знает, можно ли в конструкторе в свойствах события поставить уже готовую процедуру, а то есть куча одинаковых обработчиков, которые я уже запарился клонировать ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:06 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
В конструкторе чего??? Что такое свойства события??? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:09 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
В конструкторе формы, где допустим ставим обработчик на открытие формы, при этом тот же обработчик надо поставить на обновление пары тройки полей и т.д. Не хочеться каждый раз копировать текст обработчика в новую процедуру. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:13 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
Пишите функцию, например test(), в конструкторе выбираете все нужные контролы и в событии пишите =test() ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:14 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
Пихаешь в модуль Public sub И вызываешь когда надо типа CALL ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:15 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
Говорит нет такой функции а по нажатию в конструкторе в свойствах обработчика кнопки ... Выдает ее родимую (слово public и в модуль ее засунуть не забыл) В чем прикол ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:23 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
Догнал, нужна функция, а уменя процедура. Сейчас переделаем, хотя стоп, а че она возвращать должна? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:27 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
Типа мой сообщения в игноре? В любой модуль суешь что-то вроде Public Sub MyProcedure ... End Sub Вызываешь так Call MyProcedure ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:30 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
Уважаемый Vsevolod Вас я читаю и пробую ваши рекомендации в первую очередь, так вот ругается он на слово call ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:32 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
>хотя стоп, а че она возвращать должна? А зачем ей что-то возвращать? Необязательно. И Public она быть не обязана, если находится в той же форме ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:32 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
Если это функция, она должна вернуть значение, а если это процедура, он ее не видит ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:33 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
а кто сказал что функция прям таки обязана что-либо возвращать? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:39 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
2 TatianaT а кто сказал что функция прям таки обязана что-либо возвращать? Бил Гейтс. Но можно конечно не принимать возвращаемое ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:42 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
Ок, переделал ее в функцию, но возникла другая проблема С перемещением ентой функции в модуль VBA стал ругаться на Me! говорит: неправильно ты ее юзаешь уважаемый ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:44 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
>Но можно конечно не принимать возвращаемое И что вернет такая функция Public Function test() MsgBox "test" End Function ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:47 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
Естественно. Есть два пути: 1) set mee = ActiveForm внутри функции 2) в функции параметр типа форма, а при использовании =Func([form]) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:49 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
>С перемещением ентой функции в модуль VBA стал ругаться на Me! >говорит: неправильно ты ее юзаешь уважаемый А зачем вы ее в общий модуль? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:50 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
В общий модуль потому, что используется она в двух основных формах с шестью подставляемыми на выбор подчиненками ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:53 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
2 Serge Gavrilov И что вернет такая функция Public Function test() MsgBox "test" End Function Выполни и посмотри. (Для тех кому лень смотреть - Empty) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:54 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
To: кам выдает ошибку на activeForm говорит незнаю ентого слова ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:56 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
Screen.ActiveForm но при применении этой функции, в случае наличия модальных (диалоговых), окон вас ждут сюрпризы :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:58 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
Я не догнал. Из-за переноса функции в модуль, разве форма перестала быть активной. Почему перестала работать Me!, что изменилось и как с этим бороться ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 14:59 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
Кстати Set Me = Screen.ActiveForm тоже неработает, говорит неправильно Me юзаем ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 15:01 |
|
||
|
много одинаковых обработчиков событий
|
|||
|---|---|---|---|
|
#18+
>Выполни и посмотри. >(Для тех кому лень смотреть - Empty) Я прям смутился :) И что такое Empty? Это лишь ключевое слово указывающее на неинициализированное значение. А вы это видимо за значение принимаете? А такая функция что вернет: Public Function test() As Object MsgBox "test" End Function Уж точно не "Empty" :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.08.2003, 15:04 |
|
||
|
|

start [/forum/topic.php?fid=45&msg=32240313&tid=1679831]: |
0ms |
get settings: |
7ms |
get forum list: |
17ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
69ms |
get topic data: |
10ms |
get forum data: |
3ms |
get page messages: |
86ms |
get tp. blocked users: |
2ms |
| others: | 204ms |
| total: | 406ms |

| 0 / 0 |
