All Forums
 Категория Visio
 Форум Вопросы и ответы
 Enable control buttons
Author Previous Topic Topic Next Topic  

Евгений

88 Posts
Posted - 02/04/2005 :  18:26:53
Положил на страницу кнопки, сделал все кроме одной disabled, и хочу, чтобы при нажатии первой кнопки, все остальные сделались enabled. Как это сделать? Даже не соображу, как добраться до контрола из VB-кода.

И еще, положил на страницу текст Text Tool-ом, это у меня нечто статуса приложения. При изменении статуса, хочу, чтобы надпись менялась. Не могу изменить, т.к. опять же не могу добраться до этой надписи. Насколько я вижу из диалога Special, это Shape, но
For Each shp in ThisDocument.Pages(1).Shapes
If shp.Name="btValidate" MsgBox "Found!"
Next

не находит этого "шейпа" (ищу по имени, как и раньше, поэтому должно сработать, но не срабатывает).
Как это сделать?
Edited by - Евгений on 02/04/2005 18:27:24

Tumanov

Russia
1198 Posts
Posted - 02/04/2005 :  19:33:59
Debug.Print ActivePage.Shapes(1).Name
Debug.Print ActivePage.Shapes(1).Object.Enabled
Private Sub CommandButton1_Click()
Go to Top of Page

Евгений

88 Posts
Posted - 02/07/2005 :  12:56:51
За enabled button спасибо. Остальное - это были пятничные глюки, сейчас все работает, т.е. шейп находится :)
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)