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

Форум по вопросам применения и программирования в Visio
Текущее время: 24 июн 2018, 01:52

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


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


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



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

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 3362
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Связь
Должность: Бывший проектировщик
Уровнь квалификации: ShapeSheet, VBA
в продолжение темы "Азы 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


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

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

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

Код:
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
Сообщений: 892
Откуда: г. Екатеринбург
Использую Visio c: 2011
Очков репутации: 120

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


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

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

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


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

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

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


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

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

End Sub


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


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

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

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

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


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


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

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


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

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

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


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

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


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

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


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

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

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


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

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 3362
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Связь
Должность: Бывший проектировщик
Уровнь квалификации: ShapeSheet, VBA
спасибо, еще раз !!!


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

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

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


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

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


Вложения:
Комментарий к файлу: мои художества
form2002.vsd [62.5 Кб]
Скачиваний: 396
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: 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 часа [ Летнее время ]



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

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


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

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