Discussion :

[LeForestier]

Bonjour à tous,
J'aurai besoin de vos lumières pour ce problème,
nous savons tous(ou presque) que dans un OCX et également dans une class, l'ordre de 'lecture' des 1ére fonctions c'est

Code :

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

1
2
3
4
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
....
Private Sub UserControl_Resize()
.....

Or, il se fait que dans Vista, pour une cause que je ne parvient pas à déterminer, c'est ordre est inversé.
Je supposai que le problème venait de l'OCX que je suis en train de développé et j'ai tester, par exemple avec l'OCX DiCalendar de Delbek, sur XP pas de problème, mais sur Vista c'est inversé d'où erreur puisqu'il initialise ses variables dans ReadProperties, notament 31 pictueBox
J'ai essayé, au moyen de drapeaux de forcer l'ordre inverse, mais je n'y suis pas parvenu, le resize ne se faisant plus après.
A l'écoute de vos idées...
A+

[Vld44]

et de gérer un booléen global ReadPropertiesDone ? Tu ne resize pas tant que ReadPropertiesDone est à false

Ensuite à la fin du readproperties, tu forces l'appel au resize.

J'imagine que tu l'as fait, mais qu'est-ce qui ne marche pas en faisant ça ?

[LeForestier]

bonjour Vld44,
Oui j'ai essayé, le problème n'est pas résolu pour autant, j'empèche le 1er resize, ensuite je force le resize, et IL REVIENT SUR ReadPropertie.
Peut être avec deux drapeau, 1 pour le resize et 1 pour le Read, je vais essayer ca.

[LeForestier]

Okay, j'ai trouvé avec ton idée, un seul drapeau suffit, mais je le mettait uniquement dans le resize, maintenad j'ai fait (pour d'autre éventuellement)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim ReadOK as boolean
 
Private Sub UserControl_Resize()
  If Not ReadOK Then Exit Sub
.....
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    If ReadOK Then Exit Sub
    .....
    .....
  ReadOK = True
  UserControl_Resize

L'erreur que je faisait c'est que je voulai gérer la variable dans le resize.
Merci de ton idée qui m'a bien aiguillé.
A+

[LeForestier]

Bon, j'ai encore eu un autre petit problème
Quand on crée l'OCX, il ne se redimentionne pas donc il est affiché comme sa conception. (il ne va pas dans ReadProperties)
Pour y remédier j'ai ajouter

Code :

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

1
2
3
4
5
Private Sub UserControl_InitProperties()
    ....
    ....
  ReadOK = True
End sub

Et tout fonctionne impec..
Comme le dit un de nos amis..
Il n'y a pas de problème, il n'y a que des solutions.
A+