All Forums
 Категория Visio
 Форум Вопросы и ответы
 Окно специальных настроек
Author Previous Topic Topic Next Topic  

zz 5

Russia
54 Posts

Posted - 08/28/2006 :  18:16:01
Здраствуйте, уважаемые форумчане. Помогите с маленькой проблемой. Создал смарт-шейп, к котором определил необходимые поля. Хочу по двойному клику на шейпе вызывать окно специальных настроек, которое можно вызвать следующим способом: правой кнопкой по шейпу, форма, специальные настройки. Так в настройке "Режимы" я такой не нашел. Попробывал записать макрос, но тоже не получилось. Как быть ? Спасибо за понимание :)

Если автор пишет о том, чего не понимает, его работа будет понята только теми читателями, которые понимают в этом больше, чем он !

Tumanov

Russia
1198 Posts

Posted - 08/28/2006 :  21:40:41
Вопрос я не совсем понял...
Можно предположить, что по двойному клику Вы хотите просто открыть окно Custom Properties. Будем исходить из этого.
Открыть такое окно можно методом DoCmd с параметром 1312. Для этого можно написать макрос, например, такой
Sub ttt()
Application.DoCmd "1312"
End Sub
и вызывать его по двойному клику. Для этого в ячейку EvntDblClick секции Events шейпа прописывается формула
=RUNADDON("ThisDocument.ttt")
Тогда по двойному клику вызывется макрос, который откроет окошко.
Можно самому макрос не писать, а воспользоваться похожим, уже имеющимся. У меня, например, достаточно в ячейку EvntDblClick прописать =RUNADDON("NETWORK SHAPE PROPERTIES"). При этом вместо моего макроса ttt вызывется чужой и тоже откроет окошко (только название будет другое).
Может и еще проще можно, если подумать, но пока только это...
Go to Top of Page

zz 5

Russia
54 Posts

Posted - 08/29/2006 :  10:09:15
Все верно, вы совершенно меня правильно поняли. Все получилось, спасибо. Единственное непонятно. Если ничего в свойствах не изменить и просто нажать "ОК" или "Отмена", то выскакивает ошибка "Run-time error - 2032466955 (86db03f5);". Интересно, с чем это может быть связано ? Попробывал создать пустой документ, на него бросил любой шейп, определил спец. сво-ва, написал макрос, назначил вызов макроса по двойному клику, проверил - тоже самое :( Почему так получается ?

Заранее спасиб ! С Уважением, Игорь

Если автор пишет о том, чего не понимает, его работа будет понята только теми читателями, которые понимают в этом больше, чем он !
Go to Top of Page

elena

41 Posts

Posted - 08/29/2006 :  11:34:07
Зачем усложнять? Достаточно в ячейку EvntDblClick секции Events шейпа записать =DOCMD(1312)и все.
Go to Top of Page

zz 5

Russia
54 Posts

Posted - 08/29/2006 :  12:27:04
quote:
Originally posted by elena

Зачем усложнять? Достаточно в ячейку EvntDblClick секции Events шейпа записать =DOCMD(1312)и все.

Огромное спасибо, помогло

Если автор пишет о том, чего не понимает, его работа будет понята только теми читателями, которые понимают в этом больше, чем он !
Go to Top of Page

Tumanov

Russia
1198 Posts

Posted - 08/29/2006 :  18:25:28
Зачем, зачем...
Забыл как DoCmd в ячейку вписывается. Надо было написать хоть что-нибудь работающее :)
Go to Top of Page
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)