copy controls on a multipage

In Visual Basic for Applications in Excel 97 I've created a multipage with a few controls on it. In a couple of comboboxes some values have to be chosen and in a couple of textboxes some numbers have to be filled in.
Now if I click on a commandbutton on this multipage, I want the controls on this page of the multipage to be copied on a next page of the multipage.
What code do I need to make this happen?

Thanks in advance :)

Marinus ..
It is not exactly clear on what you are trying to do. this code from MSDN (VBHelp) will cut,copy and paste a control.
But I am wondering if what you are not trying to do is take the values selected and entered into your controls, and use them on another page. If so, this code is NOT what you need.

<Code
Add, Cut, Paste Methods, Page Object, MultiPage Control Example

The following example uses the Add, Cut, and Paste methods to cut and paste a control from a Page of a MultiPage. The control involved in the cut and paste operations is dynamically added to the form.

This example assumes the user will add, then cut, then paste the new control.

To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains:

Three CommandButton controls named CommandButton1 through CommandButton3.


A MultiPage named MultiPage1.
Dim MyTextBox As Control

Private Sub CommandButton1_Click()
Set MyTextBox = MultiPage1.Pages(MultiPage1.Value).Controls_
.Add("MSForms.TextBox.1", "MyTextBox", Visible)
CommandButton2.Enabled = True
CommandButton1.Enabled = False
End Sub

Private Sub CommandButton2_Click()
MultiPage1.Pages(MultiPage1.Value).Controls.Cut
CommandButton3.Enabled = True
CommandButton2.Enabled = False
End Sub

Private Sub CommandButton3_Click()
Dim MyPage As Object
Set MyPage = _
MultiPage1.Pages.Item(MultiPage1.Value)

MyPage.Paste
CommandButton3.Enabled = False
End Sub

Private Sub UserForm_Initialize()
CommandButton1.Caption = "Add"
CommandButton2.Caption = "Cut"
CommandButton3.Caption = "Paste"

CommandButton1.Enabled = True
CommandButton2.Enabled = False
CommandButton3.Enabled = False
End Sub
Code />
HTH
IGBP

If you are actually deisgning a form, better design methods would be:

1) Put controls common to more than one page outside the MultiPage. For example, below the MultiPage. Disable or hide the controls when they don't apply to a page.

2) Use controls that look the same on the different pages and pass values from the controls on one page ot another.

3) Put the controls in a frame outside the MultiPage. Show the frame over the MultiPage when the page needs the controls so that it looks like the controls are on the page, even though they are actually the same controls floating over the page.

Quote:

---

Originally posted by WorkHorse
If you are actually deisgning a form, better design methods would be:

1) Put controls common to more than one page outside the MultiPage. For example, below the MultiPage. Disable or hide the controls when they don't apply to a page.

2) Use controls that look the same on the different pages and pass values from the controls on one page ot another.

3) Put the controls in a frame outside the MultiPage. Show the frame over the MultiPage when the page needs the controls so that it looks like the controls are on the page, even though they are actually the same controls floating over the page.

---

Yes I'm designing a form. I think the first option is a good one. But now I will have the following problem: if I click on a control next to the multipage, how does the control know which page to use on the multipage.

You probably want the event to be connected to the visible multipage, so just check which page is visible!

Quote:

---

Originally posted by opus
You probably want the event to be connected to the visible multipage, so just check which page is visible!

---

How can I check it?

Use the ".Value" property, it gives you the presently visible pagenumber (starting with 0!).

VB Code:

Private Sub CommandButton1_Click()
   Label1.Caption = CStr(MultiPage1.Value)
End Sub

This code would show the visible pagenumber of the MultiPage1 in Label1 if you are clicking on Commandbutton1