[CDR 2017-2021] Передача объекта управления в процедуру

  • Автор темы Автор темы iKoolk
  • Дата начала Дата начала

iKoolk

Участник
Топикстартер
Сообщения
198
Реакции
11
Господа, бодрый вечер.

Скрипт не мой, уверен, что некоторые из вас с ним сталкивались, ибо он довольно старый. Применяется, не скажу, что оригинальная, но все же не самая стандартная процедура обработки смены optionbutton. я обычно пишу не так и если что - перепишу, но во-первых, мне это решение понравилось, а во- вторых, хочется разобраться. Итак:
1700655642761.png


ошибка возникает при клике на смену единиц измерения в форме:
1700655892446.png


по-моему, frm.opPx вполне себе объект, хотя в режиме отладки он показывает, булевое значение.
frm.opPx.object тоже не работает

Объясните, если не сложно.

Спасибо
 
А чего в круглых скобках?
PS: Это не скрипт, а макрос
 
Господа, бодрый вечер.

Скрипт не мой, уверен, что некоторые из вас с ним сталкивались, ибо он довольно старый. Применяется, не скажу, что оригинальная, но все же не самая стандартная процедура обработки смены optionbutton. я обычно пишу не так и если что - перепишу, но во-первых, мне это решение понравилось, а во- вторых, хочется разобраться. Итак:
Посмотреть вложение 162270

ошибка возникает при клике на смену единиц измерения в форме:
Посмотреть вложение 162272

по-моему, frm.opPx вполне себе объект, хотя в режиме отладки он показывает, булевое значение.
frm.opPx.object тоже не работает

Объясните, если не сложно.

Спасибо
очень может быть, что на форме присутствует какой-то объект которого нет в библиотеках старый не поддерживается или вообще какой-то сторонний.
 
очень может быть, что на форме присутствует какой-то объект которого нет в библиотеках старый не поддерживается или вообще какой-то сторонний.
Ну там же явная синтаксическая ошибка, скобки лишние
 
вот здесь:
Private Sub opCm_Change(): Unit = cdrCentimeter: optUnitChange opCm: End Sub
видно как это было написано изначально
 
ладно процедуре. то, как мы сейчас называем МАКРОС и ПРОЦЕДУРУ не влияет на ее выполнение
Влияет, поскольку в функцию параметы в скобках передаются а в процедуру нет.
Пишите изначально код правильно и отвечающие будут сразу решать реальную проблему, а не наведенную.
 
очень может быть, что на форме присутствует какой-то объект которого нет в библиотеках старый не поддерживается или вообще какой-то сторонний.
спасибо за идею. заменил Private Sub optUnitChange(u As Control) на Private Sub optUnitChange(u As OptionButton)
и заработало!