[VBA-E] creer x Frames dans un Multipage

Version imprimable

26/04/2006, 21h53
clochardevobsy

[VBA-E] creer x Frames dans un Multipage

Bonjour,
J'ai passé tout mon aprés midi à chercher désespérement comment creer x Frames dans une Multipage sans succés hélas :?

Je travail sur le Visual Basic Editor depuis Excel,
dans un Multipage (page 1 ), l'utilisateur saisis un nombre x, lorsqu'il valide, je doit retrouver (sur la page 2) x Frames (contenant chacune des textbox etc...).

Comment puis-je faire ?
merci

bonsoir

j'espere que cet exemple pourra t'aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
'dans un Userform :
'1 multipage nommé Multipage1 , contenant 2 pages
'dans la 1ere page : un Textbox1 et un CommandButton
'
'Saisissez dans le Textbox1 le nombre de frames à créer
'puis lancez la procédure
'
Private Sub CommandButton1_Click()
Dim Pge As Page
Dim Frme As Control, TxtB As Control
Dim x As Byte, j As Byte, i As Byte
 
If TextBox1 = "" Or Not IsNumeric(TextBox1) Then Exit Sub
 
x = TextBox1
Set Pge = Me.MultiPage1.Pages(1) '2eme page du multipage
For j = 1 To x 'boucle pour créer les frames
 
    Set Frme = Pge.Controls.Add("Forms.Frame.1")
 
    With Frme
    .Left = 10 + ((j - 1) * 100)
    .Top = 10
    .Width = 90
    .Height = 250
    End With
 
    For i = 1 To 5 'boucle pour créer les Textbox
        Set TxtB = Frme.Add("forms.Textbox.1")
        With TxtB
        .Left = 5
        .Top = 10 + ((i - 1) * 50)
        .Width = 75
        .Height = 30
        End With
    Next i
Next j
End Sub

bonne soiree
michel

26/04/2006, 23h53
clochardevobsy

Merci Silky,
Sa fonctionne a merveille et c'est ce que je voulait !

Plus qu'un seul petit pribleme:
Je configure la page 2 pour lui ajouter une Scrollbars verticale, mais elle ne "réagit" pas :?
Pour êter plus précis, je n'ai pas le curseur dedans, le fait de cliquer sur les fléches haut ou bas ne changent rien.

Comment configurer cette Scrollbar ?

ps: sur VB6 c'est un jeu d'enfant mais la je ne retrouve pas les paramétres min, max etc...

bonjour

pour parametrer le ScrollBar , tu peux tester :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim ScrlB As Control
 
Set ScrlB = Frme.Add("forms.ScrollBar.1")
 
With ScrlB
    .Left = 5
    .Top = 10
    .Width = 40
    .Height = 80
    .Object.Min = 0
    .Object.Max = 5
    .Object.Orientation = fmOrientationVertical
End With

bonne journée
michel

27/04/2006, 11h20
clochardevobsy

ok,
j'arrive a peu près a comprendre le fonctionnement ^^

un seul petit hic:
Comment changer par la suite une propriété d'un objet creer comme précédement ?
par exemple, comment changer la propriété top de la première frame crée lors de l'appui sur un bouton ou autre (se trouvant sur la page 2 ) ?

j'ai tenté de modifier la déclaration de la frame crée en lui mettant un .name="test" & j
aucune erreur a la compilation, mais lorsque j'execute le script, j'ai une erreur comme quoi il ne trouve pas l'objet :/
merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
x = TextBox1
Set Pge = Me.MultiPage1.Pages(1) '2eme page du multipage
For j = 1 To x 'boucle pour créer les frames
    Set Frme = Pge.Controls.Add("Forms.Frame.1")
    With Frme
        .Left = 20
        .Top = 40 + ((j - 1) * 190)
        .Width = 450
        .Height = 180
        .Caption = "Paramètres du coté n°" & j
    End With

Code:

1
2
3
4
5
6
7
8
 
Private Sub ScrollBar1_Change()
If TextBox1 = "" Or Not IsNumeric(TextBox1) Then Exit Sub
x = TextBox1
For i = 1 To x
    Frme.Top = (i * 190) - ScrollBar1.Value
Next i
End Sub

j'ai retenter plsusieurs possibilités et cette dernière est la plus concluante mais ne convient toujours pas...
Lorsque je descend la scrollbar, je n'ai qu'une seule frame qui bouge et pas les x en même temps ...
comment changer l'attribut top de toutes les frames crées ?

merci

27/04/2006, 18h36
SilkyRoad
bonsoir

tes dernieres demandes ne sont pas claires :

à 11h20

Citation:

par exemple, comment changer la propriété top de la première frame

à 15h54

Citation:

je n'ai qu'une seule frame qui bouge et pas les x en même temps

tu veux déplacer 1 ou plusieurs Frames ?

pour déplacer vers le bas tous les frames , tu peux utiliser
Code:

1 2 3 4 5 Dim Obj As Control For Each Obj In Me.Controls If TypeOf Obj Is MSForms.Frame Then Obj.Top = ScrollBar1 Next Obj
bonne soiree
michel

merci,

J'ai réussis a déplacer toutes les frames comme je souhaitait, grace a ton aide.
Mon programme avance bien et j'apprend pas mal de choses sur VB en ce moment ^^
( et dire que j'ai pas vu sa en cours... :/ )
Dernier point sur lequel je bloque: ( promis aprés c'est fini :p )

Je creer des boutons de commande grâce au code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Set Pge = Me.MultiPage1.Pages(1) '2eme page du multipage For j = 1 To x 'boucle pour créer les frames Set Frme = Pge.Controls.Add("Forms.Frame.1", "test" & j) '[...] 'creer les boutons commande Set CmdA = Frme.Add("forms.CommandButton.1") With CmdA .Caption = "valider" .Left = 170 .Top = 14 .Width = 50 .Height = 18 End With '[...] next j
Comment executer une fonction qui s'exécuterais lors de l'appui sur l'un de ses bouton ?