Bug bizarre fenêtre qui s'affiche avec une hauteur rétrécie

Bonjour,

Je fait face à un bug très bizarre avec VB5 (VB5 SP3, que j’exécute sous Seven) :

De façon aléatoire, mais rare, une fenêtre s'affiche avec une hauteur un peu plus petite :

Fenêtre normale :

Pièce jointe 308779

Fenêtre avec affichage buggué :

Pièce jointe 308783

Rien n'est décalé (en particulier le menu), c'est juste la hauteur qui ici passe de 450 pixels à 431 pixels.

Une fois que la fenêtre s'est mal affichée, elle s'affiche toujours mal... Mais si je reviens dans l'environnement de développement en mode édition pour ouvrir cette fenêtre, tout est OK, et ensuite, si je relance le programme, bizarrement elle s'affiche normalement !

Voici le code de la fenêtre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

VERSION 5.00 Begin VB.Form Visu3D BorderStyle = 1 'Fixed Single Caption = "Visu 3D - Rémy LUCAS" ClientHeight = 6090 ClientLeft = 540 ClientTop = 1230 ClientWidth = 6675 Icon = "visu3D.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False ScaleHeight = 6090 ScaleWidth = 6675 ...

---

J'ai cherché partout rien dans mon code ne modifie la taille de la fenêtre

Ce bug se produisant relativement rarement j'ai du mal à le reproduire je ne comprend pas ce qu'il se passe

A chaque fois que le bug s'est produit, c'est lorsque j'ai ouvert et fermé pas mal d'autres fenêtres du programme avant.

A part cela l'affichage du programme est correct, de Windows 95 jusque Windows 10 et quelque soit les paramètres d'affichage de Windows (il est donc exclu de recourir à une technique "bourrin" pour vérifier et corriger la taille, cela risque de faire plus de mal que de bien)

Avez-vous une idée ?

Merci

Citation:

---

Envoyé par electroremy

Bonjour,

Je fait face à un bug très bizarre avec VB5 (VB5 SP3, que j’exécute sous Seven) :
.........
(il est donc exclu de recourir à une technique "bourrin" pour vérifier et corriger la taille, cela risque de faire plus de mal que de bien)
........
Merci

---

Jamais eu le problème, par contre, si tu ajoutes

Code:

---

1 2 3

Private Sub Form_Activate() Me.Height = 6090 End Sub

---

cela élimine t il le problème (en bourrin)?.

Citation:

---

Envoyé par ProgElecT

Jamais eu le problème, par contre, si tu ajoutes

Code:

---

1 2 3

Private Sub Form_Activate() Me.Height = 6090 End Sub

---

cela élimine t il le problème (en bourrin)?.

---

Je pensais aussi à un truc du genre mais :

- est-ce que cela ne va pas nuire à l'affichage (Windows arrive à adapter la taille de mes fenêtre en fonction du style visuel et de la taille des polices, je n'ai pas envie de perturber cette fonctionnalité)

- vu que le bug est rare, je vais devoir faire des tests très longs pour seulement me dire "peut-être que ça marche" - en effet, l'absence de preuve n'est pas la preuve de l'absence, surtout en cas de panne "aléatoire"

- j'aurais voulu trouver le moyen de savoir pourquoi le problème se produit sur cette fenêtre et pas les autres ; il y a forcément une raison ; j'aimerais surtout pouvoir trouver comment reproduire le bug

A bien y réfléchir il y avait dans le programme une autre fenêtre qui présentait parfois ce soucis, avec les mêmes caractéristiques :
- la fenêtre a une barre de menu
- la fenêtre a un borderstyle = fixed single
- la fenêtre est affichée depuis le programme avec .Show 1
- il y a d'autres fenêtres qui sont affichées (mais avec Show tout court) depuis cette fenêtre

Dans tout ça il doit y avoir la cause...

Pour que ce soit plus clair :

http://cidess.free.fr/img-man/man-av-4_1-fr.gif

Dans l'image ci-dessous :
- La fenêtre "Cidess - Editeur ..." est la fameuse fenêtre dont le borderstyle est fixed single qui est affichée avec .Show 1 par le programme principal
- Les trois petites fenêtres "Vue de dessous" "Vue de face" "Vue de droite" sont affichées par la fenêtre "Cidess - Editeur" avec .Show
- Parfois il arrivait que la fenêtre "Cidess - Editeur ..." soit affichée avec une hauteur rétrécie

A bientôt