Multipage & Spinbutton controls on a form

  • Thread starter Thread starter Bhuktar S
  • Start date Start date
B

Bhuktar S

1. Multipage control has 2 pages as default. Is it possible to make a
0?
2. I want to add/remove pages from Multipage by Spinbutton.
3. Can I add or remove any particular page?

I use following codes:

Private Sub SpinButton1_SpinUp()
With MultiPage1.Pages
.Add
End With
End Sub

Private Sub SpinButton1_SpinDown()
With MultiPage1.Pages
.Remove (Page)
End With
End Sub

I defined the limits of values in Form Initialize as
Spinbutton1.Min=1
Spinbutton1.Max=10
Spinbutton.value=1 'For stsrting with only 1 page.

What I need is:
- with SpinUp, add pages max. 10 (which works fine but no limit)
- with SpinDown, remove pages from page10 upto including page2 (whic
works fine, but can remove all and not removing in the sequence of las
page first
 
Do you mean

Dim pge As Page

For Each pge In MultiPage1.Pages
MultiPage1.Pages.Remove pge.Caption
Next pge


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Back
Top