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

Форум по вопросам применения и программирования в Visio
Текущее время: 29 мар 2024, 15:24

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


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


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)
Размещая ваши вложения на форуме не используйте имена файлов содержащих кириллицу, в противном случае файл будет иметь имя .<расширение файла> !

Для форматирования ваших сообщений используйте BBCodes, описание используемых на форуме BBCodes.



Начать новую тему Ответить на тему  [ Сообщений: 16 ] 
Автор Сообщение
 Заголовок сообщения: Выпадающий список ComboBox на UserForm (азы ВБА)
СообщениеДобавлено: 23 май 2012, 10:14 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
в продолжение темы "Азы VBA"

второй день бьюсь - не могу вставить комбобокс на форму. Вернее сам комбобокс то вставляется, но вот выпадающий список не получается !!!
Код:
Private Sub UserForm_Initialize()
      With UserForm.ComboBox1
      .AddItem «jan»
      .AddItem «feb»
      .AddItem «mar»
      .AddItem «apr»
      .AddItem «may»
      .AddItem «jun»
      .AddItem «jul»
      .AddItem «aug»
      .AddItem «sep»
      .AddItem «oct»
      .AddItem «nov»
      .AddItem «dec»
      End With
End Sub

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Выпадающий список ComboBox на UserForm (азы ВБА)
СообщениеДобавлено: 23 май 2012, 11:18 
Не в сети
Ветеран

Зарегистрирован: 21 окт 2011, 12:01
Сообщений: 939
Откуда: г. Екатеринбург
Использую Visio c: 2011
Очков репутации: 127

Добавить очки репутацииУменьшить очки репутации
ну вот тока что написал, всё работает:

Код:
Private Sub UserForm_Initialize()
    With Me.ComboBox1
        .AddItem "qwe"
        .AddItem "asd"
        .AddItem "zxc"
    End With
End Sub


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Выпадающий список ComboBox на UserForm (азы ВБА)
СообщениеДобавлено: 23 май 2012, 11:19 
Не в сети
Ветеран

Зарегистрирован: 21 окт 2011, 12:01
Сообщений: 939
Откуда: г. Екатеринбург
Использую Visio c: 2011
Очков репутации: 127

Добавить очки репутацииУменьшить очки репутации
кавычки меня ваши напрягают :roll:
у вас они "русские"


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Выпадающий список ComboBox на UserForm (азы ВБА)
СообщениеДобавлено: 23 май 2012, 11:32 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
поменял кавычки на русские (спасибо не доглядел), ничего не поменялось :(

на домашнем компе у меня однажды получился комбобокс с ненулевым числом строк. но строки были пустые :(

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Выпадающий список ComboBox на UserForm (азы ВБА)
СообщениеДобавлено: 23 май 2012, 11:46 
Не в сети
Ветеран

Зарегистрирован: 21 окт 2011, 12:01
Сообщений: 939
Откуда: г. Екатеринбург
Использую Visio c: 2011
Очков репутации: 127

Добавить очки репутацииУменьшить очки репутации
а можете файл прислать? просто не верится, что такой простой базовый контрол не работает как надо, тем более что у меня всё ок.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Выпадающий список ComboBox на UserForm (азы ВБА)
СообщениеДобавлено: 23 май 2012, 12:03 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
у меня сама форма называется frmOne, я почему-то решил что в коде формы инициализация формы frmOne должна быть
Private Sub frmOne_Initialize(). Так она не работала, а с UserForm_Initialize заработала !!!
Код:
Private Sub UserForm_Initialize()

End Sub


А как сделать список пополняемым ?

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Выпадающий список ComboBox на UserForm (азы ВБА)
СообщениеДобавлено: 23 май 2012, 12:08 
Не в сети
Ветеран

Зарегистрирован: 21 окт 2011, 12:01
Сообщений: 939
Откуда: г. Екатеринбург
Использую Visio c: 2011
Очков репутации: 127

Добавить очки репутацииУменьшить очки репутации
да, вот такие нюансы)

Цитата:
А как сделать список пополняемым ?


пополняемым - значит добавлять в него строки в процессе работы?
если да, то через AddItem конечно.
или я что-то не понял?


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Выпадающий список ComboBox на UserForm (азы ВБА)
СообщениеДобавлено: 23 май 2012, 12:22 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
то, что через addItem оно понятно. :)
мне нужно предоставить простому пользователю возможность добавления новых строк в комбобокс, и чтобы пользователь для этого не лазил в код.
я и спрашиваю, что нужно мне добавить в код, чтобы такая возможность появилась ?
ну если это конечно возможно средствами VBA… :)

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Выпадающий список ComboBox на UserForm (азы ВБА)
СообщениеДобавлено: 23 май 2012, 13:02 
Не в сети
Ветеран

Зарегистрирован: 21 окт 2011, 12:01
Сообщений: 939
Откуда: г. Екатеринбург
Использую Visio c: 2011
Очков репутации: 127

Добавить очки репутацииУменьшить очки репутации
ну элементарно. просто не всегда бывает из вопроса понятно, что именно человека останавливает)
файл с примером приложил.
на всякий случай поясню - пользователь пишет прямо в строке комбобокса то, что ему надо добавить и нажимает кнопку "+"


Вложения:
Комментарий к файлу: примерчик
combo.rar [10.82 Кб]
Скачиваний: 844
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Выпадающий список ComboBox на UserForm (азы ВБА)
СообщениеДобавлено: 23 май 2012, 13:19 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
спасибо :)
действительно элементарно!

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Выпадающий список ComboBox на UserForm (азы ВБА)
СообщениеДобавлено: 23 май 2012, 13:27 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
вот теперь буду придумывать, как сделать чтоб введенные в комбобоксе значения не пропадали после закрытия документа :)

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Выпадающий список ComboBox на UserForm (азы ВБА)
СообщениеДобавлено: 23 май 2012, 13:29 
Не в сети
Ветеран

Зарегистрирован: 21 окт 2011, 12:01
Сообщений: 939
Откуда: г. Екатеринбург
Использую Visio c: 2011
Очков репутации: 127

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Выпадающий список ComboBox на UserForm (азы ВБА)
СообщениеДобавлено: 23 май 2012, 13:45 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
спасибо, еще раз !!!

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Выпадающий список ComboBox на UserForm (азы ВБА)
СообщениеДобавлено: 23 май 2012, 13:49 
Не в сети
Ветеран

Зарегистрирован: 21 окт 2011, 12:01
Сообщений: 939
Откуда: г. Екатеринбург
Использую Visio c: 2011
Очков репутации: 127

Добавить очки репутацииУменьшить очки репутации
всегда пожалуйста ;)


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Выпадающий список ComboBox на UserForm (азы ВБА)
СообщениеДобавлено: 25 сен 2014, 07:46 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
никак не доходили руки допилить это Изображение
я не большой любитель использования пользовательских форм. обычно ограничиваюсь формой парой-тройкой кнопок, плюс один-два чекбокса или радиобатона.
Хотелось еще делать сортировку для введенных значений в комбобокс не из спискаИзображение
но вдруг внезапно понадобилось, но лень одолевала. стал вопросы в скайпе Евгени задавать
Евгени в skype писал(а):
допилить саб сортировки массива и выложить на форуме?)
Я уже почуствовал себя гуру социального инжиниринга 90lvl Изображение, и решил дописать сам.
вот что получилось, правда почему-то не открывается в визио 2003 - даже несмотря на то что сохранил в формате визио2002
9rey в посте #620 писал(а):
пользователь пишет прямо в строке комбобокса то, что ему надо добавить и нажимает кнопку "+"
но зато удалось обойтись без дополнительных кнопок для каждого комбобокса !
9rey в посте #623 писал(а):
как вариант, записывать строки из комбобокса в какой-то шейп в секцию например юзер или кастом, а при загрузке документа - считывать в тот же комбобокс.
именно так и сделал
Большое вам спасибо друзья !!! Изображение


Вложения:
Комментарий к файлу: мои художества
form2002.vsd [62.5 Кб]
Скачиваний: 618

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Выпадающий список ComboBox на UserForm (азы ВБА)
СообщениеДобавлено: 23 дек 2015, 13:19 
Surrogate писал(а):
у меня сама форма называется frmOne, я почему-то решил что в коде формы инициализация формы frmOne должна быть
Private Sub frmOne_Initialize(). Так она не работала, а с UserForm_Initialize заработала !!!
Код:
Private Sub UserForm_Initialize()

End Sub


А как сделать список пополняемым ?


Спасибо! Билась головой об стену, если б не этот форум... :)


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

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



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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8


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

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