begin process at 2010 02 10 06:09:38
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Divers

 > FONCTION DE CONVERSION D'UNITÉS (TWIPS, PIXELS, CENTIMÈTRES, POUCES, ...)

FONCTION DE CONVERSION D'UNITÉS (TWIPS, PIXELS, CENTIMÈTRES, POUCES, ...)


 Information sur la source

Note :
4,5 / 10 - par 2 personnes
4,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Classé sous :convertir, conversion, unités, scalemode Niveau :Débutant Date de création :21/07/2003 Date de mise à jour :21/07/2003 19:34:00 Vu :6 199

Auteur : Gumpynou

Ecrire un message privé
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

 Description

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

  • 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
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



 Sources du même auteur

Source avec Zip MOTEUR DE CALCUL PERMETTANT DE CONVERTIR UNE CHAÎNE EN EXPRE...

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) SPACE - UN SPACE MAC POUR WINDOWS par vbnino
Source avec Zip Source .NET (Dotnet) MULTI THREAD AVEC AFFICHAGE par jaknight007
Source avec Zip Source .NET (Dotnet) COMPILATEUR EN VB NET 2003 par alpha5
Source avec Zip Source avec une capture CRYPTER AVEC LE CHIFFRE DES NIHILISTES RUSSES par tresorsdevie
Source avec Zip Source avec une capture Source .NET (Dotnet) COMPTE_BANCAIRE.NET par Adn56

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture CLM'S ASCII ART par clementio
Source avec Zip CONVERSION D'UNE SOMME EN LETTRES par AVI17
Source avec Zip TRANSFORMER UN NOMBRES EN LETTRES (TRÈS OPTIMISER) par ouiss
Source avec Zip ECRIRE DES NOMBRES EN TOUTES LETTRES (MULTI-LANGUAGE) par santiago69
Source avec Zip Source avec une capture TRADUCTEUR VB6.VBP EN VB5.VBP par joro

Commentaires et avis

Commentaire de rvblog le 11/10/2006 17:55:15

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

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

conversion du mois (access) [ par Nine30 ] Bonjour, est ce quelqu'un pourrais me dire qu'elle est la fonction sous access quipermette de convertir le mois récupéré d'une date (donc au format ch conversion decimale en hexadecimale float 32 [ par namy ] Bonjour,Pour convertir un decimal en hexadecimal pas de probleme!!Seulement, j'ai besoin de convertir des nombres decimaux en hexadecimaux float 32.j' Conversion de fichiers! [ par KaGi ] BonjourJe dois traiter des fichiers qui n'ont pas d'extensions (contiennent du text que je peux ouvrire avec notepad) et que je dois convertir en html Conversion String a Byte [ par shadow1779 ] Bonjour, j'essaye de faire un petit programme utilisant les sockets, pour l'envoi je fais ceci afin de convertir un string en byte... mais comment con Problème de conversion [ par jabaka ] Bonjour j'ai un petit problème avec un script que j'essai de convertir en visual basic je sais que le problème est surement ridicule mais je me lance. Convertir un projet VB 6.0 [ par vince2229 ] Bonjour,Je dispose d'une application qui a été développé entièrement avec VB 6.0. Je souhaiterais voir si il est possible de passer sur VB .net assez conversion date [ par aakpa ] slt a tous, je travaille avec VB6 Je voudrais convertir un format de date jj-mm-aaaa (27-06-2009) en jjmmaa (270609). Merci de bien vouloir m'orienter Problème de conversion CString et ASCII [ par Valentintinmar ] Bonjour à tous, Après plusieurs heures à eccumer le net en recherche d'indices, j'en viens à vous exposer mon problème dans l'espoir de quelques lumi convertir string en réel avec virgul et Enregistrer cette valeur en SQL Server [ par cest_adil ] [b]convertir string en réel avec virgul et Enregistrer cette valeur en SQL Server:[/b] avec VB.NET comment convertir string en réel avec virgul, et a


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,811 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales