ADD LISTBOX, COMBOBOX, LABEL IN THE SAME USERFORM
you are welcome.
if you want to add the control to a new page
just replace this line:
Set MyPage = MultiPage1.Pages(0)
with this
Set MyPage = MultiPage1.Pages.Add("Page" & MultiPage1.Pages.count + 1)
good luck.
--
jb
"Eddie_SP" wrote:
Wow John, it started working...
I can go on from here now !
Thank you sir !
=)
Thank you Dave.
"john" wrote:
must confess never added a control on the fly before but had a quick play &
managed to get following to work. Maybe give you some ideas to develop
further.
Private Sub CommandButton1_Click()
Dim MyPage As MSforms.Page
Dim MyListBox As MSforms.ListBox
Set MyPage = MultiPage1.Pages(0)
Set MyListBox = MyPage.Controls.Add("Forms.ListBox.1")
With MyListBox
.Top = 10
.Left = 20
.Height = 50
End With
End Sub
--
jb
"Eddie_SP" wrote:
In a multipage control, after clicking on a button, can I add a Listbox (or
any other object) without closing this multipage?
Example:
If Me.CommandButton1.Value = True Then
Listbox.Add
With Listbox
Width = X
Height = Y
Top = YY
Left = RR
End With
So... Is that possible?
|