Fonction de conversion d'unités (twips, pixels, centimètres, pouces, ...)

Commenter

Contenu du snippet

Voici une fonction simple qui permet de convertir un type d'unité en un autre. Elle gère toutes les constantes de type ScaleModeConstants.

Source / Exemple : 


Public Function ConvertScale(ByVal Unit As Single, ByVal FromScale As ScaleModeConstants, ByVal ToScale As ScaleModeConstants) As Single

    Dim TmpPrinter As Printer
    '
    ' ... instancie l'objet temporaire TmpPrinter à partir de l'objet Printer ...
    ' (seul les objets de types Printer, PictureBox ou Form supportent la méthode ScaleX)
    '
    Set TmpPrinter = Printer
    '
    ' ... définit les propriétés de l'objet ...
    '
    TmpPrinter.ScaleMode = FromScale
    TmpPrinter.Width = Unit
    '
    ' ... convertit et renvoie la valeur ...
    '
    ConvertScale = TmpPrinter.ScaleX(Unit, FromScale, ToScale)
    '
    ' ... détruit l'objet temporaire ...
    '
    Set TmpPrinter = Nothing

End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Gumpynou)