XL: How to Use the MultiPage Control in a UserForm

• Microsoft Excel 97 for Windows
• Microsoft Excel 98 Macintosh Edition

SUMMARY

This article explains how to use the MultiPage control in a UserForm and provides a Microsoft Visual Basic for Applications example.

MORE INFORMATION

Use a MultiPage control to work with a large amount of information that can be sorted into several categories. The MultiPage control allows you to visually combine and categorize this information on a single form.

The MultiPage control is a container for a collection of Page objects. Each Page object contains its own set of controls and does not necessarily rely on other Page objects for information. For example, you can add different controls in the client region for each Page object in the MultiPage control. By default, a MultiPage control contains two pages; you can add or remove pages as needed.

Adding a MultiPage Control to a UserForm

1. Click the UserForm to activate it.



2. On the View menu, click Toolbox to display the toolbox if it is not already displayed.



3. Click the MultiPage control button.



4. Draw the MultiPage control on the form.

Working with the Individual Pages in a MultiPage Control

Working Programmatically with the MultiPage Control

http://www.microsoft.com/support/supportnet/overview/overview.asp

   MsgBox MultiPage1.SelectedItem.Caption 

   MultiPage1.Value = 2 

Example

1. In a new workbook in Microsoft Excel, point to Macro on the Tools menu, and then click Visual Basic Editor.



2. On the Insert menu, click UserForm. Press F4 to activate the Properties window for the UserForm. Next to the Name property of the form, type frmMain and type Customer Information next to the Caption property.



3. Click the form to select it. Click the MultiPage control on the Toolbox window, and draw a MultiPage control on the form. With the MultiPage control selected, press F4 to activate the Properties window. Type mpgCustomer next to the Name property of the MultiPage control.



4. Click the first page, and then activate the Properties window by pressing F4. Type pgName next to the Name property, and type Name next to the Caption property.



5. Click the second Page, and activate the Properties window by pressing F4. Type pgLocation next to the Name property, and type Location next to the Caption property.



6. Click the Name page, and add the following controls with the listed property settings:

   
       Control Type          Property                Value
       ----------------------------------------------------------
   
       Label                 Name                    lblFirstName
                             Caption                 First Name
   
       TextBox               Name                    txtFirstName
   
       Label                 Name                    lblLastName
                             Caption                 Last Name
   
       TextBox               Name                    txtLastName 




7. Click the Location page, and add the following controls with the listed property settings:

   
       Control Type          Property                Value
       ----------------------------------------------------------
   
       Label                 Name                    lblRegion
                             Caption                 Region
   
       TextBox               Name                    txtRegion 




8. Click the CommandButton on the Toolbox window, and add one CommandButton control on the form outside of the MultiPage control. Draw the CommandButton control in the upper right corner of the form. Type OK next to the Caption property for the CommandButton, and type cmdOK next to the Name property.



9. Right-click the OK CommandButton control, and click View Code. Type the following code:

   
          Private Sub cmdOK_Click()
   
             ' Save the data in the TextBox controls to the
             ' active worksheet.
   
             With ActiveSheet
                .Range("A1") = Me.txtLastName.Text
                .Range("B1") = Me.txtFirstName.Text
                .Range("C1") = Me.txtRegion.Text
             End With
   
             ' Unload the form.
             Unload Me
   
          End Sub
    




10. On the Insert menu, click Module to insert a module into the project.



11. Type the following procedure in the Code window of the new module:

    
           Public Sub ShowForm()
    
              ' This procedure displays the form named frmMain.
              frmMain.Show
    
           End Sub 




12. With the insertion point in the procedure ShowForm, press F5 to run the macro.

REFERENCES

For more information about the MultiPage Control:

1. Create a MultiPage control on a UserForm.



2. Click the MultiPage control, and press F1.

Additional query words: custom dialog tabbed xl97 XL98

Keywords : kbdta kbdtacode KbVBA
Version : MACINTOSH:98; WINDOWS:
Platform : MACINTOSH WINDOWS
Issue type :