Ajuster automatiquement fenetre userform avec une scrollbar

Version imprimable

22/06/2011, 14h13
bastou93

Ajuster automatiquement fenetre userform avec une scrollbar

Bonjour a tous,

Voila j'ai une petite contrainte, j'ajoute dynamiquement des contrôles qui sont placer de plus en plus bas.
Le problème c'est que j'en affiche 1 seul au début et N à la fin avec N variable selon le nombre de clique.

Lorsque j’insère plus de 3 éléments, le dernier sort de mon Userform et impossible de le voir!

Je voudrais si possible faire avec les paramètre userform ou autre que lorsque je dépasse ma fenêtre, la taille reste la même cependant j'ai une scrollbar vertical qui fait que je peux descendre voir mes nouveaux contrôles

Merci d'avance

Bastien
26/06/2011, 18h15
AlainTech

Bonjour,

Voir la propriété ScrollBars du UserForm.
27/06/2011, 07h47
bastou93

bonjour Alain,

Merci pour ton aide, en gros il faut que je définisse une fonction qui en fonction du nombre de controle par exemple augmente la taille de ma ScrollHeight pas moyen de le faire en mode "auto"?

Merci encore

Bastien

Bonjour,
Excusez l'incruste...
Je n'ai pas vu l'option auto de la hauteur du scrollbar.
Cependant, tu peux intégrer un test dans ton code d'ajout de contrôle.
Voici un exemple :

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
Private Sub CommandButton1_Click()
'Procédure qui ajoute des TextBox les uns sous les autres
'dynamiquement, dans un userform, au click sur mon bouton de commande 1
Dim NewCtrl As Control, OldCtrl As Control
Dim NbCtrl As Integer
 
'---- Compte les contrôles du type TextBox ----
For Each OldCtrl In Me.Controls
    If TypeOf OldCtrl Is MSForms.TextBox Then NbCtrl = NbCtrl + 1
Next OldCtrl
 
'Ajout d'un textbox
Set NewCtrl = Me.Controls.Add("Forms.TextBox.1", "TextBox" & NbCtrl + 1, True)
    'règlages des paramètres taille et position du nouveau Textbox
    With NewCtrl
        .Top = 20 + (NbCtrl * 20)
        .Left = 40
        .Width = 100
        .Height = 20
    End With
 
'Le cas échéant, ajout d'un ScrollBar vertical et réglage de la hauteur de scroll
    If NewCtrl.Top >= Me.Height - NewCtrl.Height Then
        Me.ScrollBars = fmScrollBarsVertical
        Me.ScrollHeight = NewCtrl.Top + NewCtrl.Height
    End If
End Sub

27/06/2011, 14h07
bastou93

Citation:

Envoyé par pijaku

Bonjour,
Excusez l'incruste...

Tu n'as pas à t'excuser AU CONTRAIRE :ccool:

merci pour ce code c'est parfait je vais pouvoir l'adapter très facilement (meme trop facile :mouarf:).

Je voyais comment faire avec des conditions comme toi mais je trouve sa étonnant qu'il n'y à pas un truc auto du genre ma fenetre fais 800*600 et si j'ajoute un controle en 860 ba j'ai une scroll verticale jusqu'à 880 par exemple...

Merci encore

Je ne résous pas encore on sait jamais si sa existe :mouarf:

J'ai fais sensiblement différement au final

Code:

1
2
3
4
5
6
'Le cas échéant, ajout d'un ScrollBar vertical et réglage de la hauteur de scroll
    If NewCtrl.Top+NewCtrl.Height  > Me.Height  Then
        Me.ScrollBars = fmScrollBarsVertical
        Me.ScrollHeight = NewCtrl.Top+NewCtrl.Height+20
    End If
End Sub

Voila merci encore c'est simple est super efficace:ccool: