Динамическое создание формы с CommandButton в несколько столбцов

Добрый день, уважаемые форумчане! Строго не судите, в VBA я полный "ноль", но пытаюсь сделать небольшую программку. Пытался слепить из разных вариантов на этом и других форумах, многое, что получилось, но застрял на одном вопросе. Суть вопроса: есть некие данные, которые подразделяются на группы. По выбору группы нужно создать динамически форму с кнопками, что бы они были не в один столбец, а в два или три, или более, то есть распределить по всей форме. Количество кнопок зависит от количества данных в группе, их может быть и три, и сто. Вроде понятно объяснил. Файл-пример в приложении. Если сможете помочь, буду очень благодарен.

Вложения

Пример (дин. создание формы).rar (28.9 Кб, 19 просмотров)

0

Сообщение от КостяФедореев Alexey1974, и думаю надо поставить ограничение на количество кнопок, если их будет больше 1000, то форма не влезет на экран.

У формы же есть Scroll, можно прилепить )

Сообщение от Narimanych Интуиция подсказывает, что проблему можно было бы решить совершенно по другому... Но суть проблемы - под строжайшим секретом. И надеюсь увидеть решение для 500 кнопок на форме для 15" экрана , исходя из вышеизложенных методов решения... Интригует....

Фз, может у автора тест по VBA, а так конечно решение не верное (5000, 50000 кнопок?), но, мб, возможное

0

Сообщение от anton-sf У форма же есть Scroll

У автора был запрос, чтобы все кнопки были видны на форме и в связи с этим применил форму с изменяемым размером, чтоб все кнопки влезали.

0

Сообщение от Narimanych Интуиция подсказывает, что проблему можно было бы решить совершенно по другому...

Похоже ТС не хочет слышать голос разума

0

Сообщение от anton-sf Замените Visual BasicВыделить код 1 Result = UserForm1.ShowExt на Visual BasicВыделить код 1 If Not Result Is Nothing Then ShowExt = Result.Value А в модуле, в процедуре StartExample, замените Visual BasicВыделить код 1 MsgBox "Выбрано : " & """" & Result & """" на Visual BasicВыделить код 1 2 3 4 5 If Result <> "" Then     MsgBox "Выбрано : " & """" & Result & """" Else     MsgBox "Ничего не выбрано!" End if

Появляется ошибка

Миниатюры

 

0

anton-sf,
Если

Сообщение от anton-sf у автора тест по VBA,

, то ни одно из приведенных здесь решений не соответсвует названию темы

Сообщение от Alexey1974 инамическое создание формы с CommandButton в несколько столбцов

0

Alexey1974, извиняюсь, поторопился, вот правильный код процедуры
Добавлено через 2 минуты

Сообщение от Narimanych ни одно из приведенных здесь решений не соответсвует названию темы

Действительно... Сама форма не создаётся динамически...

0

Сообщение от anton-sf Фз, может у автора тест по VBA, а так конечно решение не верное (5000, 50000 кнопок?), но, мб, возможное

Конечно 5000 кнопок вряд ли будет, но почему была еще мысль динамического создания формы, если вдруг все-таки будет 5000 кнопок, то создается форма, к примеру на 100 кнопок с названиями из списка и одна кнопка для создания следующей формы со следующими 100-а кнопками и т.д.

Сообщение от I can Похоже ТС не хочет слышать голос разума

Как раз и прислушался к совет профессионалов. Остановился на предложенных вариантах и буду их монтировать в свой проект. Правда пока не знаю, что получится, так-как не специалист в этом деле, но мыслей много, что хотелось бы сделать.

0

Сообщение от Alexey1974 Как раз и прислушался к совет профессионалов. Остановился на предложенных вариантах и буду их монтировать в свой проект. Правда пока не знаю, что получится, так-как не специалист в этом деле, но мыслей много, что хотелось бы сделать.

Ну погодите, предложенные варианты не являются советами, и уж я точно не профессионал, предложены варианты решения конкретной задачи, а советы то были другими - так не делать

Добавлено через 1 минуту
Для вывода списка есть, как минимум один, специальный инструмент - ListView

0

И вот один из примеров как это выглядит с использованием ListView (+TreeView)

Миниатюры

 

0

Сообщение от Narimanych то ни одно из приведенных здесь решений не соответсвует названию темы

Может я не правильно указал название темы, прошу прощения. Я пока очень далек от этой науки.

0

Сообщение от Alexey1974 следующей формы со следующими 100-а кнопками и т.

невыполнимая задача, на 50 листах найти нужную да ещё среди таких же лэйблов. Надо просто переосмыслить алгоритм, забыв о том, что вы писали. Сделать кнопки не проблема и с созданной заранее формой, у меня была аналогичная задача только не на форме, а на листе.

0

Сообщение от Burk невыполнимая задача,

Не настаиваю. Просто обычно сначала возникает идея, потом думаешь как ее реализовать. И в процессе реализации появляется компромиссное решение.

0

Сообщение от Alexey1974 Просто обычно сначала возникает идея

Представьте , что это только у вас ОДНА...

А если бы не держали в секрете ... -то сколько идей (различных) могло бы возникнуть на этой ветке...

Удачи вам...

0

Сообщение от Narimanych А если бы не держали в секрете ...

Идея не секретная. Я на данного рода форумах новичок, и не до конца еще знаю все правила форума, какие вопросы в одной теме можно писать, а какие нет. Вообще у меня небольшое производство рыбных деликатесов, хочу попробовать автоматизировать весь производственный процесс в плане учета сырья, технологического процесса, учета готовой продукции и т.д., и синхронизировать результаты с бухгалтерской программой. Вот начал с малого. Небольшая программка для маркировки входящего сырья. Конечно есть готовые системы учета, но их нужно допиливать под себя и денег они стоят не мало и допилка еще столько же. Вот и решил сам попробовать, заодно и подучиться этой науке. Это если в общем. А если по поводу моего вопроса, то дальнейшие действия программки должны быть следующие: нажимаем на кнопку с названием сырья, название переносится в Lable на форме, в Textbox вводится вес, автоматически присваивается номер и распечатывается этикетка с данными и штрих-кодом или программируется чип. Почему кнопки, что бы у сотрудника перед глазами на сенсорном мониторе было, образно говоря, две кнопки - с названием продукта и кнопка печать. Вот как-то так.

0

Сообщение от Alexey1974 на сенсорном мониторе

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

0

Alexey1974, я почему - то и думал, что это для сенсорного экрана делается...

0

Сообщение от anton-sf Тогда моя идея с полосой прокрутки не очень подходит, была бы правильней ваша задумка - кнопка листания страниц

Сообщение от КостяФедореев я почему - то и думал, что это для сенсорного экрана делается

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

0

anton-sf,

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

СМ пост №5

0

Narimanych, вот этот?

Сообщение от Alexey1974 Сейчас пока 60, но будет увеличение. Думаю пока на 100 нужно остановиться. Есть возможность для дальнейшего увеличения количества? Может если в одну форму все не влезут, по кнопке "Далее" другую создавать со следующими кнопками?

Если он, то да, я вижу что автор уже это предлагал, но кто же знал что это будет необходимость ) Да и вообще цели были не ясны, вроде бы...

0

Сообщение от Alexey1974 нажимаем на кнопку с названием сырья, название переносится в Lable на форме, в Textbox вводится вес, автоматически присваивается номер и распечатывается этикетка с данными и штрих-кодом или программируется чип.

При таком количестве кнопок оператор промахиваться будет постоянно.
Можно предложить другой вариант - наверняка у сырья есть штихкод(ну или сделать для каждого вида - не проблема). Так вот - на листе Эксель делаете "базу данных", а точнее список штрихкод - название сырья. Оператор сканером считывает штрихкод, программа его находит в базе и выводит в форму, оператору остаётся ввести вес и нажать единственную кнопку "печать".

Добавлено через 4 минуты

Сообщение от Alexey1974 вводится вес

Да и весы можно при желании присобачить.

1