Расширенный MsgBox, позволяющий задавать количество кнопок и надписи для них

@Ципихович Эндрю · Регистрация: 10.04.2009

Студворк — интернет-сервис помощи студентам

Имеется скачанный с сети "Расширенный MsgBox, позволяющий задавать количество кнопок и надписи для них" - можно его приспособить и как в Ворде, чтобы работать с ним в в ВБА? Спасибо

@Fedogor · 20.04.2012, 18:31

Думаю его нужно перевести в ActiveX компонент и подключать по необходимости.

@Ципихович Эндрю · 20.04.2012, 18:35 **[ТС]**

и как это сделать?

@Fedogor · 20.04.2012, 20:55

Попробовал сделать библиотеку с функцией, но оказывается, что VB не может создавать библиотеки к которым можно передать параметры. Можно просто вызывать выполнение программного кода.

Создавать библиотеку нужно в другой среде.

@Ципихович Эндрю · 20.04.2012, 20:59 **[ТС]**

Сообщение от Fedogor

нужно в другой среде

типа СИ? Жаль, спасибо, ВБ\ВБА хватает

@Fedogor · 20.04.2012, 21:02

можно создать шаблон Word документа Normal.dot, куда поместить весь код и формы. И обращаться к этой функции по необходимости из разных документов. других предложений нет.

@Ципихович Эндрю · 20.04.2012, 21:08 **[ТС]**

а что формы созданные в ВБ можно добавлять в ВБА?

@Alex77755 · 21.04.2012, 13:56

А что мешает сделать форму в виде месаги с нужными кнопками?

@Ципихович Эндрю · 21.04.2012, 14:06 **[ТС]**

Сообщение от Alex77755

сделать форму в виде месаги с нужными кнопками

ничего, нужно знать есть ли инструмент сделанный для юзеров упрощающий жизнь

@Fedogor · 21.04.2012, 18:33

Представляю вашему вниманию MSGBOXER)))
Сделал функцию + форму. Через функцию указываете кол-во кнопок выводимых на экран, их названия и текст сообщения.
Кол-во кнопок может быть меньше, чем кол-во названий. Главное, чтоб не больше!
Функция возвращает порядковый номер нажатой кнопки.

@Ципихович Эндрю · 21.04.2012, 18:39 **[ТС]**

Вы сами то пробовали:

Visual Basic
1
2
3
4
5
6
7
8
Sub pokaz()
'максимальное количество кнопок в примере - 6
'для большего числа нужно просто добавить названия кнопок
'BildBut(кол_кнопок, надписи_на_кнопках, текст_сообщения)
MsgBox BildBut(InputBox("Введите количество кнопок"), _
                "Да,Нет,Возможно,Согласен,Допустим,Это хорошо", _
                "Внимание!" & Chr(13) & "Вам предстоит сделать трудный выбор из следующих кнопок." & Chr(13) & "От того какую кнопку Вы выберете зависит судьба этого окошка!!!")
End Sub

выделяет Chr???

@Fedogor · 21.04.2012, 18:50

Сообщение от Ципихович Эндрю

выделяет Chr???

Это же просто вставка абзаца.

У меня всё отлично работает. Я думал, что проблема может быть в используемых компонентах. Очень странно.

Добавлено через 1 минуту
Максимальное кол-во кнопок в примере = 6

Добавлено через 7 минут
Добавил в Tools/References: ieframe.dll, mshtml.tlb, ieframe.oca
/Available Controls: Microsoft WebBrowser Control

@Alex77755 · 22.04.2012, 08:13

У меня не работает. ругается на WebBrowser1

Ципихович Эндрю,
А почему не хочешь использовать простую форму с нужнам тебе набором кнопок?
Ведь пример Fedogor по сути то же самое. Ничто не мешает организовать цикл подгрузки обыкновенных кнопок на обычную форму. Ведь WebBrowser1 может не у всех оказаться(я подозреваю, что у меня его просто нет)

@Fedogor · 23.04.2012, 09:24

Сообщение от Alex77755

WebBrowser1

Он должен быть. Его нужно добавить Alt+F11/Tools/Available Controls: Microsoft WebBrowser Control

Добавлено через 13 минут
Только сначала нужно активировать в редакторе VBA форму Messaga. После этого активируется в Tools опция Available Controls.

Способ с загрузкой html страницы проще, чем рисовать на форме кнопки, т.к. кнопки на странице отрисовываются самостоятельно без указания координат и их можно отрисовать большое количество(главное не забыть активировать полосу прокрутки). Также большим преимуществом является применение CSS стилей.
Единственное, что сделал выравнивание ширины всех кнопок. Без этого кнопки подгоняются под размер текста.

@Alex77755 · 23.04.2012, 11:32

Ципихович Эндрю,

выделяет Chr???

Уже пора и запомнить этот глюк: периодически не знает где брать
Покажи явно VBA.Chr
Таких функций много: Left, Right, Len.....

@Alex77755 · 23.04.2012, 11:36

Fedogor,
Я имею представление о контролах, но если у меня его нет, то может и ещё у кого-то его не оказаться

@Fedogor · 23.04.2012, 12:03

У меня его тоже сначала не было, потом подключил библиотеку ieframe.dll и он появился в списке контролов. После того как добавишь контрол проблема с Chr уйдёт сама собой.

@Alex77755 · 23.04.2012, 12:33

Я же за это и говорю: не у всех он имеется. Значит не у всех будет работать
ieframe.dll у меня нет. Значит надо искать. Контролы регистрировать.
А используя стандартные контролы будет работать у всех

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@Fedogor 210 / 96 / 6 Регистрация: 23.07.2010 Сообщений: 235
	20.04.2012, 18:31
	Думаю его нужно перевести в ActiveX компонент и подключать по необходимости. 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,330
	20.04.2012, 18:35 [ТС]
	и как это сделать? 0

@Fedogor 210 / 96 / 6 Регистрация: 23.07.2010 Сообщений: 235
	20.04.2012, 20:55
	Попробовал сделать библиотеку с функцией, но оказывается, что VB не может создавать библиотеки к которым можно передать параметры. Можно просто вызывать выполнение программного кода. Создавать библиотеку нужно в другой среде. 0

@Fedogor 210 / 96 / 6 Регистрация: 23.07.2010 Сообщений: 235
	20.04.2012, 21:02
	можно создать шаблон Word документа Normal.dot, куда поместить весь код и формы. И обращаться к этой функции по необходимости из разных документов. других предложений нет. 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,330
	20.04.2012, 21:08 [ТС]
	а что формы созданные в ВБ можно добавлять в ВБА? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	21.04.2012, 13:56
	А что мешает сделать форму в виде месаги с нужными кнопками? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	22.04.2012, 08:13
	У меня не работает. ругается на WebBrowser1 Ципихович Эндрю, А почему не хочешь использовать простую форму с нужнам тебе набором кнопок? Ведь пример Fedogor по сути то же самое. Ничто не мешает организовать цикл подгрузки обыкновенных кнопок на обычную форму. Ведь WebBrowser1 может не у всех оказаться(я подозреваю, что у меня его просто нет) 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	23.04.2012, 11:36
	Fedogor, Я имею представление о контролах, но если у меня его нет, то может и ещё у кого-то его не оказаться Миниатюры 0

@Fedogor 210 / 96 / 6 Регистрация: 23.07.2010 Сообщений: 235
	23.04.2012, 12:03
	У меня его тоже сначала не было, потом подключил библиотеку ieframe.dll и он появился в списке контролов. После того как добавишь контрол проблема с Chr уйдёт сама собой. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	23.04.2012, 12:33
	Я же за это и говорю: не у всех он имеется. Значит не у всех будет работать ieframe.dll у меня нет. Значит надо искать. Контролы регистрировать. А используя стандартные контролы будет работать у всех 0