Добрый день , товарищи! Возникла такая задачка с которой никак самому справиться не получается. Суть такая . При инициализации формы добавляется переключатель , в конечном счете надо , чтобы при его нажатие происходили какие нибудь действия , переключение скрытие или чтобы отображались другие формы. Код такой :
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
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
[moder]Задвоение. Закрыто
Добрый день , товарищи! Возникла такая задачка с которой никак самому справиться не получается. Суть такая . При инициализации формы добавляется переключатель , в конечном счете надо , чтобы при его нажатие происходили какие нибудь действия , переключение скрытие или чтобы отображались другие формы. Код такой :
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
For i = 0 To 5 .Pages.Add ("level" & i + 1)
Next i
End With Set y = x.Pages(0).Controls.Add("forms.optionbutton.1")