Multiform besturen

[Jemp]

Is het mogelijk om vanuit UserForm1 dmv de voorziene commandbuttons de multipage van UserForm2 te sturen.
Gewenste effect :
commandbutton1 => page 1 van Multipage1 van UserForm2 wordt getoond
commandbutton2 => page 2 van Multipage1 van UserForm2 wordt getoond

In Bijl een voorbeeld bestand

Groetjes
JP

 

[paulva]

Private Sub CommandButton1_Click()
UserForm2.MultiPage1.Value = 0
UserForm2.Show
End Sub

Private Sub CommandButton2_Click()
UserForm2.MultiPage1.Value = 1
UserForm2.Show
End Sub

zou moeten werken.

 

[Jemp]

Hoi paulva

Tx voor het snelle en duidelijke antwoord.:thumb:

Ik heb ondertussen het probleem wat uitgebreid.

De variabele "keuze" is gedefinieerd als public in UserForm2.
Op basis van listBox3.listIndex zou ik nu graag de inhoud van listBox1 aanpassen bij het klikken op cmdButton1. Deze aanpassingen zijn gebaseerd op de waarde van de variabele "keuze". Het lukt me echter niet om deze waarde te gebruiken in UserForm1 (ook al staat ze Public).

In Bijl de code die ik gebruik

Alvast bedankt voor de moeite

Groetjes
JP

 

[paulva]

Als je de 'public' gedeclareerde variabele in een standaardmodule plaatst, dan lukt het wel. Ik snap ook niet hoe dat komt.

 

[Mark xl]

Een Userform is een Object Module, dus publieke eigenschappen zijn alléén toegankelijk via het Object, niet als globale variabelen.

Geldig is:
[Instantie van UserForm1].Keuze , bv:

Dim getal as Integer
getal = UserForm1.keuze

 

[Jemp]

Aanpassingen uitgevoerd ... werkt perfect :thumb:

Groetjes
JP

 

[snb]

Ik zie niet het voordeel van 2 userforms.

 

[Jemp]

Hoi snb

Er is vermoedelijk geen voordeel om met twee userforms te werken.
Ik heb het alleen gedaan omdat een van de userforms veel groter moest zijn dan de andere (veel gegevens naast elkaar).
Misschien was het niet nodig om een tweede userform te maken maar ik zag niet hoe een van de pages een stuk groter kon zijn dan de andere (zonder problemen van zichtbaarheid te hebben)

Mocht daar toch een mogelijkheid voor bestaan dan hoor ik het graag (nooit te oud om te leren)

Groetjes
JP

 

[snb]

bijvoorbeeld:

private Sub commandbutton1_click()
  with multipage1
    .value=2
    .width=400
    .height=300
    scherm.width=.width+6
    scherm.height=.height +6
  end with
end sub

private Sub commandbutton3_click()
  with multipage1
    .value=02
    .width=200
    .height=150
    scherm.width=.width+6
    scherm.height=.height +6
  end with
end sub