Bonjour,
Je souhaite intégrer un objet MSForms.Frame qui contient des contrôles MSForms.Label, MSForms.TextBox,... dans plusieurs Userforms.
Je sais que je peux construire des objets MSForms.Frame à Run-time, mais le code devient vite très long (différentes polices,...). Ci-dessous, une ébauche la procédure (méthode de classe) que j'ai développée où controls est :
Savez-vous s'il est possible de récupérer le code généré dans les fichiers .frx qui accompagnent les Userforms ? Comment procédez-vous en général ? Je préférerais éviter de dupliquer le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 ' Public Sub log(ByRef controls As MSForms.controls, ByVal left As Long, ByVal top As Long) As MSForms.Frame Set log = controls.add(bstrProgID:="Forms.Frame.1", name:="log", Visible:=True) With log .left = left .top = top With .Controls Dim ctrl1 As MSForms.XXX: Set ctrl1 = .add(bstrProgID:="Forms.XXX.1", name:="ctrl1", Visible:=True) '.. End With End With With ctrl1 '.. End With End Subet de générer le MSFrame par une méthode de classe...
Merci par avance![]()
Partager