Discussion :

[electroremy]

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 :



Fenêtre avec affichage buggué :



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 :

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

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

[ProgElecT]

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 :

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

1
2
3
Private Sub Form_Activate()
Me.Height = 6090
End Sub

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

[electroremy]

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

Code :

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

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 :



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