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

[iKoolk]

Господа, бодрый вечер.

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

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

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

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

Спасибо

 

[_MBK_]

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

 

[DukereD]

Господа, бодрый вечер.

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

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

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

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

Спасибо

очень может быть, что на форме присутствует какой-то объект которого нет в библиотеках старый не поддерживается или вообще какой-то сторонний.

 

[_MBK_]

очень может быть, что на форме присутствует какой-то объект которого нет в библиотеках старый не поддерживается или вообще какой-то сторонний.

Ну там же явная синтаксическая ошибка, скобки лишние

 

[iKoolk]

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

без круглых тоже не работает, в скобки засунул, чтобы передать параметр внизу идущей функции

 

[_MBK_]

без круглых тоже не работает, в скобки засунул, чтобы передать параметр внизу идущей функции

optUnitChange это не функция

 

[iKoolk]

вот здесь:
Private Sub opCm_Change(): Unit = cdrCentimeter: optUnitChange opCm: End Sub
видно как это было написано изначально

 

[iKoolk]

optUnitChange это не функция

ладно процедуре. то, как мы сейчас называем МАКРОС и ПРОЦЕДУРУ не влияет на ее выполнение

 

[_MBK_]

ладно процедуре. то, как мы сейчас называем МАКРОС и ПРОЦЕДУРУ не влияет на ее выполнение

Влияет, поскольку в функцию параметы в скобках передаются а в процедуру нет.
Пишите изначально код правильно и отвечающие будут сразу решать реальную проблему, а не наведенную.

 

[iKoolk]

очень может быть, что на форме присутствует какой-то объект которого нет в библиотеках старый не поддерживается или вообще какой-то сторонний.

спасибо за идею. заменил Private Sub optUnitChange(u As Control) на Private Sub optUnitChange(u As OptionButton)
и заработало!

 

[DukereD]

спасибо за идею. заменил Private Sub optUnitChange(u As Control) на Private Sub optUnitChange(u As OptionButton)
и заработало!

можно вообще тип данных убрать.

 

[iKoolk]

можно вообще тип данных убрать.

точно, можно, но это унизительно для коллектива (с) Жванецкий