Discussion :

[methylene]

Juste un petit problème d'affichage entre 2 ordinateurs :

Les deux ont le même écran, même résolution (1280:1024), mais des cartes graphiques différentes (et également des proceseurs différents, mais je doute que cela influe, ormis sur la vitesse d'execution) :

• PC1 : Nvidia GeForce FX5700 LE pour l'autre
• PC2 : Intel Q 35 pour l'une

Quand je lance le debugger tout fonctionne niquel à part l'affichage sur les 2 écrans :

Voila les images :

PC1 :



PC2 :



Comme on peut le voir l'affichage du PC1 est niquel mais l'affichage du PC2 déconne, alors que le programme est exactement le même.

Ormis le formulaire, je dimensionne et je crée tout les controls, par exemple pour la fenêtre affichées dans les screenshots, le code est le suivant :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
Public Class Menu_choix_semaine
 
    Friend WithEvents Lblnumch, Lblvalnumch, Lblnbrap, Lblvalnbrap, Lbldatdeb, Lblvaldatdeb, Lbldatcons, Lblnbsem, Lblvalnbsem As New Label
    Friend WithEvents Txtboxcal As New TextBox
    Friend WithEvents Btgenerer, Btvalider, Btretour As New Button
    Friend WithEvents Calendrier As New MonthCalendar
 
    Private Sub Menu_choix_semaine(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Lblnumch.Location = New Point(37, 35)
        Lblnumch.Name = "Lblnumch"
        Lblnumch.Text = "Numéro de chantier :"
        Lblnumch.AutoSize = True
 
        Lblvalnumch.Location = New Point(145, 35)
        Lblvalnumch.Name = "Lblvalnumch"
        Lblvalnumch.ForeColor = Color.Green
        Lblvalnumch.Font = New Font("microsoft sans serif", 8, FontStyle.Bold)
 
        Lblnbrap.Location = New Point(37, 69)
        Lblnbrap.Name = "nbrap"
        Lblnbrap.Text = "Nombre de rapports Papyrus :"
        Lblnbrap.AutoSize = True
 
        Lblvalnbrap.Location = New Point(186, 69)
        Lblvalnbrap.Name = "Lblvalnbrap"
        Lblvalnbrap.ForeColor = Color.Green
        Lblvalnbrap.Font = New Font("microsoft sans serif", 8, FontStyle.Bold)
 
        Lbldatdeb.Location = New Point(37, 103)
        Lbldatdeb.Name = "Lbldatdeb"
        Lbldatdeb.Text = "Date début chantier :"
        Lbldatdeb.AutoSize = True
 
        Lblvaldatdeb.Location = New Point(150, 103)
        Lblvaldatdeb.Name = "Lblvaldatdeb"
 
        Lbldatcons.Location = New Point(37, 137)
        Lbldatcons.Name = "Lbldatcons"
        Lbldatcons.Text = "Date considérée :"
        Lbldatcons.AutoSize = True
 
        Txtboxcal.Location = New Point(140, 133)
        Txtboxcal.Size = New Size(65, 20)
 
        Lblnbsem.Location = New Point(37, 171)
        Lblnbsem.Name = " Lblnbsem"
        Lblnbsem.Text = "Nb semaines considérées :"
        Lblnbsem.AutoSize = True
 
        Lblvalnbsem.Location = New Point(178, 171)
        Lblvalnbsem.Name = "Lblvalnbsem"
        Lblvalnbsem.ForeColor = Color.Red
        Lblvalnbsem.Font = New Font("microsoft sans serif", 8, FontStyle.Bold)
 
        Btgenerer.Size = New Size(90, 33)
        Btgenerer.Location = New Point(40, 205)
        Btgenerer.Name = "Btgenerer"
        Btgenerer.Text = "Génerer rapport"
 
        Btretour.Size = New Size(90, 33)
        Btretour.Location = New Point(153, 205)
        Btretour.Name = "Btretour"
        Btretour.Text = "Retour"
        Btretour.Font = New System.Drawing.Font("Microsoft Sans Serif", 7, FontStyle.Regular)
 
        Calendrier.FirstDayOfWeek = Day.Monday
        Calendrier.Location = New Point(287, 50)
        Calendrier.MaxSelectionCount = 1
        Calendrier.Name = "Calendrier"
        Calendrier.ShowToday = False
        Calendrier.ShowTodayCircle = False
        Calendrier.ShowWeekNumbers = True
 
        Btvalider.Parent = Calendrier
        Btvalider.Size = New Size(47, 20)
        Btvalider.Location = New Point(74, 135)
        Btvalider.BringToFront()
        Btvalider.Name = "Btvalider"
        Btvalider.Text = "Valider"
 
        With Me
 
            .Size = New Size(280, 300)
            .Location = New Point((Menu_principal.Width - Me.Width) / 2, (Menu_principal.Height - Me.Height) / 2)
            .Controls.Add(Lblnumch)
            .Controls.Add(Lblvalnumch)
            .Controls.Add(Lblnbrap)
            .Controls.Add(Lblvalnbrap)
            .Controls.Add(Lbldatdeb)
            .Controls.Add(Lblvaldatdeb)
            .Controls.Add(Lbldatcons)
            .Controls.Add(Lblnbsem)
            .Controls.Add(Lblvalnbsem)
            .Controls.Add(Txtboxcal)
            .Controls.Add(Btgenerer)
            .Controls.Add(Btretour)
            .Controls.Add(Calendrier)
 
        End With
 
    End Sub
 
End Class

Quelles sont les raisons (moi je pense aux cartes graphiques), et que puis-je faire pour que l'affichage soit le même quelquesoit l'ordinateur (à même résolution bien entendu).

Merci de votre aide.

[tomlev]

A priori c'est un problème de taille de police. Sur le PC où ça déconne, la taille de police du système doit être plus grande que la normale

[methylene]

Je suis allé voir sur les 2 ordinateurs, dans les options d'affichage -> Apparence, et les polices étaient toutes les 2 à la taille normale. Cependant, en parcourant les différents objets du "thème" (qui est le même), on retrouve des tailles différentes, mais même après modification cela n'a rien changer, peut-être dois-je changer cela à un autre endroit ?

[methylene]

J'ai finalement trouvé la solution :

C'est le PPP (point par pouce) dans les options d'affichage,

->> Paramètres ->> Avancé->> Onglet Général

L'un était à 99 l'autre à 120, avec les 2 à 99 il n'y a plus de problèmes, mais si quelqu'un déploit mon application sur un PC où taille de police ou PPP serait différent des standards Windows, il va donc avoir un problème d'affichage, c'est moche.

Merci pour l'aide.