Discussion :

[yangoal25]

Bonjour,

Après quelques heures de recherche sur ce sujet, j'ai pu remarquer qu'il n'y avait pas de solution à ce problème.

Pourtant, avez-vous dans votre chapeau un lapin qui m'aiderait à trouver une solution à ce problème.

J'ai donc un programme simple (1 form) en vb6 qui sera mis à disposition via le site portail de mon entreprise.

L'installation se passe parfaitement mais vu que tous les pc sont différents point de vue de la résolution d'écran , l'affichage est surprenant sur certaines machines.

Merci d'avance pour l'aide apportée.

yangoal25

[ThierryAIM]

l'affichage est surprenant sur certaines machines.

c'est à dire ... ?

[Phifi]

Surprenant on te dit !

[omen999]

si c'est simplement un souci de placement de la form sur l'écran, mettre la propriété StartUpPosition de la form sur vbStartUpCenterScreen (2) centrera celle-ci sur l'écran
mais c'est peut-être +surprenant que ce problème basique

[Phifi]

Et on peut aller très loin dans le surprenant ! Mieux vaut ne pas extrapoler à mon avis...

[yangoal25]

Surprenant dans le sens de la position des objets sur la form.

J'aimerais que les différents objets placés sur la form reste au même endroit quel que soit la résolution de l'écran qui accueille mon application.

Congé demain, donc j'essaierai la manipulation dite plus haut mercredi.

Merci pour vos réponses.

[yangoal25]

si c'est simplement un souci de placement de la form sur l'écran, mettre la propriété StartUpPosition de la form sur vbStartUpCenterScreen (2) centrera celle-ci sur l'écran
mais c'est peut-être +surprenant que ce problème basique

J'ai essayé cette option mais cela ne fonctionne pas.

Je crois que cela va être plus compliqué que prévu.

Quand j'installe le logiciel sur des machines qui n'ont pas la même résolution d'écran que moi, l'affichage des objets de la form est différent. Le positionnement de tous ces objets ne correspond plus à ce que j'ai conçu.

Pour être concret, les objets se déplacent tous vers le haut et à gauche.

Ne faudrait-il pas jouer avec la position et la taille des objets? Je crois qu'en faisant une proportion de ces éléments il y aurait moyen.

Vous avez une idée de code? ou un site qui le proposerait?

merci

[ced600]

Pour tout ce qui est application graphique, toutes fenêtres à afficher sur l'écran, on place la fenêtre principale à l'aide du point en haut à gauche de l'écran. Le pixel le plus en haut et à gauche. On s'en sert comme référence, et on calule la position du point en haut à gauche de la fenêtre en pourcentage de la taille totale de l'ecran. Et on définis la taille de la fenêtre en pourcentage de la taille de l'écran.
Pour les objets à l'intérieur de la fenêtre, on procède de la même façon en prenant comme référence la fenêtre, comme cela on n'a pas de problème avec la résolution de l'écran.

[yangoal25]

Le problème que je rencontrais est résolu.

Pour rappel, il s'agissait d'un problème d'affichage de mes objets dans la form lorsque je changeais la résolution de mon écran. (Car le logiciel sera mis en ligne et donc, les différents utilisateurs ont une résolution d'écran différente).

Gràce à Cédric600, j'ai compris qu'il s'agissait d'un problème de redimension des objets.

La solution que j'ai trouvée n'est pas la plus propre possible mais elle fonctionne :

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
27
28
29
30
31
32
33
34
 
 
Option Explicit
Dim varTop, varLeft, varHaut, varGauche, varPolice As Variant
 
Private Sub Form_Load()
'Recherche de la résolution d'écran
varTop = Screen.Height / Screen.TwipsPerPixelY
varLeft = Screen.Width / Screen.TwipsPerPixelX
 
'Proportion qui vont modifier l'emplacement des objets
varHaut = varTop / 768  'C'est la hauteur de résolution avec laquelle j'ai créé mon soft
varGauche = varLeft / 1024  'C'est la largeur de résolution avec laquelle j'ai créé mon soft
 
varPolice = (varTop + varLeft) / 1792 'Proportion qui va modifier la taille de police mais aussi la taille des objets
 
If varTop <> 768 And varLeft <> 1024 Then   'Si la résolution est différente avec celle que j'ai utilisée
 
Label1.Left = Label1.Left * varGauche
Label1.Top = Label1.Top * varHaut
Label1.FontSize = Label1.FontSize * varPolice
Label1.FontUnderline = True
 
Command1.Left = Command1.Left * varGauche
Command1.Top = Command1.Top * varHaut
Command1.FontSize = Command1.FontSize * varPolice
Command1.Height = Command1.Height * varPolice
Command1.Width = Command1.Width * varPolice
 
Label3.Left = Label3.Left * varGauche
Label3.Top = Label3.Top * varHaut
Label3.FontSize = Label3.FontSize * varPolice
 
'etc ... pour chaque objet de la feuille

Ce code est long et j'imagine qu'il faudrait trouver une autre solution pour un logiciel plus important.

Merci Cédric

yangoal25

[ced600]

De rien.
Si tu répétes plusieurs fois le même code, tu pourrais peut être le mettre dans une fonction que tu appelerais pour chaque objet.

[yangoal25]

De rien.
Si tu répétes plusieurs fois le même code, tu pourrais peut être le mettre dans une fonction que tu appelerais pour chaque objet.

j'y ai pensé mais j'ai remarqué que tous les objets n'ont pas les mêmes caractéristiques. Exemple : les combo n'ont pas de .height, les labels (s'ils ont l'autosize à true) n'ont pas besoin de .height et .width.

Je sais qu'il y a moyen de jouer avec "objet." mais je n'ai pas encore approfondi le sujet.

Pour ma petite application, ca n'est pas encore trop lourd.