Форум пользователей Visio

Форум по вопросам применения и программирования в Visio
Текущее время: 18 окт 2017, 11:15

Часовой пояс: UTC + 3 часа [ Летнее время ]


Правила форума


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)



Начать новую тему Ответить на тему  [ Сообщений: 30 ]  На страницу Пред.  1, 2
Автор Сообщение
 Заголовок сообщения: Re: MS Visio 2007 (Win XP): тест с полями ввода на изображении
СообщениеДобавлено: 27 янв 2017, 00:05 
Не в сети
Новичок

Зарегистрирован: 07 ноя 2016, 20:53
Сообщений: 21
Использую Visio c: 2013
Уровнь квалификации: Пользователь
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Попытался разобраться в информации по ссылке: http://visio.artberg.ru/biblio/st004.htm но пока не удается..


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: MS Visio 2007 (Win XP): тест с полями ввода на изображении
СообщениеДобавлено: 27 янв 2017, 00:12 
Не в сети
Новичок

Зарегистрирован: 07 ноя 2016, 20:53
Сообщений: 21
Использую Visio c: 2013
Уровнь квалификации: Пользователь
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Скачал Visio 2007: Software Development Kit. Как понял, он позволяет производить качественные разработки под Visio..


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: MS Visio 2007 (Win XP): тест с полями ввода на изображении
СообщениеДобавлено: 27 янв 2017, 00:40 
Не в сети
Новичок

Зарегистрирован: 07 ноя 2016, 20:53
Сообщений: 21
Использую Visio c: 2013
Уровнь квалификации: Пользователь
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Вот дополненный файл, где на Листе2 приведена примерная блок-схема алгоритма.


Вложения:
Test.zip [31.7 Кб]
Скачиваний: 5
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: MS Visio 2007 (Win XP): тест с полями ввода на изображении
СообщениеДобавлено: 27 янв 2017, 09:03 
Не в сети
Administrator

Зарегистрирован: 30 авг 2009, 11:02
Сообщений: 933
Очков репутации: 100578

Добавить очки репутацииУменьшить очки репутации
Пока программы не наблюдается...
Ну, давайте будем начинать постепенно. Тогда с таймером попозже, а для начала нужно просто запустить программу по кнопке.
Для этого создается обработчик события Click и в нем что-то делается. Например, просто вывод сообщения.


Вложения:
butt.gif
butt.gif [ 282.11 Кб | Просмотров: 188 ]
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: MS Visio 2007 (Win XP): тест с полями ввода на изображении
СообщениеДобавлено: 27 янв 2017, 09:11 
Не в сети
Administrator

Зарегистрирован: 30 авг 2009, 11:02
Сообщений: 933
Очков репутации: 100578

Добавить очки репутацииУменьшить очки репутации
Теперь вместо этого MsgBox нужно писать осмысленную программу. Например, обход всех шейпов на активной странице и вывод их текста в окно Immediate
Код:
    For i = 1 To ActivePage.Shapes.Count
        If ActivePage.Shapes(i).Text <> "" Then
            Debug.Print ActivePage.Shapes(i).Text
        End If
    Next

Если нужно фильтровать шейпы, то лучше самому добавить им какой-то признак. Например, создать мастер-шейп, поместить его в Document.Stencil и создавать прямоугольники как копии этого мастер-шейпа. Тогда шейпы на странице можно будет фильтровать по фрагменту имени или по имени мастер-шейпа.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: MS Visio 2007 (Win XP): тест с полями ввода на изображении
СообщениеДобавлено: 27 янв 2017, 09:25 
Не в сети
Administrator

Зарегистрирован: 30 авг 2009, 11:02
Сообщений: 933
Очков репутации: 100578

Добавить очки репутацииУменьшить очки репутации
Пусть мастер будет называться "Процесс".
Тогда его копии будут называться Процесс, Процесс.2, Процесс.12 и т.д.
Их можно будет выбрать вот так
Код:
Private Sub ToggleButton1_Click()
    For i = 1 To ActivePage.Shapes.Count
        Dim shp As Visio.Shape
        Set shp = ActivePage.Shapes(i)
        If InStr(1, shp.Name, "Процесс") = 1 Then
            Debug.Print shp.Text
        End If
    Next
End Sub


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: MS Visio 2007 (Win XP): тест с полями ввода на изображении
СообщениеДобавлено: 27 янв 2017, 11:11 
Не в сети
Administrator

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 3362
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Связь
Должность: Бывший проектировщик
Уровнь квалификации: ShapeSheet, VBA
AlekseyVisio в сообщении #10584 писал(а):
Скачал Visio 2007: Software Development Kit. Как понял, он позволяет производить качественные разработки под Visio..
Software Development Kit это скорее справочный материал с массой примеров!
Я (как админ) очень люблю продолжительные ветки обсуждения, где все детально разбирается !
Но без оффтопа !
не могу понять какое отношение алгоритм из сообщения
AlekseyVisio в сообщении #10585 писал(а):
на Листе2 приведена примерная блок-схема алгоритма.
Изображение
имеет к данной ветке обсуждения, которая начиналась так
AlekseyVisio в сообщении #10091 писал(а):
Не так давно возникла необходимость создать тест на основе MS Visio. Смысл следующий.
1) Имеется схематическое изображение, содержащее фрагменты, названия которых необходимо запомнить;
2) Необходимо в поле, расположенное рядом с фрагментом, ввести название;
3) Введенное значение должно полностью совпадать с заданным.


!
Лучше разбить задачу на этапы (в отдельных ветках форума, разумеется)
и разбираться с каждый этапом по отдельности!


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: MS Visio 2007 (Win XP): тест с полями ввода на изображении
СообщениеДобавлено: 28 янв 2017, 00:34 
Не в сети
Новичок

Зарегистрирован: 07 ноя 2016, 20:53
Сообщений: 21
Использую Visio c: 2013
Уровнь квалификации: Пользователь
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Surrogate писал(а):
Я (как админ) очень люблю продолжительные ветки обсуждения, где все детально разбирается !
Но без оффтопа !
Прошу извинить! Да, я немного поторопился.. Решение, которое было мне подсказано в этой ветке (прописывать формулу в поле FillForegnd), понравилось больше, нежели чем создавать отдельные поля рядом с фрагментами.
Чуть ранее я писал: "Признаться, вчера возникла идея зациклить тест: через каждые n секунд произвольный зеленый прямоугольник (т.е. тот, где верный ответ), сбрасывает свое значение. Так приходится постоянно вводить значения, пока не надоест, либо пока не поймешь, что все запомнил." Именно поэтому на блок-схеме представлен бесконечный цикл, который будет работать, пока пользователь не закроет документ. Не исключаю, что где-то ошибся..


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: MS Visio 2007 (Win XP): тест с полями ввода на изображении
СообщениеДобавлено: 28 янв 2017, 00:39 
Не в сети
Новичок

Зарегистрирован: 07 ноя 2016, 20:53
Сообщений: 21
Использую Visio c: 2013
Уровнь квалификации: Пользователь
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
О разбиении задачи понял, попробую разделить логически! Вопросы по основным понятиям


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: MS Visio 2007 (Win XP): тест с полями ввода на изображении
СообщениеДобавлено: 28 янв 2017, 11:36 
Не в сети
Новичок

Зарегистрирован: 07 ноя 2016, 20:53
Сообщений: 21
Использую Visio c: 2013
Уровнь квалификации: Пользователь
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Уважаемые участники этого обсуждения, благодарю за разъяснения! Я понял (и потренировался):
- как создавать мастер-шейпы,
- как их размещать в Document.Stencil.

Надо изучить рекомендованные материалы.
Дабы не засорять ветку, прошу считать обсуждение закрытым.
Всем спасибо! :D


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 30 ]  На страницу Пред.  1, 2

Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex [bot] и гости: 2


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Вы можете создать форум бесплатно PHPBB3 на Getbb.Ru, Также возможно сделать готовый форум PHPBB2 на Mybb2.ru
Русская поддержка phpBB