Redéfinition des méthode vb6 TwipsToPixelsY et twipsToPixelsX

Version imprimable

Bonjour,

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

quand je fait appel à :

Code:

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:

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 :aie::aie:

voici mes deux fonctions :
Code:

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:

dim i as integer = TwipsToPixelsX(120)

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

Code:

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 ?

12/12/2014, 12h11
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.

Citation:

Envoyé par 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.

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

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

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:

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:

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:

1 2 3 tmp = TwipsToPixelsY(120) tmp2 = Compatibility.VB6.PixelsToTwipsY(120)
tmp vaut 8 et tmp2 vaut 8
:aie::aie:
j'en perd mon latin, non pardon mon vb :aie:

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:

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:

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:

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 :aie: :aie: :D :D