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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 909 fois - Téléchargée 35 fois

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

Ajouter un commentaire

Commentaire

rvblog
Messages postés
794
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
12 juin 2012
5 -
Salut Gumpynou,

bonne source, simple, efficace.

Attention, je te conseille quand même de mémoriser l'état de Printer avant de la modifier, et de la remettre dans son état initial à la fin.

sinon, très bien continue.
8/10

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.