1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Sub depart(usf)
SetWindowLongA fwa(vbNullString, usf.Caption), -16, &H94CF0080 'Api window pour mettre les boutons minimiser et maximiser et l'élasticité
usf.Tag = usf.Width & ":" & usf.Height 'on memorise les dimention du userform dans son tag
nofont = "ScrollBar, SpinButton, Image" 'liste des controles qui n'ont pas de font ,ajouter les controls manquants si besoins
For Each Ctrl In usf.Controls
Ctrl.Tag = Ctrl.Left & ":" & Ctrl.Width & ":" & Ctrl.Top & ":" & Ctrl.Height 'on memorise les dimention des controles dans leur tag
If Not nofont Like "*" & Left(TypeName(Ctrl), 5) & "*" Then Ctrl.Tag = Ctrl.Tag & ":" & Ctrl.Font.Size & ":" & usf.Width / Ctrl.Font.Size & ":" & usf.Height / Ctrl.Font.Size 'si il y a la propriété font alors on memorise aussi le fontsize
If TypeName(Ctrl) = "ListBox" Then 'MEMORISATION DU COLUMNWIDTHS DE la listbox dans le tag sous la forme du string de l'array des dimentions
tablwidth = Split(Replace(Ctrl.ColumnWidths, " pt", ""), ";")
For i = 0 To UBound(tablwidth): tablwidth(i) = Val(tablwidth(i)): Next
Ctrl.Tag = Ctrl.Tag & ":" & Join(tablwidth, "|")
End If
Next
End Sub |