Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → VBA → Как из ImageCombo сделать выпадающий список?
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Элемент ComboBox имеет свойство style, с помощью которого можно сделать выпадающий список (опция 2 - fmStyleDropDownList).
Требуется сделать выпадающий список из ImageComboBox (библиотека Common controls 6.0). Однако этот объект такого свойства не имеет.
Каким образом можно запрограммировать выпадающий список с рисунками? Поковыряв события, прихожу к выводу о бесперспективности такого пути.
Заранее спасибо.
В (библиотека Цоммон цонтролс 6.0) есть ImageCombo
> cadhelp
О нем и речь. Насколько я смог выяснить, он не поддерживает описанное в первом абзаце поведение, т.е. ДАЕТ СЕБЯ РЕДАКТИРОВАТЬ:
можно сделать выпадающий список (опция 2 - fmStyleDropDownList)
У меня цель сделать список наподобие выбора цвета примитива в AutoCAD.
Частичное решение проблемы -- найденный мною сейчас на www.active-x.com условно-бесплатный OCX Color ComboBox.
В нем можно назначать цвета пунктам, и редактировать себя он не дает.
Но очень хотелось бы вставлять именно рисунки.
Теперь понял
1 на форму оба елемента
2 Заполняем ImageList1 МАЛЕНьКИМИ картимками
3 Первой строчкой кода ImageCombo1.ImageList = ImageList1
4 Заполняем ImageCombo1
Private Sub Form_Load()
ImageCombo1.ImageList = ImageList1
ImageCombo1.Text = ""
ImageCombo1.ComboItems.Add 1, , "Text To Display", 1
'ImageCombo1.ComboItems.Add номерЕлемента, [keyElementa], Текст, NomerImagaVImageList1
End Sub
Теперь понял
1 на форму оба елемента
2 Заполняем ImageList1 МАЛЕНьКИМИ картимками
3 Первой строчкой кода ImageCombo1.ImageList = ImageList1
4 Заполняем ImageCombo1
Private Sub Form_Load()
ImageCombo1.ImageList = ImageList1
ImageCombo1.Text = ""
ImageCombo1.ComboItems.Add 1, , "Text To Display", 1
'ImageCombo1.ComboItems.Add номерЕлемента, [keyElementa], Текст, NomerImagaVImageList1
End Sub
> cadhelp
мне жутко стыдно, но я не понял, как это сделать:
2 Заполняем ImageList1 МАЛЕНьКИМИ картимками
в смысле, как работать с картинками ???
Это понятно. Но он, повторюсь, остается EDITABLE.
Проблема решена:
На www.vbAccelerator.com нашелся совершенно гениальный контрол OwnerDrawCombo для VB6. Из него можно сделать вообще все, что угодно, Microsoft ImageCombo и рядом не стоял.
Мне это надо было для реализации интерфейса к стилям линий.
Кому интересно -- выложу для просмотра.
Одного не понимаю -- как можно на active-x.com требовать по 50-200 долларов за контролы, если можно найти легально бесплатные и превосходящие по функциональности?
> Maxim T
Additional Controls -> Вытягиваем Microsoft ImageList.
Создаем объект (он не показывается на форме), теперь
Свойства -> (custom) -> Images.
Сам с ним намучился. MSDN рулит :).
> Ctrl E
Всё-таки непонятно, как картинки-то (битмапы) передать. Это оттого, наверное, что я с ресурсами не работал никогда.
Да ЗАГРУЗИТЬ ИХ надо ВРУЧНУЮ! Я тоже с ресурсами не работал.
Вы объект ImageList создали? Теперь в его свойстве (custom) откройте маленькую кнопку с многоточием. Перейдите на вкладку Images. И спокойно грузите картинки - кнопка Insert Picture...
Настоятельно рекомендую:
http://www.vbaccelerator.com/home/VB/Co … rticle.asp
Условия лицензирования:
http://creativecommons.org/licenses/by/1.0/
если вы делаете прогу для себя, то с контролями нет никаких проблем. в инете можно наковырять куеву хучу чего угодно.Совсем по другому обстоит дело когда прогу юзает вся контора(30-100 узеров), посылает ее смежникам, да еще дома хочет поставить.Очень часто приходится обходится только тем что есть в ВБА от АКАДА.
Например у меня был ПроцессБар сделанный из Баттон, т.к ПроцессБар не стандартный ВБА контрол
Как мне кажется, не проблема.
Я делаю программу и для конторы, и для внешнего пользования. Делаю как положено -- с руководством и по возможности удобную (из-за удобства и нужен выпадающий список). Раздается в виде setup.exe. Ничто не мешает таскать все необходимое с собой и регистрировать через regsvr32 по месту.
Ведь Common Controls 6.0 тоже не у всех есть.
Нет проблем.
Я просто хотел сказать что это не всегда приемлемо. setup.exe хорош когда ставиш прогу на комп, а бывает что все проги должны быть на сервере.К нам приходят геодезисты со своими лаптопамы, и ни за что не соглашаются че то там инсталировать.
Спасибо всем отозвавшимся.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → VBA → Как из ImageCombo сделать выпадающий список?
Форум работает на PunBB, при поддержке Informer Technologies, Inc
