Discussion :

[dharkan]

Bonjour,

je me suis renseigné afin de pouvoir redéfinir ces deux fonctions dans mon programme vb.net.

quand je fait appel à :

Code :

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

Me.Width = Compatibility.VB6.TwipsToPixelsX(Compatibility.VB6.PixelsToTwipsX(FrmName.Width) + 340)

je n'ai pas la même valeur que lorsque je fait appel à ma fonction

Code :

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

TwipsToPixelsX(TwipsToPixels(frmName.width)+340)

. La même chose se produitavec TwipsToPixelsY.

dans le premier cas j'ai la valeur 363 et dans le cas avec ma fonction, j'ai la valeur 24

voici mes deux fonctions :

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
 
Private Function TwipsToPixelsY(ByVal twips As Double) As Double
        Dim twips_per_inch As Double = 1440.0F
        Dim graph As Graphics = Me.CreateGraphics
        Dim dpiy As Short = graph.DpiY
 
        graph.Dispose()
 
        Return (twips * dpiy) / twips_per_inch
    End Function
 
    Private Function TwipsToPixelsX(ByVal twips As Double) As Double
        Dim twips_per_inch As Double = 1440.0F
        Dim graph As Graphics = Me.CreateGraphics
        Dim dpix As Short = graph.DpiX
 
        graph.Dispose()
 
        Return (twips * dpix) / twips_per_inch
    End Function

par contre si je fait :

Code :

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

dim i as integer = TwipsToPixelsX(120)

j'ai la même valeur qu'en faisant :

Code :

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

dim j as integer = Compatibility.VB6.TwipsToPixelsX(120)

c'est à dire 8.

Du coup je ne voit pas vraiment d'où peut provenir le problème ?

[ACIVE_CS]

Bonjour,
En VB.NET de multiples systèmes de coordonnées ne sont pas pris en charge, seuls les pixels. Les Twips sont obsolètes. Par conséquent, tu dois simplement réécrire ce code pour travailler avec des pixels.

[dharkan]

Bonjour,
En VB.NET de multiples systèmes de coordonnées ne sont pas pris en charge, seuls les pixels. Les Twips sont obsolètes. Par conséquent, tu dois simplement réécrire ce code pour travailler avec des pixels.

Soit c'est moi qui ne te comprend pas, soit c'est toi qui ne ma pas compris

J'ai bien réécrit le code que voici:

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
Private Function TwipsToPixelsY(ByVal twips As Double) As Double
        Dim twips_per_inch As Double = 1440.0F
        Dim graph As Graphics = Me.CreateGraphics
        Dim dpiy As Short = graph.DpiY
 
        graph.Dispose()
 
        Return (twips * dpiy) / twips_per_inch
    End Function
 
    Private Function TwipsToPixelsX(ByVal twips As Double) As Double
        Dim twips_per_inch As Double = 1440.0F
        Dim graph As Graphics = Me.CreateGraphics
        Dim dpix As Short = graph.DpiX
 
        graph.Dispose()
 
        Return (twips * dpix) / twips_per_inch
    End Function

en partant du postulat que frm.Height = 46

lorsque je fait :

Code :

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

1
2
 
MsgBox(TwipsToPixelsY(TwipsToPixelsY(FrmName.Height) + 1500) & "             " & Compatibility.VB6.TwipsToPixelsY(Compatibility.VB6.PixelsToTwipsY(FrmName.Height) + 1500))

j'ai ceci comme resultat : 100.204 146

si je fait ne fut ce que cela :

Code :

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

1
2
3
4
 
tmp = TwipsToPixelsY(FrmName.Height) + 1500
            tmp2 = Compatibility.VB6.PixelsToTwipsY(FrmName.Height) + 1500
msgbox(tmp & "        " & tmp2)

j'ai les valeur = 1503 2190

par contre :

Code :

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

1
2
3
 
tmp = TwipsToPixelsY(120)
            tmp2 = Compatibility.VB6.PixelsToTwipsY(120)

tmp vaut 8 et tmp2 vaut 8

j'en perd mon latin, non pardon mon vb

[dharkan]

c'est bon j'ai trouvé mon erreur en fait la fonction vb6 fait PixelToTwips et moi je ai redéfini du TwipsToPixel.
Donc il suffit d'inverser deux variables dans mes fonctions.

Précédemment :

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
Private Function TwipsToPixelsY(ByVal twips As Double) As Double
        Dim twips_per_inch As Double = 1440.0F
        Dim graph As Graphics = Me.CreateGraphics
        Dim dpiy As Short = graph.DpiY
 
        graph.Dispose()
 
        Return (twips * dpiy) / twips_per_inch
    End Function
 
    Private Function TwipsToPixelsX(ByVal twips As Double) As Double
        Dim twips_per_inch As Double = 1440.0F
        Dim graph As Graphics = Me.CreateGraphics
        Dim dpix As Short = graph.DpiX
 
        graph.Dispose()
 
        Return (twips * dpix) / twips_per_inch
    End Function

actuellement :

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
Private Function PixelsToTwipsY(ByVal twips As Double) As Double
        Dim twips_per_inch As Double = 1440.0F
        Dim graph As Graphics = Me.CreateGraphics
        Dim dpiy As Short = graph.DpiY
 
        graph.Dispose()
 
        Return (twips * twips_per_inch) / dpiy
    End Function
 
    Private Function PixelsToTwipsX(ByVal twips As Double) As Double
        Dim twips_per_inch As Double = 1440.0F
        Dim graph As Graphics = Me.CreateGraphics
        Dim dpix As Short = graph.DpiX
 
        graph.Dispose()
 
        Return (twips * twips_per_inch) / dpix
    End Function

qui maintenant est devenu :

Code :

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

1
2
3
4
 
 Private Function PixelsToTwips(ByVal twips As Double) As Double
        Return (twips * 1440.0F) / 96
    End Function

Maintenant je comprend mon erreur