[voverrr]

Здравствуйте.
На форме у меня расположен листбокс. В него загружаются имена файлов.
Фалов может быть разное количество: от двух-трёх до сорока-пятидесяти и более.
В опциях листбокса есть строчка Colunn Count и я установив её=3, рассчитывал, что имена файлов будут распределяться по трём колонкам, чтобы справа не образовывался скроллбар.
Но весь список всё равно грузится в одну колонку.
Как сделать, чтобы список распределялся по всем трём колонкам и уж потом, если, например, не умещается в три, уже тогда создавался бы скроллбар?

[Кулик Алексей aka kpblc]

Сильно подозреваю, что понадобится не ListBox, а нечто типа DataGrid. С полностью динамическим распределением колонок и строк.

[stas_org]

With Me.ListBox1
.AddItem
.List(.ListCount - 1, 0) = "Иванов"
.List(.ListCount - 1, 1) = "Петров"
.List(.ListCount - 1, 2) = "Сидоров"
End With

[voverrr]

Спасибо за советы. получается, в свойствах листбокса такого нет нигде.
В одном случае придётся перепахивать весь макрос, чтобы добавлять значения в datagrid, в другом случае тоже какие-то циклы что ли добавлять.

[Сергей812]

не так и много - проверка по условиям: влезает ли количестве строк в один столбец без остатка или нет, в два столбца без остатка и оставшийся вариант. И разбивать список на 1, 2 или 3 колонки соответственно и соответствующий вывод. И этот код вставляете в то место макроса - где был первоначальный вывод в список прописан.

[doctorraz]

как вариант, после проверок можно формировать массивчик одно, двух, трехмерный

в зависимости сколько столбцов получается
пример (для трех столбцов, 11 строк)
после проверки количества файлов

Код:

[Выделить все]

reDim arrFilName(10,2)
'заполняем массивчик 
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "100;100;100" 'например ширина по 100 pt
ListBox1.List() = arrFilName

[Кулик Алексей aka kpblc]

Offtop: Интересно, а при выборе элемента в таком многоколоночном ListBox будет выбираться целиком строка или только тот элемент, на котором пользователь клацнул?

[doctorraz]

строка, но куда клацнул определить можно без проблем
=======
Кулик Алексей aka kpblc, кстати да, лучше формировать по условию несколько листбоксов и динамически их показывать/ скрывать, растягивать/сжимать

[Сергей812]

Сообщение от doctorraz лучше формировать по условию несколько листбоксов и динамически их показывать/ скрывать, растягивать/сжимать

какой то дикий интерфейс получиться)

[doctorraz]

Сообщение от Сергей812 какой то дикий интерфейс получиться)

не то слово, а какие еще варианты?

[Сергей812]

я бы рекомендовал скачать бесплатную студию экспресс, и перейти на Interrop VB.NET. Это наименее болезненный путь переноса приложения с VBA на что-то "посовременнее". А WinForm и формы VBA - даже близко не стояло по функционалу. Но судя по тому, что ТС не смог найти в интернете пример заполнения многоколоночного ListBox VBA - это не для него.

[voverrr]

Спасибо, джентльмены.
При данных условиях:
1. Мои зайчаточные знания программирования.
2. Необязательности реализации задачи, которую я изложил(хотелось бы, конечно, но уж если так непросто, то ладно).
3. Принцип "работает - не надо улучшать".
думаю, оставить этот момент как есть и просто смириться с тем, что список нужно будет двигать скролллом. Не так уж это и страшно.
Я думал, что в силу своего слабого знания программистических тонкостей просто не увидел какое-то свойство или галку в настройках листбокса. Ну, максимум, установить вместо него текстовый бокс и упражняться в нём, но через переписывание кода это меня пугает. И так еле слепил и настроил.
Спасибо вам всем, пожелаю вам удачных праздников и не напиваться как в тот раз)))

[Сергей812]

VBA уже давно не развивается.. с большим скрипом перешли с 6 версии на седьмую.. но как был примитивный редактор, урезанный функционал контролов - так оно все и осталось по сути)

[voverrr]

Для профессиональных программистов, да, возможно он и не представляет интереса, но для меня, как для инженера, оно весьма кажется удобным. По применению это похоже на фотошоповский экшен: ты можешь просто записать последовательность нужных тебе действий, чтобы автоматизировать типовые повторяющиеся команды. Тот же автокадовский лисп - его нужно отдельно изучать и пока сам дойдёшь до написания hello world - много нужно усилий. а проекты на работе в это время стоят. У меня по большому счёту задача - сделать чертежи на металлокаркас, например, распечатать сварщикам. А уж красота и удобство интерфейса, или какие-то глюки, из-за неотлаженных ошибок - дело десятое. Я не выкладываю эти макросы на всеобщий доступ, да и неинтересны они никому, кроме меня. поэтому с какими-то неудобствами или медленнодействием или черезжопной реализацией команд могу и смириться.
Солидовские же макросы можно писать буквально на лету, под сиюминутно возникающие одноразовые задачи.


Все мои источники знаний - это солидовский форум или справка API.

В русскоязычном интернете ничего похожего нет.

[Сергей812]

Поэтому и рекомендую Interrop в качестве альтернативы. Например, для автокада

Код:

[Выделить все]

'Получение ссылки на текущий чертеж
Private Function ThisDrawing() As AcadDocument
   Return Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.AcadDocument
End Function

и далее процесс написания особо не отличается от VBA. Все наработки по VBA почти без изменений копируются в VB.NET. Единственное - что отладка сложнее. Сначала надо в студии собрать библиотеку dll нажатием целой одной кнопки, а потом через NetLoad загрузить в акад. Но обратно уже не выгрузишь - только путем перезагрузки самой программы.

----- добавлено через ~6 мин. -----
p.s. я тоже не профессиональный программист - ни по образованию, ни по профилю работы. Просто после налетания лбом на ограничения и недостатки очередной среды разработки приходилось залезать в очередные дебри - постепенно за несколько лет накопился некоторый опыт)

[Сергей812]

Вот набросал похожий вариант поведения в Excel. И это только на управление через полосу прокрутки) Не забудьте разрешить макросы.

[gomer]

А чем вам ListView не угодил?

[Сергей812]

в VBA это нестандартный контрол, к сожалению. В плане универсальности и переносимости лучше не использовать.

[gomer]

Сообщение от Сергей812 в VBA это нестандартный контрол, к сожалению. В плане универсальности и переносимости лучше не использовать.

Он просто из 6й либы, а ListBox из пятой 6я либа ставится вместе с VBA, так что не вижу причин для беспокойства... хотя я давно уже этим не занимаюсь могу и ошибаться. В любом случае костыли с листбоксом хуже, чем отсутствие библиотеки

[Сергей812]

VBA Forms больше заточен для создания нестандартных диалогов, чем каких-то полноценных интерфейсов, имхо)