Discussion :

[issoram]

Bonjour,

Je voudrais masquer les barres de défilement de mon UserForm quand celles ci ne sont pas utiles.
J'ai essayé avec les paramètres suivants (dans la procédure Activate du UF), mais ça ne fonctionne pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
With Me
    .ScrollBars = fmScrollBarsBoth
    .KeepScrollBarsVisible = fmScrollBarsNone
    .ScrollHeight=.Height
    .ScrollWidth=.Width
    .ScrollLeft=0
    .ScrollTop=0
End With

Je ne vois pas où ça pêche,j'ai du mal comprendre l'aide...

Merci d'avance.

[HopPopPop]

Bonjour à tous,

Ne mettre que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ScrollBars = fmScrollBarsNone

dans la Sub Activate

Cordialement.

[issoram]

Dans ce cas là, elles ne s'affichent plus du tout.

[HopPopPop]

Bonjour Issoram,

Ce n'est pas ce que vous vouliez, au départ lors de l'affichage du formulaire ?

S'il faut les rendre visible, déterminer à quel moment et utiliser l'instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ScrollBars = fmScrollBarsBoth

avec les autres paramètres ScrollWidht et ScrollHeight renseignés.

Sinon, je ne sais pas.

Je viens de lire l'aide de la propriété KeepScrollBarsVisible, votre 1er post serait bon, je ne vois pas ...

Par contre l'instruction ScrollRight n'existe pas à ma connaissance, ce ne serait pas plutôt ScrollTop

J'ai fait des essais pour comprendre le principe du masquage des ScrollBars, et ça fonctionne, code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
With Me
   .KeepScrollBarsVisible = fmScrollBarsNone
   .ScrollBars = fmScrollBarsBoth
   .ScrollHeight = 300
   .ScrollWidth = 300
   .ScrollLeft = 0
   .ScrollTop = 0
   .Width = 100
   .Height = 100
End With

Si la taille du formulaire est suffisante pour afficher tous les controls, alors elles seront masquées, sinon elles seront visibles.

[issoram]

Merci HopPopPop,

Effectivement le .right n'existe pas (je pensais au .top) , je corrige dans le post.

Si la taille du formulaire est suffisante pour afficher tous les controls, alors elles seront masquées, sinon elles seront visibles.

Oui c'est ce que j'avais compris, mais chez moi ça ne marche pas...
Je vais fouiller.

[issoram]

J'ai trouvé d'où vient le problème mais je ne l'ai pas résolu.

En fait j'ai une image de fond dans mon UserForm qui s'étire en fonction des valeurs que je mets dans .ScrollWidth et .ScrollHeight. Du coup l'image ne peut jamais être affichée en entier et les barres de défilement apparaissent tout le temps.

Je ne comprends pas pourquoi la taille de l'image s'adapte à la taille des ScrollBars et pas à celle du UF????

[wavenport]

Bonjour Issoram,

Ce n'est pas ce que vous vouliez, au départ lors de l'affichage du formulaire ?

S'il faut les rendre visible, déterminer à quel moment et utiliser l'instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ScrollBars = fmScrollBarsBoth

avec les autres paramètres ScrollWidht et ScrollHeight renseignés.

Sinon, je ne sais pas.

Je viens de lire l'aide de la propriété KeepScrollBarsVisible, votre 1er post serait bon, je ne vois pas ...

Par contre l'instruction ScrollRight n'existe pas à ma connaissance, ce ne serait pas plutôt ScrollTop

J'ai fait des essais pour comprendre le principe du masquage des ScrollBars, et ça fonctionne, code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
With Me
   .KeepScrollBarsVisible = fmScrollBarsNone
   .ScrollBars = fmScrollBarsBoth
   .ScrollHeight = 300
   .ScrollWidth = 300
   .ScrollLeft = 0
   .ScrollTop = 0
   .Width = 100
   .Height = 100
End With

Si la taille du formulaire est suffisante pour afficher tous les controls, alors elles seront masquées, sinon elles seront visibles.

If Me.Width > 100 Or Me.Height > 100 Then
Me.KeepScrollBarsVisible = fmScrollBarsNone
End If