IDDN CertificationIDDN Certification
 
  Moteur de recherche
Recherche personnalisée
 
   

 
Menu Principal

 Accueil
 Programmation
    avec Cours...
 Liens (ANNUAIRE)
 Statistiques-TOP 10
 Me contacter
 

  ObjetsBois.com : des produits faits main, des produits artisanaux faits dans du bois de qualité.

 

 
Partenaires

 Les Partenaires

 
 

Convertir des pixels en Twips  


Paramètres en entrée : X (chaîne), Y (chaîne), Texte (booléen)
Paramètres en sortie : PixelsVersTwips (chaîne)

Public Function PixelsVersTwips(X As String, Y As String, Texte As Boolean) As String
   ux = Screen.TwipsPerPixelX
   uy = Screen.TwipsPerPixelY
   X = X * ux
   Y = Y * uy
   If Texte = True Then
      PixelsVersTwips = Int(X) & " x " & Int(Y) & " Twips"
   Else
      PixelsVersTwips = Int(X) & " x " & Int(Y)
   End If
End Function
 


[ ObjetsBois.com ]
[ Foot Phocéen / Olympique de Marseille ] - [ turf / pmu / paris ]

Copyright © 2000-2010 LCL2000.COM
Reproduction totale ou partielle interdite sur quelque
support que ce soit sans l'accord de l'auteur
Tous droits réservés.
La confidentialité de vos données sur ce site est préservée.
LCL2000.com est déclaré à la CNIL sous le n°1007192



PageRank Actuel