Developpez.com - Access
X

Choisissez d'abord la catégorieensuite la rubrique :

ACCESS : Classe de manipulation des images

Date de publication : 18/03/08 , Date de mise à jour : 18/03/08


III. Les fonctions de base
III-A. SetImgCtrl
III-B. Repaint
III-C. LoadFromFile
III-D. KeepImgData
III-E. RefreshImgData
III-F. DelImgData
IV. Les fonctions de modification de l'image
IV-A. ChangeColor
IV-B. FillColor
IV-C. ImgTransform
IV-D. ImgResize
V. Les fonctions de dessin
V-A. DrawPixel
V-B. DrawLine
V-C. DrawRectangle
V-D. DrawEllipse
V-E. DrawPolygon
V-F. DrawPolyBezier
V-G. DrawNewFont
V-H. DrawResetFont
V-I. DrawText
VI. Les fonctions pour gérer la liste d'images
VI-A. ImageListAdd
VI-B. ImageListExists
VI-C. ImageListDel
VI-D. PaintImage
VI-E. ImageListChangeColor
VI. Les fonctions pour gérer les régions
VI-A. AddEllipticRegion
VI-B. AddPolygonRegion
VI-C. AddRectangleRegion
VI-D. CombineRegion
VI-E. DelRegion
VI-F. DelAllRegions
VI-G. FrameRegion
VI-H. FillRegion
VI-I. GetMouseRegion
VI-J. RegionInRegion
VI-K. AddAutoRegion
VI-L. SetFormRegion
VI-M. ResetFormRegion
VI-N. GetRectangleRegionHeight
VI-O. GetRectangleRegionWidth
VIII. Autres fonctions relatives à l'image
VIII-A. SaveToBmp
VIII-B. SaveToJpg / SaveToGif/ SaveToPng / SaveToTif
VIII-C. SaveToEmf
VIII-D. GetTextLength
VIII-E. ImgToClipBoard
VIII-F. CaptureScreen
VIII-G. GetMousePixelColor
VIII-H. GetPixels
VIII-I. SetPixels
VIII-J. SetXPTheme
VIII-K. SetDoubleBufferXP
IX. Les fonctions pour le formulaire
IX-A. DragForm
IX-B. FormPos
IX-C. FormSizeAble
IX-D. RedimCtrlInitialize
IX-E. RedimCtrl
X. Les fonctions de conversion
X-A. CtrlToFormX et CtrlToFormY
X-B. ImgToFormX et ImgToFormY
X-C. ImgToCtrlX et ImgToCtrlY
X-D. CtrlToImgX et CtrlToImgY
X-E. CtrlToImgArray
X-F. ImgToCtrlArray
X-G. TwipsToPixelX et TwipsToPixelY
X-H. PixelToTwipsX et PixelToTwipsY
X-I. TwipsToCm
X-J. CmToTwips
XI. Les autres fonctions utiles
XI-A. SetHandCursor
XI-B. ResetCursor
XI-C. Split97
XI-D. fMax
XI-E. fMin
XI-F. DialogColor
XI-G. LongToRGB
XI-H. ColorBrightness
XI-I. RGBtoHLS
XI-J. HLStoRGB
XI-K. FontSizeToHeight


III. Les fonctions de base


III-A. SetImgCtrl

Initialise le contrôle Image (ou le formulaire) sur lequel on va dessiner.
C'est la première fonction à utiliser.
Une fois le contrôle initialisé on peut alors dessiner dessus.
On ne peut définir qu'un contrôle par classe.

Paramètres :


Paramètre Type Explication
Ctrl Object Contrôle ou formulaire
[pDelRegions]=True Boolean Si Vrai alors les régions définies ne sont pas supprimées.
(Utile pour conserver les régions au niveau formulaire avant un SetFormRegion)
[pWidth]=0 Largeur de l'image Si non renseigné => largeur du contrôle
[pHeight]=0 Hauteur de l'image Si non renseigné => hauteur du contrôle
[pNoRepaint]=False Boolean Si Vrai alors l'image n'est pas redessinée à l'écran durant cette fonction.

Exemple :

lReturn = Climg.SetImgCtrl(Me.Image0)
						


III-B. Repaint

Redessine l'image dans le contrôle.
A l'exception de LoadFromFile, les fonctions dessinent en mémoire.
L'image n'est actualisée à l'écran qu'à l'appel de la fonction Repaint.

Paramètres :


Paramètre Type Explication
[pTemporary]=False Boolean Dessin direct à l'écran sans mise à jour de l'image dans le contrôle.
L'affichage est beaucoup plus rapide mais il est temporaire.
[pResizeBefore]=False Boolean Si Vrai, l'image est redimensionnée à la taille du contrôle avant d'y être injecté.

III-C. LoadFromFile

Charge une image dans le contrôle image.
L'image est directement actualisée à l'écran.

Paramètres :


Paramètre Type Explication
pFichier String Chemin d'un fichier image (testé sur des fichiers jpg,gif,bmp)
[pWidth] = 0 Long Largeur de l'image
[pHeight] = 0 Long Hauteur de l'image
[pAntiAliase] = Faux Boolean Appliquer ou non un filtre antialising sur l'image
[pThumbNail] = Faux Boolean Lecture de la miniature intégrée à un Jpeg
(Nécessite GDI+)

Si une des dimensions est nulle alors elle est calculée par rapport à l'autre en conservant le rapport hauteur/largeur.
Si les deux dimensions sont nulles alors l'image garde sa taille originale.
La fonction renvoie dans les paramètres pWidth et pHeight les dimensions de l'image chargée

Exemple :

lReturn = Climg.LoadFromfile("c:\test.jpg", Image0.Width)<br/>
						


III-D. KeepImgData

Sauvegarde une image en mémoire.

Paramètres :


Paramètre Type Explication
[pNom] = "BACKUP" String Nom de la sauvegarde
pX1
pY1
pX2
pY2
Long Coordonnées du rectangle à sauvegarder

III-E. RefreshImgData

Charge une image préalablement sauvegardée en mémoire par la fonction KeepImgData.

Paramètres :


Paramètre Type Explication
[pNom] = "BACKUP" String Nom de la sauvegarde
pX1
pY1
pX2
pY2
Long Coordonnées du rectangle à redessiner.
A priori celles utilisées à l'appel de KeepImgData.
[pTranspColor] = -1 Long Couleur de transparence
[pPercent] = 100 Long Pourcentage de transclucidité

Utilisez pTranspColor et pPercent pour superposer plusieurs images.


III-F. DelImgData

Supprime de la mémoire une image préalablement sauvegardée par la fonction KeepImgData.

Paramètres :


Paramètre Type Explication
[pNom] = "BACKUP" String Nom de la sauvegarde

IV. Les fonctions de modification de l'image


IV-A. ChangeColor

Remplace une couleur de l'image par une autre.

Paramètres :


Paramètre Type Explication
OldColor Long Ancienne couleur
NewColor Long Nouvelle couleur

Exemple :
Remplace la couleur de fond de l'image par celle du formulaire

lReturn = Climg.ChangeColor(10289151, Me.Section(acDetail).BackColor)
				

IV-B. FillColor

Rempli l'image d'une couleur unie.

Paramètres :


Paramètre Type Explication
pColor Long Couleur de remplissage
[pX1] = 0
[pY1] = 0
[pX2] = -1
[pY2] = -1
Long pX1,pY1,pX2,pY2 forment le rectangle qui doit être rempli.
Si aucune coordonnée n'est définie alors l'image est entièrement remplie.
Si pX2 est omis l'image est remplie jusqu'au bord droit.
Si pY2 est omis l'image est remplie jusqu'en bas.
[pColor2]=-1 Long Couleur pour dégradé
Le dégradé va de la couleur pColor vers la couleur pColor2
[pHorizGradient]=Faux Boolean Faux : Gradient de gauche à droite
Vrai : Gradient de haut en bas

Exemple :
Rempli de blanc le quart de l'image en bas à droite

lReturn = Climg.FillColor(vbWhite,Image0.Width/2,Image0.Height/2)
				

IV-C. ImgTransform

Applique une transformation à l'image.
---> Voir la section Valeurs des paramètres pour la liste des transformations

Paramètres :


Paramètre Type Explication
pTransform Variant Liste des transformations.
   On peut définir une transformation unique ou plusieurs transformations.
   Pour définir plusieurs transformations passer un tableau en paramètre.
[pParam] Variant Liste des paramètres des transformations.
   Chaque transformation peut éventuellement accepter un paramètre.
   Il doit y avoir autant de paramètres que de transformations, même si certaines transformations demandées n'en requièrent pas.
[pTranspcolor] = vbBlack Long Couleur utilisée pour remplir les zones sans images (après une rotation par exemple)
[pProgressBar] = Nothing Object Contrôle image qui va servir de barre de progression
[pProgressBackColor] = vbWhite Long Couleur de fond de la barre de progression
[pProgressBarColor] = vbRed Long Couleur de la barre de progression

Exemple :
Effectuer une rotation de 30° de l'image

' On rempli les zones noires par la couleur de fond du formulaire
' On utilise un contrôle image ImgProgress pour visualiser la progression du traitement
lReturn = climg.ImgTransform("ROTATE", 30, Me.Section(acDetail).BackColor, ImgProgress)
				
Effectuer une rotation de 30° de l'image puis appliquer un filtre 'niveau de gris'

' On rempli les zones noires par la couleur de fond du formulaire
lReturn = climg.ImgTransform(Array("ROTATE","GRAY"), Array(30,0), Me.Section(acDetail).BackColor)
				

IV-D. ImgResize

Redimensionne le contrôle contenant l'image.
Utile pour se donner un peu d'espace si on a déjà utilisé toute la surface du contrôle.

Paramètres :


Paramètre Type Explication
pX Long Nouvelle largeur
pY Long Nouvelle hauteur
[pImgSizeMode] = acOLESizeClip Integer Type de positionnement de l'image après redimensionnement
[pImgPictureAlignment] = 0 Integer Position de l'image après redimensionnement (en haut à gauche par défaut)
[pColor] = vbBlack Long Couleur de remplissage de la zone agrandie
[pNoCtrlResize] = False Boolean Si Vrai, le contrôle n'est pas redimensionné (seule l'image est redimensionnée).

Par défaut l'image est placée en haut à gauche sans redimensionnement.

Exemple :
Double la taille du contrôle, laisse l'image inchangée en haut à gauche

' On multiple les dimensions par deux
' On laisse le repositionnement par défaut
' On colorie en blanc l'espace ajouté en bas et à droite
climg.ImgResize Image0.Width*2, Image0.Height*2, , , RGB(255, 255, 255)
				

V. Les fonctions de dessin


V-A. DrawPixel

Dessine un pixel.

Paramètres :


Paramètre Type Explication
pX Long Position horizontale du pixel
pY Long Position verticale du pixel
pColor Long Couleur du pixel

Exemple :
Dessiner un pixel rouge au milieu du contrôle

lReturn = climg.DrawPixel(Image0.Width/2,Image0.Height/2,vbRed)
				

V-B. DrawLine

Dessine une ligne.

Paramètres :


Paramètre Type Explication
pX1,pY1 Long Position du premier point
pX2,pY2 Long Position du deuxième point
[pPenColor] = vbBlack Long Couleur de la ligne
[pPenWidth] = 1 Long Epaisseur de la ligne
[pPenStyle] = 0 Long Style du trait
---> Voir la section Valeurs des paramètres pour la liste des types de traits
[pArrowLength] = 0 Long Taille des traits de la flèche
Si > 0, affiche une flèche

Exemple :
Dessiner une ligne bleue qui traverse le contrôle en diagonal

lReturn = climg.DrawLine(0,0,Image0.Width,Image0.Height,vbBlue)
				

V-C. DrawRectangle

Dessine un rectangle.

Paramètres :


Paramètre Type Explication
pX1,pY1,pX2,pY2 Long Coordonnées du rectangle
[pBackColor] = -1 Long Couleur de remplissage
   Laisser -1 pour un rectangle transparent.
[pPenColor] = vbBlack Long Couleur de la ligne
[pPenWidth] = 1 Long Epaisseur de la ligne
[pPenStyle] = 0 Long Style du trait
---> Voir la section Valeurs des paramètres pour la liste des types de traits.
[pRegion] = 0 String Nom de la région à créer automatiquement

Exemple :
Dessiner un rectangle aléatoire

' pBackColor = -1 siginifie qu'on dessine uniquement la bordure sans le fond
' pPenColor = vbBlue pour dessiner en rouge
' Si l'image est affichée en mode Zoom ou Découpage il se peut que l'image ne remplisse
'   pas entièrement le contrôle
' On utilise donc les propriétés ImgX1,ImgY1,ImgX2,ImgY2 pour s'assurer que
'  les coordonnées du rectangle sont dans l'image visible
    climg.DrawRectangle climg.ImgX1 + CLng(Rnd * (climg.ImgX2 - climg.ImgX1)), climg.ImgY1 + CLng(Rnd * (climg.ImgY2 - climg.ImgY1)), _
                        climg.ImgX1 + CLng(Rnd * (climg.ImgX2 - climg.ImgX1)), climg.ImgY1 + CLng(Rnd * (climg.ImgY2 - climg.ImgY1)), _
                        -1, vbBlue
				

V-D. DrawEllipse

Dessine une ellipse.

Paramètres :


Paramètre Type Explication
pX1,pY1,pX2,pY2 Long Position de l'ellipse
[pType] = 0 Integer Type de positionnement
    Si Ptype = 0 : On passe un rectangle en paramètre, l'ellipse remplit ce rectangle
          pX1,Y1 : Point Haut-Gauche du rectangle
          pX2,Y2 : Point Bas-Droite du rectangle
    Si Ptype = 1 : on passe le centre et les rayons de l'ellipse en paramètre
          pX1,pY1 : Centre de l'ellipse
          pX2 : Rayon horizontal
          pY2 : Rayon vertical
[pBackColor] = -1 Long Couleur de remplissage
   Laisser -1 pour une ellipse transparente
[pPenColor] = vbBlack Long Couleur de la ligne
[pPenWidth] = 1 Long Epaisseur de la ligne
[pPenStyle] = 0 Long Style du trait
---> Voir la section Valeurs des paramètres pour la liste des types de traits.
[pArcArray] Variant Tableau de 4 coordonnées formant une droite limitant l'ellipse
[pRegion] = 0 String Nom de la région à créer automatiquement

Exemple :
Dessiner une ellipse au milieu du contrôle

' Dessin d'une ellipse rouge d'épaisseur 2, centrée au mileu du contrôle, remplie de vert, 
'   et de rayons 1/5è de la taille du contrôle
lReturn = climg.DrawEllipse(Image0.Width / 2, Image0.Height / 2,Image0.Width / 5 ,Image0.Height / 5, 1, vbGreen, vbRed, 2)
				

V-E. DrawPolygon

Dessine un polygone.

Paramètres :


Paramètre Type Explication
pPoints Variant Tableau de points formant le polygone : Array(X1,Y1,X2,Y2,X3,Y3,...)
[pBackColor] = -1 Long Couleur de remplissage
   Laisser -1 pour un rectangle transparent.
[pPenColor] = vbBlack Long Couleur de la ligne
[pPenWidth] = 1 Long Epaisseur de la ligne
[pPenStyle] = 0 Long Style du trait
---> Voir la section Valeurs des paramètres pour la liste des types de traits.
[pRegion] = 0 String Nom de la région à créer automatiquement

V-F. DrawPolyBezier

Dessine une courbe de Bézier.
Pour tracer une courbe de Bézier il faut au moins 4 points.
Le nombre total de points doit être : 4 + Nb * 3
On dessine alors (Nb+1) courbes de béziers.

Paramètres :


Paramètre Type Explication
pPoints Variant Tableau de points formant le polygone : Array(X1,Y1,X2,Y2,X3,Y3,...)
[pPenColor] = vbBlack Long Couleur de la ligne
[pPenWidth] = 1 Long Epaisseur de la ligne
[pPenStyle] = 0 Long Style du trait
---> Voir la section Valeurs des paramètres pour la liste des types de traits.

V-G. DrawNewFont

Définit la police de caractères

Paramètre Type Explication
pHeightLong Taille du texte (12, 20, ...)
[pAngle] = 0Long Angle d'inclinaison en degrés
[pWeight] = 400Long Epaisseur (400 = normal ; 700 = gras)
[pItalic] = FalseBoolean Italique Oui/Non
[pUnderscore] = FalseBoolean Souligné Oui/Non
[pStrikeOut] = FalseBoolean Barré Oui/Non
[pFontName] = "Arial"String Nom de la police (Arial, ...)

La police de caractères définie est utilisée jusqu'à ce qu'on en crée une autre.
Il n'y qu'une seule police de caractères définie à la fois.

Exemple :
Définition d'une nouvelle police de caractère

' Taille de 30 / Gras / Italique / Comic sans MS
climg.DrawNewFont 30, 0, 700, True, False, False, "Comic sans MS"
				

V-H. DrawResetFont

Rétablit la police de caractère d'origine.
C'est la police de caractère par défaut de windows.


V-I. DrawText

Dessine du texte.

Paramètres :


Paramètre Type Explication
pTextString Texte à écrire
   Peut contenir des retours à la ligne (vbCrLf)
pX1,pY1,[pX2],[pY2]Long Position du texte.
   Si toutes les coordonnées sont renseignées alors on place le texte dans le rectangle
     défini par les deux points pX1,pY1 et pX2,pY2
   Si pX2 et pY2 sont nuls alors on place le texte sur le point pX1,pY1
   Si pY2 =0 alors on place le texte par rapport à pX1,pY1 sur une largeur égale à pX2
   Si on a défini un angle pour la police de caractères alors on ne peut que positionner
     le texte sur le point pX1,pX2
[pBackColor] = -1Long Couleur de fond (-1 si transparent)
[pPenColor] = 0Long Couleur du texte
[pAlignHoriz] = 0Integer Alignement horizontal
          - 0 : Centre
          - 1 : Gauche
          - 2 : Droite
[pAlignVert] = 0Integer Alignement vertical
          - 0 : Centre
          - 1 : Haut
          - 2 : Bas
[pWordBreak] = FauxBoolean Retour à la ligne si le texte est trop grand
   Ne fonctionne que si on a défini un rectangle pour positionner le texte
[pPercent] = 100Integer Pourcentage pour affichage translucide (0 : invisible ; 100:normal)

VI. Les fonctions pour gérer la liste d'images


VI-A. ImageListAdd

Ajoute une image à la liste d'image.

Paramètres :


Paramètre Type Explication
pName String Identifiant de l'image
[pFile]="" String Chemin du fichier de l'image
   Si aucun fichier n'est passé en paramètre alors on sauvegarde l'image
   du contrôle dans la liste d'image
[pWidth]=0
[pHeight]=0
Long Taille de l'image
   Si pWidth et pHeight sont nulles toutes les deux l'image conserve sa taille
   Si seulement une des deux tailles est nulles alors l'autre est calculée en
     en conservant les proportions de l'image d'origine.
[pTransform] Variant Liste des transformations.
   On peut définir une transformation unique ou plusieurs transformations.
   Pour définir plusieurs transformations passer un tableau en paramètre.
[pParam] Variant Liste des paramètres des transformations.
   Chaque transformation peut éventuellement accepter un paramètre.
   Il doit y avoir autant de paramètres que de transformations, même si certaines transformations demandées n'en requièrent pas.
[pTranspcolor] = -1 Long Couleur de transparence
   Cette couleur sera utilisée pour remplir les zones sans image après transformation.
   Par exemple après une rotation de 30° il y a des zones qui n'ont pas de couleurs.
[pThumbNail] = Faux Boolean Lecture de la miniature intégrée à un Jpeg
(Nécessite GDI+)

VI-B. ImageListExists

Teste si l'image existe déjà dans la liste.
La fonction renvoie Vrai si l'image est déjà dans la liste

Paramètres :


Paramètre Type Explication
pName String Identifiant de l'image

VI-C. ImageListDel

Supprime une image de la liste d'image.

Paramètres :


Paramètre Type Explication
pName String Identifiant de l'image

VI-D. PaintImage

Affiche une image de la liste d'images.

Paramètres :


Paramètre Type Explication
pName String Identifiant de l'image
pX1,pY1,[pX2],[pY2] Long Position de l'image
     Si pX2 et pY2 sont nuls alors on conserve la taille de l'image
     Si pX2 = 0 ou pY2 =0 alors on calcule la dimension manquante par rapport à l'autre en conservant le rapport hauteur/largeur.
     Si pImgSizeMode = acOLESizeAutoSize :
          pX1,pY1 : Position de l'image
          pX2 : Largeur de l'image
          pY2 : Hauteur de l'image
     Si pImgSizeMode = acOLESizeZoom/acOLESizeStretch/acOLESizeClip :
          pX1,Y1 : Point Haut-Gauche du rectangle contenant l'image
          pX2,Y2 : Point Bas-Droite du rectangle contenant l'image
[pTranspcolor] = -1 Integer Couleur de transparence : les points de cette couleur ne
     seront pas dessinés
[pImgSizeMode] = acOLESizeStretch Integer Type d'affichage de l'image (Echelle par défaut)
[pImgPictureAlignment] = 2 Integer Position de l'image (centrée par défaut)
[pFactX]=0
[pFactY]=0
Single Facteurs d'agrandissement/Réduction de l'image (0.5 , 2 , ...)
[pTransform]=Null Variant Tableau de transformations
[pParam]=Null Variant Tableau de paramètres des transformations
[pPercent]=100 Integer Pourcentage pour affichage transclucide (0:invisible;100:normal)
[pRegion]="" String Region à ajouter automatiquement
[pTranspColorRegion] = -1 Long Couleur à éventuellement utiliser pour déterminer la région
          Si -1 : la région est un rectangle de coordonnées pX1,pY1,pX2,pY2
          Si >= 0 : la région est définie par les points de couleur
différente de ce paramètre

VI-E. ImageListChangeColor

Change une couleur d'une image de la liste d'images.

Paramètres :


Paramètre Type Explication
pName String Identifiant de l'image
pOldColor Long Ancienne couleur
pNewColor Long Nouvelle couleur

VI. Les fonctions pour gérer les régions


VI-A. AddEllipticRegion

Ajoute une région elliptique.

Paramètres :


Paramètre Type Explication
pRegion String Identifiant de la region
pX1,pY1,pX2,pY2 Long Position de l'ellipse
[pType] = 0 Long Type de positionnement
     Si Ptype = 0 : On passe un rectangle en paramètre, l'ellipse remplit ce rectangle
          pX1,Y1 : Point Haut-Gauche du rectangle
          pX2,Y2 : Point Bas-Droite du rectangle
     Si Ptype = 1 : on passe le centre et les rayons de l'ellipse en paramètre
          pX1,pY1 : Centre de l'ellipse
          pX2 : Rayon horizontal
          pY2 : Rayon vertical

VI-B. AddPolygonRegion

Ajoute une région polygonale.
   Pensez à fermer le polygone pour créer une région.

Paramètres :


Paramètre Type Explication
pRegion String Identifiant de la region
pPoints Variant Tableau de points formant le polygone
Array(X1,Y1,X2,Y2,X3,Y3,...)

VI-C. AddRectangleRegion

Ajoute une région rectangulaire.

Paramètres :


Paramètre Type Explication
pRegion String Identifiant de la region
pX1,pY1 Long Point Haut-Gauche du rectangle
pX2,pY2 Long Point Bas-Droite du rectangle

VI-D. CombineRegion

Combine des régions.
Combine les régions pRegion1 et pRegion2 : renvoie le résultat dans pRegionOut

Paramètres :


Paramètre Type Explication
pRegionOut String Identifiant de la region de destination
pRegion1 String Identifiant de la region source 1
pRegion2 String Identifiant de la region source 2
[pCombineType] = OR String Type de combinaison
           - OR : Ajout des régions
           - AND : Intersection des régions
           - DIFF : Différence (Region source 1) - (Region source 2)
           - XOR : Region composée des zones non communes aux 2 régions
           - COPY : Copie (Région Source 1)

VI-E. DelRegion

Supprime une région.

Paramètres :


Paramètre Type Explication
pRegion String Identifiant de la region à supprimer

VI-F. DelAllRegions

Supprime toutes les régions.


VI-G. FrameRegion

Dessine un trait qui encadre la région.

Paramètres :


Paramètre Type Explication
pRegion String Identifiant de la region
[pColor] = vbBlack Long Couleur du trait
[pWidth] = 1 Long Epaisseur du trait

VI-H. FillRegion

Remplit une region d'une couleur ou de hachures.

Paramètres :


Paramètre Type Explication
pRegion String Identifiant de la region
[pColor] = vbBlack Long Couleur de remplissage ou des hachures
[Ptype] = 1 Long Type de remplissage
    0 : Hachures horizontales
    1 : Hachures verticales
    2 : Hachures diagonales à droite
    3 : Hachures diagonales à gauche
    4 : Hachures en croix
    5 : Hachures en croix diagonales
    6 : Couleur de remplissage

VI-I. GetMouseRegion

Identifie la region située sur un point.
Les paramètres sont de type Single car la fonction est utilisée principalement
à partir des événements de la souris qui renvoient des paramètres de type Single

Paramètres :


Paramètre Type Explication
pX Single Position X du point
pY Single Position Y du point
[BeginFromLast]=False Boolean Si Vrai, commence la recherche par la dernière région ajoutée.
[pExcludeRgn] Variant Tableau de régions à exclure de la recherche (ex : array("Rgn1",Rgn2")).
[pIncludeRgn] Variant Tableau de régions à inclure dans la recherche (ex : array("Rgn1",Rgn2")).

La fonction renvoie le nom de la région située sur le point précisé.

Exemple :
Recherche l'identifiant de la région sous le curseur de la souris

Private Sub Image0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)<br/>
	Dim sRegion As String       ' Region survolée<br/>
	sRegion = climg.GetMouseRegion(X, Y)    ' Récupère l'identifiant de la région survolée<br/>
End Sub
						


VI-J. RegionInRegion

Teste l'intersection entre une région et une liste de régions.

Paramètres :


Paramètre Type Explication
pRegion String Identifiant de la region à tester
[pRegionArray] Variant Permet de limiter la recherche à un tableau de régions
      Si ce paramètre est omis le test à lieu avec toutes les régions sauf bien sûr la région pRegion
[pFull]=Faux Boolean - Vrai : Test si la région pRegion est totalement incluse dans une autre région.
- Faux : Test si la région pRegion a une zone commune avec une autre région;

La fonction renvoie le nom de la région en collision avec pRegion.
Si plusieurs régions sont en collision avec pRegion le résultat est le nom de la première région
      dans l'ordre de création.

Exemple :
Test si sRegion est entrée en collision avec Region1 ou Region2

Dim lRegionCollision as string
lRegionCollision = climg.RegionInRegion(sRegion,Array(Region1,Region2))
						


VI-K. AddAutoRegion

Détermine une région définie par les points qui sont ou ne sont pas de la couleur spécifiée.

Paramètres :


Paramètre Type Explication
pRegion String Identifiant de la region à créer
pColor Long Couleur déterminant la région
[pIncludeColor]=Faux Boolean - Vrai : La région contient les points de couleur pColor.
- Faux : La région contient les points de couleur différente de pColor.
[pPointX,pPointY] Long Coordonnées d'un point : la région sera composée des points adjacents à celui-ci.
(c'est l'équivalent du pot de peinture de Paint)

Exemple :
Création d'une région nommée 'RegionTest' qui inclue tous les points blancs de l'image

climg.AddAutoRegion "RegionTest",vbWhite,True
						


VI-L. SetFormRegion

Limite l'affichage de formulaire à une région.

Paramètres :


Paramètre Type Explication
pFormFormFormulaire à limiter.
[pColor] = vbBlackLongCouleur déterminant la région.
[pIncludeColor] = FauxBoolean            - Vrai : La région contient les points de couleur pColor.
           - Faux : La région contient les points de couleur différente de pColor.
[pRegion] = ""String Utilise une région déjà définie.
     Il faut que cette région ait été définie avec la propriété gFormCoord = Vrai.

Exemple1 :
Comment limiter le formulaire à tous les points qui ne sont pas de couleur blanche

climg.SetFormRegion Me, vbWhite, False
						

Exemple2 :
Comment limiter le formulaire à une ellipse

' Dessin d'une ellipse de couleur rouge qui remplit le contrôle
climg.DrawEllipse 0, 0, climg.ImgCtrlWidth, climg.ImgCtrlHeight, , , 255, 2
' Passage en coordonnées formulaire pour la région
climg.FormCoord = True
' Ajoute une région formée par l'ellipse
climg.AddEllipticRegion "FormRegion", 0, 0, climg.ImgCtrlWidth, climg.ImgCtrlHeight
' On n'oublie pas de repasser dans le mode de coordonnées par défaut
climg.FormCoord = False
' On redessine l'image pour voir l'ellipse
climg.Repaint
' On limite le formulaire à la région formée par l'ellipse
climg.SetFormRegion Me, , , "FormRegion"
						


VI-M. ResetFormRegion

Rétablit l'affichage du formulaire complet.

Paramètres :


Paramètre Type Explication
pFormFormFormulaire à rétablir.

Remarque : Le formulaire est automatiquement rétabli lorsque la classe est libérée


VI-N. GetRectangleRegionHeight

Renvoit la hauteur en twips du rectangle contenant une région.

Paramètres :


Paramètre Type Explication
pRegion String Identifiant de la région.

VI-O. GetRectangleRegionWidth

Renvoit la largeur en twips du rectangle contenant une région.

Paramètres :


Paramètre Type Explication
pRegion String Identifiant de la région.

VIII. Autres fonctions relatives à l'image


VIII-A. SaveToBmp

Sauvegarde l'image dans un fichier BMP.

Paramètres :


Paramètre Type Explication
pFichierStringChemin d'un fichier BMP.

VIII-B. SaveToJpg / SaveToGif/ SaveToPng / SaveToTif

Sauvegarde l'image dans un fichier JPG, GIF, PNG ou TIFF.
(Nécessite Gdi+)

Paramètres :


Paramètre Type Explication
pFichierStringChemin d'un fichier.
[pQuality]=80LongQualité du fichier Jpeg (de 0 à 100)

VIII-C. SaveToEmf

Sauvegarde le bitmap dans un fichier EMF.

Paramètres :


Paramètre Type Explication
pFichierStringChemin du fichier.
Uniquement SaveToJpg
[pTransparentColor]=-1LongCouleur de transparence

VIII-D. GetTextLength

Renvoie la taille d'un texte.
Utile pour connaître la taille du texte pour savoir si on assez de place pour l'écrire.

Paramètres :


Paramètre Type Explication
pTextStringTexte à mesurer.
pWidthLongRenvoie la largeur du texte.
pHeightLongRenvoie la hauteur du texte.
[pWordBreak]=FauxBoolean Retour à la ligne si texte trop long.
Si pWordBreak = Vrai alors il faut passer pWidth en paramètre pour que Access sache    sur quel largeur on compte écrire.

VIII-E. ImgToClipBoard

Transfert l'image principal vers le presse-papiers
C'est le bitmap en mémoire qui est transféré, pas le contenu de l'objet.
On peut donc transférer une image vers le presse-papiers sans la dessiner à l'écran.


VIII-F. CaptureScreen

Capture d'écran.
On peut capturer vers le presse-papiers, vers un fichier ou vers un contrôle image.

Paramètres :


Paramètre Type Explication
[pClipboard] = Faux Boolean Transfert vers le presse-papiers : oui/non
[pFile] = "" String Transfert vers un fichier : chemin du fichier
[pControl] = Nothing Object Transfert vers un contrôle : contrôle ou formulaire
[pX1],[pY1],[pX2],[pY2] Long Rectangle délimitant la zone à capturer
   Si on omet tous ces paramètres alors la fenêtre complète est capturée
   Si on omet pX2 alors on capture jusqu'au bord droit de la fenêtre
   Si on omet pY2 alors on capture jusqu'au bord bas de la fenêtre
[pWidth],[pHeight] Long Taille de l'image après capture
     Si pX2 et pY2 sont nuls alors on conserve la taille de la fenêtre
     Si pX2 = 0 ou pY2 =0 alors on calcule la dimension manquante en gardant les proportions de la fenêtre.
[pAntialiase] = Faux Boolean Appliquer un filtre anti-aliasing sur l'image
   Utile uniquement si on a définit pWidth et pHeight
[pActiveWindow] = Faux Boolean Capturer uniquement la fenêtre active
   Si Faux alors on capture tout l'écran.
[pJpeg] = Faux Boolean Capture dans un fichier JPEG si Vrai, sinon dans un fichier BMP
(Nécessite Gdi+)
[pJpegQuality] = 80 Long Qualité du fichier Jpeg (de 0 à 100)

VIII-G. GetMousePixelColor

Renvoie la couleur d'un point
Les paramètres sont de type Single car la fonction est utilisée principalement
à partir des événements de la souris qui renvoient des paramètres de type Single

Paramètres :


Paramètre Type Explication
pX,pY Single Coordonnées du point

la fonction renvoie la couleur du point dans un Long.


VIII-H. GetPixels

Renvoie un tableau de pixels avec les couleurs RGB

Paramètres :


Paramètre Type Explication
pPixels Tableau de Byte Tableau de points RGB
[pOneDimension]=False Boolean Si Vrai les données sont renvoyées dans un tableau à une dimensions.
Peut être utile pour accélérer les traitements d'images.

Exemple :
Lire les couleurs des pixels

' Tableau pour recevoir les pixels
Dim lPixels() As Byte
Dim lCptX as long, lCptY as long
' Lecture des pixels de l'image
Climg.GetPixels lPixels		
' On boucle sur les pixels
For lCptX = 1 to UBound(lPixels(), 2)
	For lCptY = 1 to UBound(lPixels(), 3)
		' Composante bleue = lPixels(1, lCptX, lCptY)
		' Composante verte = lPixels(2, lCptX, lCptY)
		' Composante rouge = lPixels(3, lCptX, lCptY)		
	Next
Next
						

VIII-I. SetPixels

Redessine l'image à partir un tableau de pixels avec les couleurs RGB

Paramètres :


Paramètre Type Explication
pPixels Tableau de Byte Tableau de points RGB
[pOneDimension]=False Boolean Si Vrai les données sont fournies dans un tableau à une dimensions.
Peut être utile pour accélérer les traitements d'images.
[pWidth], [pHeigth] Long Si tableau à une dimensions, il est nécessaire de donner les dimensions de l'image.

Exemple :
Appliquer un filtre rouge sur l'image

' Tableau pour recevoir les pixels
Dim lPixels() As Byte
Dim lCptX as long, lCptY as long
' Lecture des pixels de l'image
Climg.GetPixels lPixels		
' On boucle sur les pixels
For lCptX = 1 to UBound(lPixels(), 2)
	For lCptY = 1 to UBound(lPixels(), 3)
' On ne garde que la couleur rouge en mettant les deux autres composantes à zéro
		' Annule la composante bleue 
		lPixels(1, lCptX, lCptY) = 0
		' Annule la composante verte
		lPixels(2, lCptX, lCptY) = 0
	Next
Next
' On réinjecte les couleurs dans l'image
climg.SetPixels lPixels
' On affiche l'image à l'écran
climg.Repaint
						

VIII-J. SetXPTheme

Active ou désactive le thème XP pour les contrôles.
Permet de réduire le scintillement de l'image (pour WinXP/Acc2003)
La fonction s'applique sur toute l'application, mais seulement sur les contrôles (les barres de menu, barres de titre, ... conservent le thème XP).
Voir la fonction SetDoubleBufferXP pour réduire les scintillements sans désactiver le thème XP.

Utilisez cette fonction même si vous avez déjà désactivé le thème XP dans les options de la base de données.

Paramètres :


Paramètre Type Explication
[pActive]=True Boolean Vrai pour activer.
Faux pour désactiver.

Exemple :
Réduire les scintillements si la version d'Access est 2003

' Désactive le thème XP pour réduire les scintillements si la version d'Access est 2003
If SysCmd(acSysCmdAccessVer) = "11.0" Then climg.SetXPTheme False			
						

VIII-K. SetDoubleBufferXP

Permet de réduire le scintillement de l'image (pour WinXP/Acc2003)

La fonction de double buffer est gourmande en ressource.
Envisagez l'utilisation de la fonction SetXPTheme pour désactiver le thème XP.

Paramètres :


Paramètre Type Explication
pForm Access.Form Formulaire dont on veut réduire le scintillement
Privilégiez un formulaire de type indépendant (Fen. Indépendante = Oui).
Si la fonction est appliquée sur un formulaire avec la propriété Fen. Indépendante = Non, alors le double buffer s'applique sur toute l'application et peut faire scintiller d'autres objets.
[pActive]=True Boolean Vrai pour activer.
Faux pour désactiver.
[pMore]=False Boolean Si les scintillements persistent, essayer de mettre ce paramètre à Vrai.

Exemple :
Réduire les scintillements si la version d'Access est 2003

' Activer le double buffer pour réduire les scintillements si la version d'Access est 2003
If SysCmd(acSysCmdAccessVer) = "11.0" Then climg.SetDoubleBufferXP Me			
						

IX. Les fonctions pour le formulaire


IX-A. DragForm

Permet le déplacement du formulaire
Cette fonction permet de déplacer le formulaire même s'il n'a pas de barre de titre.

Exemple :
Comment déplacer le formulaire en cliquant sur l'image

' Remarque : Ne fonctionne pas sur l'événement Click
Private Sub Image0_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    climg.DragForm
End Sub
						

IX-B. FormPos

Positionne le formulaire
Cette fonction permet de positionner le forumaire :
- soit par rapport à l'écran (uniquement formulaires indépendants)
- soit par rapport à le fenêtre de base de données

Paramètres :


Paramètre Type Explication
pForm Form Formulaire à positionner
[pImgPictureAlignment] = 2 Integer Position du formulaire
[pTopMost] = Faux Boolean Vrai pour afficher le formulaire au premier plan (formulaire indépendant uniquement)
[pScreen] = Faux Boolean - Vrai : Positionnement par rapport à l'écran
- Faux : Positionnement par rapport à la fenêtre base de données

Exemple :
Comment centrer le formulaire au chargement

Private Sub Form_Load()
	climg.FormPos Me, 2
End Sub			
						

IX-C. FormSizeAble

Formulaire redimensionnable même sans barre de titre
Ajoute une fine bordure redimensionnable, mais pas de barre de titre

Paramètres :


Paramètre Type Explication
pForm Form Formulaire à rendre redimensionnable
pSizeAble Boolean - Vrai pour rendre le formulaire redimensionnable - Faux pour annuler

Exemple :
Comment rendre le formulaire redimensionnable au chargement et sans barre de titre

Private Sub Form_Load()
	climg.FormSizeAble Me, True
End Sub			
						

IX-D. RedimCtrlInitialize

Initialise la liste des contrôles pour un futur redimensionnement
Voir RedimCtrl pour un exemple.

Paramètres :


Paramètre Type Explication
pForm Form Formulaire contenant les contrôles

IX-E. RedimCtrl

Redimensionne les contrôles en fonction des dimensions d'origine et de la taille actuelle du formulaire
A tester sur des formulaires simples, le résultat risque d'être illisible

Paramètres :


Paramètre Type Explication
pForm Form Formulaire contenant les contrôles à redimensionnés

Exemple :
Comment redimensionner les contrôles d'un formulaire lorsqu'on redimensionne le formulaire

' Au chargement du formulaire
Private Sub Form_Load()
    ' On ajoute les contrôles à redimensionnés
    climg.RedimCtrlInitialize Me
End Sub			
' Au redimensionnement du formulaire
Private Sub Form_Resize()
    ' Redimensionnement des contrôles en fonction de la nouvelle taille du formulaire
    climg.RedimCtrl Me
end sub
						

X. Les fonctions de conversion


X-A. CtrlToFormX et CtrlToFormY

Converti depuis les coordonnées contrôle vers les coordonnées formulaire
Utile pour déterminer la position d'un point du contrôle dans le formulaire afin d'y déplacer un contrôle

Paramètres :


Paramètre Type Explication
pX ou pY Long Abcisse ou ordonnées à convertir

La fonction retourne la valeur convertie en twips.

Exemple :
Dessiner un rectangle et y centrer une zone de texte

    ' Déclaration des coordonnées
    Dim X1 As Long, Y1 As Long, X2 As Long, Y2 As Long
    ' Initialisation du contrôle image
    climg.SetImgCtrl Me.Image0
    ' On rempli l'image de blanc
    climg.FillColor vbWhite
    ' Coordonnées du rectangle
    X1 = 1000
    Y1 = 1000
    X2 = 1000 + Étiquette0.Width * 2
    Y2 = 1000 + Étiquette0.Height * 2
    ' Dessine le rectangle
    climg.DrawRectangle X1, Y1, X2, Y2
    ' Conversion en coordonnées formulaire
    X1 = climg.CtrlToFormX(X1)
    Y1 = climg.CtrlToFormY(Y1)
    X2 = climg.CtrlToFormX(X2)
    Y2 = climg.CtrlToFormY(Y2)
    ' Centrage du contrôle dans l'emplacement
    X1 = X1 + ((X2 - X1) - Étiquette0.Width) / 2
    Y1 = Y1 + ((Y2 - Y1) - Étiquette0.Height) / 2
    ' Déplacement du contrôle
    Étiquette0.Left = X1
    Étiquette0.Top = Y1
    ' Redessine le contrôle
    climg.Repaint
						

X-B. ImgToFormX et ImgToFormY

Converti depuis les coordonnées image vers les coordonnées formulaire
Utile pour déterminer la position d'un point de l'image dans le formulaire afin d'y déplacer un contrôle

Paramètres :


Paramètre Type Explication
pX ou pY Long Abcisse ou ordonnées à convertir
Exception : ces coordonnées sont exprimées en pixels!
[pImgOrigCoord] = False Boolean Si Vrai convertir à partir du système de coordonnées de l'image d'origine

La fonction retourne la valeur convertie en pixels

Exemple :
Centrer une zone de texte dans un élément du dessin

    ' Déclaration des coordonnées
    Dim X1 As Long, Y1 As Long, X2 As Long, Y2 As Long
    ' Initialisation du contrôle image
    climg.SetImgCtrl Me.Image0
    ' Emplacement de l'étiquette en coordonnées image
    ' Ces coordonnées ont été déterminées sur l'image d'origine et sont donc en pixels
    ' Elles correspondent à une boîte rectangulaire dessinée sur l'image et dans laquelle on veux placer notre étiquette
    X1 = 364: Y1 = 13: X2 = 522: Y2 = 55
    ' Conversion en coordonnées formulaire
    ' pImgOrigCoord = True car les coordonnées ont été déterminées sur l'image d'origine et en pixels
    X1 = climg.ImgToFormX(X1, True)
    Y1 = climg.ImgToFormY(Y1, True)
    X2 = climg.ImgToFormX(X2, True)
    Y2 = climg.ImgToFormY(Y2, True)
    ' Centrage du contrôle dans l'emplacement
    X1 = X1 + ((X2 - X1) - Étiquette0.Width) / 2
    Y1 = Y1 + ((Y2 - Y1) - Étiquette0.Height) / 2
    ' Déplacement du contrôle
    Étiquette0.Left = X1
    Étiquette0.Top = Y1
						

X-C. ImgToCtrlX et ImgToCtrlY

Converti depuis les coordonnées image vers les coordonnées contrôle

Paramètres :


Paramètre Type Explication
pX ou pY Long Abcisse ou ordonnées à convertir
Exception : ces coordonnées sont exprimées en pixels!
[pDecalage] = True Boolean Calcul avec décalage (Position de l'image dans le contrôle)
Définir à Vrai pour convertir une position, à Faux pour convertir une taille.
[pPixel] = True Boolean Si Vrai renvoie le résultat en pixels, sinon en twips (par défaut)
[pImgOrigCoord] = False Boolean Si Vrai convertir à partir du système de coordonnées de l'image d'origine

X-D. CtrlToImgX et CtrlToImgY

Converti depuis les coordonnées contrôle vers les coordonnées image

Paramètres :


Paramètre Type Explication
pX ou pY Long Abcisse ou ordonnées à convertir
[pDecalage] = True Boolean Calcul avec décalage (Position de l'image dans le contrôle)
Définir à Vrai pour convertir une position, à Faux pour convertir une taille.
[pImgOrigCoord] = False Boolean Si Vrai convertir dans le système de coordonnées de l'image d'origine

La fonction retourne la valeur convertie en pixels


X-E. CtrlToImgArray

Converti un tableau depuis les coordonnées contrôle vers les coordonnées image

Paramètres :


Paramètre Type Explication
pPoints Variant Tableau de points (X1,Y1,X2,Y2,X3,Y3,...) en twips
[pImgOrigCoord] = False Boolean Si Vrai convertir vers le système de coordonnées de l'image d'origine

La fonction retourne un tableau de valeurs converties en pixels


X-F. ImgToCtrlArray

Converti un tableau depuis les coordonnées image vers les coordonnées contrôle

Paramètres :


Paramètre Type Explication
pPoints Variant Tableau de points (X1,Y1,X2,Y2,X3,Y3,...) en pixel
[pImgOrigCoord] = False Boolean Si Vrai convertir depuis le système de coordonnées de l'image d'origine

La fonction retourne un tableau de valeurs converties en twips


X-G. TwipsToPixelX et TwipsToPixelY

Converti les Twips en Pixels

Paramètres :


Paramètre Type Explication
pTwipsX
pTwipsY
Long Valeur à convertir (en Twips)

La fonction retourne la valeur convertie en Pixels


X-H. PixelToTwipsX et PixelToTwipsY

Converti les Pixels en Twips

Paramètres :


Paramètre Type Explication
pPixelsX
pPixelsY
Long Valeur à convertir (en Pixels)

La fonction retourne la valeur convertie en Twips


X-I. TwipsToCm

Converti les Twips en Cm

Paramètres :


Paramètre Type Explication
pTwips Long Valeur à convertir (en Twips)

La fonction retourne la valeur convertie en Cm


X-J. CmToTwips

Converti les Cm en Twips

Paramètres :


Paramètre Type Explication
pCm Single Valeur à convertir (en Cm)

La fonction retourne la valeur convertie en Twips


XI. Les autres fonctions utiles


XI-A. SetHandCursor

Applique un curseur en forme de main


XI-B. ResetCursor

Rétabli le curseur par défaut


XI-C. Split97

Split une liste en tableau
Utile pour access 97 qui n'a pas de fonction Split.

Paramètres :


Paramètre Type Explication
pStrg String Chaîne de caractère à diviser
pSep String Séparateur

La fonction retourne les données sous forme de tableau.


XI-D. fMax

Renvoie la valeur maxi entre a et b

Paramètres :


Paramètre Type Explication
a
b
Variant Valeurs à comparer

La fonction retourne la plus élevée des deux valeurs.


XI-E. fMin

Renvoie la valeur mini entre a et b

Paramètres :


Paramètre Type Explication
a
b
Variant Valeurs à comparer

La fonction retourne la moins élevée des deux valeurs.


XI-F. DialogColor

Boîte dialoge pour le choix d'une couleur

Paramètres :


Paramètre Type Explication
pHandle Long Handle du parent de la boîte de dialogue
Utilisez Me.hWnd ou application.HwndAccessApp

La fonction retourne -1 si aucune couleur n'est choisie.


XI-G. LongToRGB

Conversion code couleur Long vers RGB

Paramètres :


Paramètre Type Explication
pLong Long Valeur de la couleur
pRed Long Composante rouge de la couleur
pGreen Long Composante verte de la couleur
pBlue Long Composante bleue de la couleur

XI-H. ColorBrightness

Change la luminosité d'une couleur

Paramètres :


Paramètre Type Explication
pLong Long Valeur de la couleur
pPercent Integer Pourcentage de luminosité

Exemple :
Transformer du rouge en rose pâle

dim lRose as long
' Avec 180% de luminosité le rouge devient rose
lRose = ClImg.ColorBrightness(vbRed, 180)				
					

XI-I. RGBtoHLS

Conversion RGB vers HLS

Le système RGB donne les composantes Rouge/Vert/Bleue d'une couleur.
Le système HLS donne les composantes Teinte/Luminosité/Saturation d'une couleur.

Paramètres :


Paramètre Type Explication
pRed Long Composante Rouge
pGreen Long Composante Verte
pBlue Long Composante Bleue
pHue Long Teinte
pLightness Long Luminosité
pSaturation Long Saturation

XI-J. HLStoRGB

Conversion HLS vers RGB

Le système HLS donne les composantes Teinte/Luminosité/Saturation d'une couleur.
Le système RGB donne les composantes Rouge/Vert/Bleue d'une couleur.

Paramètres :


Paramètre Type Explication
pHue Long Teinte
pLightness Long Luminosité
pSaturation Long Saturation
pRed Long Composante Rouge
pGreen Long Composante Verte
pBlue Long Composante Bleue

XI-K. FontSizeToHeight

Converti de la taille de police pour la fonction CreateNewFont

Permet de convertir une taille de police (par exemple MonContrôle.FontSize) pour créer avec la fonction DrawNewFont une police de caractère de même taille que celle d'un contrôle.

Renvoie la valeur convertie pour CreateNewFont

Paramètres :

Paramètre Type Explication
pFontSize Long Valeur à convertir

Exemple :
Créer une police identique à celle d'une étiquette Etiqu1

ClImg.DrawNewFont ClImg.FontSizeToHeight(Etiqu1.FontSize), 0, Etiqu1.FontWeight, Etiqu1.FontItalic, Etiqu1.FontUnderline, False, Etiqu1.FontName			
					
 

Valid XHTML 1.1!Valid CSS!

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © Thierry GASPERMENT. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Responsables bénévoles de la rubrique Access : Pierre Fauconnier - Arkham46 -