Добрый день , товарищи! Возникла такая задачка с которой никак самому справиться не получается. Суть такая . При инициализации формы добавляется переключатель , в конечном счете надо , чтобы при его нажатие происходили какие нибудь действия , скрытие или чтобы отображались другие формы. Код такой : [vba]
Код
Private Sub UserForm_Initialize() Dim y As MSForms.Control Dim x As MSForms.MultiPage Set x = UserForm1.Controls.Add("Forms.multipage.1") With x .Height = UserForm1.Height .Width = UserForm1.Width .Pages.Clear .TabFixedHeight = 20 .TabFixedWidth = (UserForm1.Width / 6) - 1
[hide] For i = 0 To 5 .Pages.Add ("level" & i + 1)
Next i
End With Set y = x.Pages(0).Controls.Add("forms.optionbutton.1")
End Sub
[/vba]
Добрый день , товарищи! Возникла такая задачка с которой никак самому справиться не получается. Суть такая . При инициализации формы добавляется переключатель , в конечном счете надо , чтобы при его нажатие происходили какие нибудь действия , скрытие или чтобы отображались другие формы. Код такой : [vba]
Код
Private Sub UserForm_Initialize() Dim y As MSForms.Control Dim x As MSForms.MultiPage Set x = UserForm1.Controls.Add("Forms.multipage.1") With x .Height = UserForm1.Height .Width = UserForm1.Width .Pages.Clear .TabFixedHeight = 20 .TabFixedWidth = (UserForm1.Width / 6) - 1
[hide] For i = 0 To 5 .Pages.Add ("level" & i + 1)
Next i
End With Set y = x.Pages(0).Controls.Add("forms.optionbutton.1")
Удалено администрацией - вопрос задан с нарушением Правил [moder]Тьфу! Извините! Не заметил, что это Вы же и задали вопрос. Про теги - в Правилах написано, как нужно оформить Ваше первое сообщение - используйте кнопку #[/moder] [moder]Да, еще - lastik911, еще одно Ваше "спасибо помогло !" и Вы получите замечание за ничего не значащий пост. Спасибо здесь говорят иначе - в Правилах написано как.[/moder]
Удалено администрацией - вопрос задан с нарушением Правил [moder]Тьфу! Извините! Не заметил, что это Вы же и задали вопрос. Про теги - в Правилах написано, как нужно оформить Ваше первое сообщение - используйте кнопку #[/moder] [moder]Да, еще - lastik911, еще одно Ваше "спасибо помогло !" и Вы получите замечание за ничего не значащий пост. Спасибо здесь говорят иначе - в Правилах написано как.[/moder]lastik911
Сообщение отредактировал _Boroda_ - Пятница, 22.04.2016, 09:27
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
