Autres dimensionner une listbox pour DUDU2

[patricktoulon]

BONJOUR @Dudu2
Private Sub UserForm_Activate()
ListBox1.List = [A1:A8].Value
ecx = Me.Width - Me.InsideWidth
With Me.Controls.Add("forms.Label.1", "cobaie")
.Width = 500
.Height = 200
.Font.Name = ListBox1.Font.Name
.BackColor = vbYellow
.BorderStyle = ListBox1.BorderStyle
' .SpecialEffect = ListBox1.SpecialEffect
.Font.Size = ListBox1.Font.Size
.Font.Bold = ListBox1.Font.Bold
.Caption = "toto"
.AutoSize = True
.Top = ListBox1.Top
.Left = ListBox1.Left + ListBox1.Width
ListBox1.Height = ((.Height + 0.25) * ListBox1.ListCount)
MsgBox "théoriquement un item mesure " & .Height & " points de haut"
'Me.Controls.Remove (.Name)
End With
End Sub

 

[Dudu2]

Bla bla bla...

Ma solution elle est là !
Elle utilise une méthode originale, ni copiée de @job75 ni copiée de @patricktoulon !

 

[patricktoulon]

re
bla bla bla 1°

blablabla 2°

désolé mais la méthode de @job75 fait mieux
pour le userform même l'intégral avec textbox fait mieux
et là tu vois il n'y a pas de blablabla les captures te le prouvent
avec simplement le textbox

 

[patricktoulon]

 

[patricktoulon]

re
test du modèle pour userfom du post #20

démonstration

du modèle du post #21

 

[Dudu2]

Bonjour @patricktoulon,
Oui, je sais, j'ai retiré le post #21 pour essayer de corriger mais c'est difficile.

 

[patricktoulon]

perso j'utilise la hauteur du textbox et la largeur du textbox en lui ayant donné les même paramètres que la listbox
font.size
font.name
font.bold
borderstyle
specialeffect

et ala largeur finale j'ajoute 3
(equivalent de getsystemmetrics(36) converti en point )
le cadre d'un element selectionné car le specialeffect c'est ça

ca marche sur 2007 / 2013 / 2016
pour info c'est le specialeffect qui peut tromper c'est pour ça le 3(qui en passant représente aussi chez moi le width-insidewidth de l'userform )
conclusion

Sub resizeListBox(usf, listbox As Object)
   'patricktoulon
   'MsgBox GetSystemMetrics(36)
    Dim txt, speffect, BdStyle, X&
    'With listbox: .IntegralHeight = False:  .Height = 0:  .IntegralHeight = True: X = .Height: End With'abandon de la méthode @job75
    speffect = listbox.SpecialEffect
    BdStyle = listbox.BorderStyle
    txt = Join(Application.Transpose(listbox.List), vbCrLf)
    With usf.Controls.Add("forms.Textbox.1", "cobaie")
        DoEvents
        .IntegralHeight = listbox.IntegralHeight
        .MultiLine = True
        .Value = CStr(txt)
        .Width = 500
        .Height = listbox.ListCount * 30
        .BorderStyle = BdStyle
        .Font.Size = listbox.Font.Size
        .Font.Name = listbox.Font.Name
        .Font.Bold = listbox.Font.Bold
        .AutoSize = True
        listbox.Height = .Height
        listbox.ColumnWidths = Replace(.Width & ";0", ".", ",")
        listbox.Width = .Width + 3 '(Getsyemmetrics(36)
        listbox.BorderStyle = BdStyle
        listbox.SpecialEffect = speffect
        'usf.Controls.Remove ("cobaie")
    End With
End Sub

au final j'obtiens ceci

vue grossie 800%

je n'ai que le cadre du specialeffect
c'est donc pile poil

 

[Dudu2]

C'est en effet ce que j'ai fait, sauf que je n'ai pas traité le SpecialEffect et le BorderStyle.
Peut-être faudrait-il que je les inclue. Cependant je ne suis pas sûr qu'ils influent sur les dimensions.

 

[patricktoulon]

ben oui c'est lui qui fout le boxon depuis le debut
avec ma sub sans rien changer
si ma listbox est en bordurestyle (1) donc pas de spécialEffect

vue grossie 800%

 

[Dudu2]

Sur mon environnement, je ne remarque pas de différence sur les tailles finales.
Mais je n'ai pas appliqué le SpecialEffect à la TextBox de référence.

 

[patricktoulon]

et si il n'y a pas de bordure et pas de specialeffect

comme tu a pu le voir dans les 3 cas c'est perfect !!

 

[patricktoulon]

Sur mon environnement, je ne remarque pas de différence sur les tailles finales.
Mais je n'ai pas appliqué le SpecialEffect à la TextBox de référence.

Regarde la pièce jointe 1207734

ce n'est pas avec les différents specialeffect
c'est le borderstyle
si tu met le bordurestyle à1 le specialeffect saute
si tu enlève le bordure style le specialeffect ne revient pas tout seul la liste se retrouve sans bordure
dans tout les cas chez moi c'est height-->height et width+3 sur 3 versions excel dans 2 versions de win différentes

 

[patricktoulon]

si tu veux tout savoir la pictouillu se trouve ici

et c'est pour ça que le height=l'autre height donne la listbox plus petite

c'est pour ca qu'il ne faut pas toucher le specialeffect du textbox temporaire
car visiblement le calcul prend en compte cette différence
par contre en borderstyle à 1 oui

 

[patricktoulon]

au punaise j'ai encore trouvé une pichtouille et de taille celle là!!!!!!

 

[Dudu2]

Il y a bien le ColumnHeads qui affecte la hauteur de la ListBox, mais je l'ai ignoré car jamais utilisé.
A titre d'exercice je vais essayer, si sa hauteur est égale à celle d'un Item, ça devrait aller. A vérifier.

 

[patricktoulon]

re oui elle l'affecte il faut ajouter la hauteur d'un item