OFFICE : Module de gestion des images avec GDI+

• l'unité utilisée par cette classe est le pixel ;
• l'origine (0,0) d'une image GDI+ est en haut à gauche ;
• dans tous les exemples de ce document, je nomme oGdi l'instance de la classe et Image0 le contrôle image ;
• les paramètres optionnels sont notés : [NomduParamètre] = ValeurParDéfaut ;
• si non mentionné, les fonctions retournent False (Faux) en cas d'échec, ou True (Vrai) si succès.

Il est nécessaire de posséder la bibliothèque GDI+ de Microsoft.
Cette bibliothèque est incorporée à Windows à partir de XP.

Si besoin, la dernière version de la bibliothèque est en téléchargement : Lien vers la libraire en téléchargement sur Microsoft.com
Le fichier gdiplus.dll doit alors être placé dans le répertoire de l'application.

Le module de classe suivant doit être importé dans le projet VBA (menu Fichier => Importer un fichier) : Téléchargez le module de classe clGdiplus.

Par défaut, le dessin se fait sur un formulaire Access.

Pour utiliser la classe clGdiplus avec Excel, Word ou PowerPoint, recherchez la constante de compilation AppName :

#Const AppName = "A"

Et remplacez la valeur A par l'initiale de l'application hôte :

• A pour Access ;
• W pour Word ;
• E pour Excel ;
• P pour Powerpoint.

Pour Word, Excel et Powerpoint, le dessin se fait alors sur un UserForm.
La référence à Microsoft Forms doit être activée.
Elle est activée automatiquement à la création d'un UserForm.

Par défaut, les coordonnées sont de type Long (entiers long).

Pour plus de précision (mais des temps de traitements un peu plus longs), il est possible d'utiliser des coordonnées de type Single (virgule flottante) en modifiant la constante de compilation UseSingle :

#Const UseSingle = True

Un objet de type clGdiplus correspond à une image.
Toute méthode ou propriété (transformation, dessin…) de cet objet s'applique à cette image.
C'est ce que j'appelle l'image principale.

Il est possible de créer des sous-images à l'aide des fonctions Img*.
C'est ce que j'appelle les images secondaires.
Ces images sont également des objets de type clGdiplus et sont « attachées » à l'image principale.
Elles peuvent être modifiées indépendamment de l'image principale.
Lors de la suppression d'une image principale, les images secondaires qui lui sont liées sont supprimées.

Une image secondaire étant un objet clGdiplus, elle est également une image principale et peut contenir ses propres images secondaires.

Ouvre un fichier.

Charge le fichier en mémoire.
On peut ensuite accéder aux données Exif ou modifier l'image.

La fonction retourne Vrai si le fichier a été ouvert avec succès.

Paramètre :

Si le fichier chargé est un métafichier (wmf ou emf), il est converti en mémoire au format png, sauf si la valeur de la propriété ConvertMetaFile est False.

Ferme l'image.

L'image peut être un fichier chargé avec OpenFile, un bitmap créé avec CreateBitmap…
Pensez à refermer l'image lorsqu'elle n'est plus utilisée pour libérer de la mémoire.

Lorsque l'objet clGdiplus est libéré, l'image est automatiquement libérée.

Création d'une image vierge.

L'image est créée en mémoire.
Elle est de format Bitmap et 32bpp (donc avec transparence).

Paramètre :

Création d'une image vierge formatée pour un contrôle.

Elle a la taille du contrôle ou du formulaire donné en paramètre.
Le format de l'image (résolution, profondeur de pixel…) est déterminé par le formulaire pour une rapidité de dessin accrue.
L'image est créée en mémoire.

Paramètre :

Création d'une image vierge formatée pour une autre image.

Le format de l'image (résolution, profondeur de pixel…) est déterminé par l'image (objet clGdiplus) donnée en paramètre.
L'image sera dessinée plus rapidement sur une image de même format.
L'image est créée en mémoire.

Paramètre :

Création d'une image vierge.

Le format de l'image (résolution, profondeur de pixel…) est déterminé par le contexte d'affichage GDI donné en paramètre.
L'image sera dessinée plus rapidement sur un contexte d'affichage de même format.
L'image est créée en mémoire.

Paramètre :

Création d'une image vierge.

Le format de l'image (résolution, profondeur de pixel…) est déterminé par la fenêtre donnée en paramètre.
L'image sera dessinée plus rapidement sur une fenêtre de même format.
L'image est créée en mémoire.

Paramètre :

Sauvegarde l'image dans un fichier.

La fonction retourne Vrai si le fichier a pu être sauvegardé.

Paramètre :

Sauvegarde l'image dans un fichier avec transformation.

L'image n'est pas altérée par une recompression si elle est au format JPG et si ses dimensions sont toutes deux multiples de 16.

Paramètre :

Exemple :

If oGdi.LoadFile("C:\MonFichier.jpg") then
    If oGdi.SaveTransformFile("C:\MonFichierAvecRotation.jpg",EncoderValueTransformRotate90) then
        MsgBox "Image tournée et sauvegardée"
    End If
End If

Retourne un tableau de pixels avec les couleurs ARGB

Paramètre :

La fonction retourne un tableau de pixels ARGB.
A = Alpha = Transparence
R = Red = Rouge
G = Green = Vert
B = Blue = Bleu

Les valeurs sont comprises entre 0 et 255.

Exemple :

' Tableau pour recevoir les pixels
Dim lPixels() As Byte
' Compteurs
Dim lCptX As Long, lCptY As Long
' Lecture des pixels dans le tableau
lPixels = oGdi.SavePixels
' Boucle sur les pixels
For lCptX =  LBound(lPixels(), 2) To UBound(lPixels(), 2)
    For lCptY =  LBound(lPixels(), 3) To UBound(lPixels(), 3)
        ' Composante bleue = lPixels(1, lCptX, lCptY)
        ' Composante verte = lPixels(2, lCptX, lCptY)
        ' Composante rouge = lPixels(3, lCptX, lCptY)
        ' Composante alpha = lPixels(4, lCptX, lCptY)
    Next
Next

Modifie l'image à partir un tableau de pixels avec les couleurs ARGB

L'image précédente est conservée et seuls les pixels d'indices demandés sont modifiés.
Pour créer une nouvelle image, fermer d'abord la précédente avec CloseImage.

Paramètre :

Exemple :

' Tableau pour recevoir les pixels
Dim lPixels() As Byte
' Compteurs
Dim lCptX As Long, lCptY As Long
' Lecture des pixels de l'image
lPixels = oGdi.SavePixels
' On boucle sur les pixels
For lCptX = LBound(lPixels(), 2) To UBound(lPixels(), 2)
    For lCptY = LBound(lPixels(), 3) 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
        ' Composante bleue = lPixels(1, lCptX, lCptY)
        ' Composante verte = lPixels(2, lCptX, lCptY)
        ' Composante rouge = lPixels(3, lCptX, lCptY)
        ' Composante alpha = lPixels(4, lCptX, lCptY)
    Next
Next
' On réinjecte les couleurs dans l'image
oGdi.LoadPixels lPixels

Crée l'image à partir d'un bitmap Gdiplus.

Voir SaveBitmap pour un exemple d'utilisation.

Paramètre :

Crée l'image à partir d'un bitmap et d'un mask gdi32

Paramètre :

Sauvegarde l'image dans un bitmap Gdiplus

Paramètre :

La fonction retourne un bitmap Gdiplus.

Exemple :

' On ne clone pas l'image lors de l'appel à SaveBitmap.
' Par compte on clone l'image lors de l'appel à LoadBitmap.
' Ainsi on obtient dans la classe oGdiOut un clone de l'image issue de oGdiIn
' Si on avait cloné deux fois l'image, l'image intermédiaire ne serait jamais libérée
'  (=fuite de mémoire)
' Si on n'avait pas du tout cloné l'image, chaque classe pointerait vers la même image en mémoire 
'           (=risque de libérer l'image dans une classe alors que l'autre voudrait encore l'utiliser)
lReturn = oGdiOut.LoadBitmap(oGdiIn.SaveBitmap(False), True)

Définit l'image à partir d'un tableau de byte

Voir l'application Inclure des images jpeg dans un objet OLE pour un exemple d'utilisation.

Paramètre :

Si le fichier chargé est un métafile (wmf ou emf), il est converti en mémoire au format png, sauf si la valeur de la propriété ConvertMetaFile est False.

Exemple :

' Timages est le nom de la table
' data est le champ pièce-jointe
' id est un champ texte identifiant de l'image
oGdi.LoadArray DLookup("data.filedata", "Timages", "id=""btnGIF"""), True

Sauvegarde l'image dans un tableau de byte

Voir l'application Inclure des images jpeg dans un objet OLE pour un exemple d'utilisation.

Paramètre :

La fonction retourne un tableau de Byte contenant les données brutes de l'image au format demandé.

Création de l'image à partir de l'image contenue dans un contrôle (ou formulaire ou UserForm)

Paramètre :

Renvoie l'image dans un objet IPictureDisp

Cet objet peut être utilisé pour une image du ruban par exemple.

Converti l'image dans le même format qu'une autre image.

Le dessin d'une image sur l'autre sera alors plus rapide.

Paramètre :

Couleur de fond des icônes.

Type Long en lecture / écriture.

S'applique à la fonction de chargement d'image : LoadFile.

Chargement d'un fichier sans verrouillage.

Type Boolean en lecture / écriture.

Au chargement d'une image avec LoadFile, si LoadAndClone est Vrai alors l'image est clonée en mémoire afin de libérer le fichier.

Pour les images de liste d'images (crées avec les fonctions ImgNew*), cette propriété est Vrai par défaut.

Injecte l'image dans un contrôle ou un formulaire.

Paramètre :

oGdi.Repaint Me.Image0, True, True

Injecte l'image dans un contrôle ou formulaire, mais ne la dessine que temporairement.

Cette fonction peut être utilisée pour réduire les scintillements à l'écran.
Il peut y avoir des légers décalages d'un ou deux pixels, qu'on peut essayer de corriger avec la fonction RepaintFastSetCorrection et/ou en retirant les bordures de l'image.

Paramètre :

Dessine directement sur le formulaire.

L'affichage est plus rapide mais temporaire.
Il peut y avoir des légers décalages d'un ou deux pixels, qu'on peut essayer de corriger avec la fonction RepaintFastSetCorrection et/ou en retirant les bordures de l'image.

Paramètre :

Corrections pour la fonction RepaintFast.

*Dest pour correction sur le formulaire.
*Src pour correction sur l'image dessinée.

Paramètre :

Définit l'emplacement à redessiner avec la fonction RepaintFast.

Permet de placer des contrôles sur l’image et de ne pas dessiner par-dessus si on utilise la fonction RepaintFast (ou RepaintNoFormRepaint).
Il est possible de combiner plusieurs contrôles en appelant plusieurs fois la fonction.

Paramètre :

Définit l'emplacement à redessiner avec la fonction RepaintFast.

Permet d'accélérer le dessin en ne dessinant qu'une portion de l'image.
Il est possible de combiner plusieurs rectangles en appelant plusieurs fois la fonction.

Paramètre :

Définit le rectangle entourant une région comme l'emplacement à redessiner avec la fonction RepaintFast.

Permet d'accélérer le dessin en ne dessinant qu'une portion de l'image.
Il est possible de combiner plusieurs rectangles en appelant plusieurs fois la fonction.

Paramètre :

Réinitialise l'emplacement à redessiner avec la fonction RepaintFast.

Après l'appel de cette fonction, l'image entière est à nouveau dessinée.

Transparence pour RepaintFast

Type Boolean en lecture / écriture.
Faux par défaut.

Si RepaintFastTransparency est Faux, RepaintFast remplace les pixels.
Sinon ils sont dessinés par-dessus l'image déjà affichée.

Réinitialise les calculs pour RepaintFast.

Type Boolean en lecture / écriture.
Faux par défaut.

La fonction RepaintFast conserve les calculs de positionnement pour optimiser le temps d'affichage.
Exécuter RepaintFastResetCalc réinitialise ces calculs dans le cas par exemple d'une modification de taille de contrôle ou de positionnement / alignement de l'image dans le contrôle.

Une fois l’image redessinée, RepaintFastResetCalc est remis à Faux automatiquement.

Sur souris appuyée.

Paramètre :

Sur souris relâchée.

Même paramètres que ImgMouseDown.

Sur souris déplacée.

Même paramètres que ImgMouseDown.

Sur double-clic.

Même paramètres que ImgMouseDown.

Réinitialise l'image principale d'une couleur unie.

Paramètre :

Remplit l'image principale d'une couleur.

Paramètre :

Exemple :

lReturn = oGdi.FillColor(vbWhite, , , oGdi.ImageWidth / 2, oGdi.ImageHeight / 2)

Remplace une couleur de l'image par une autre.

Paramètre :

Exemple :

lReturn = oGdi.ReplaceColor(vbWhite, Me.Section(acDetail).BackColor)

Applique une matrice de couleurs à l'image.

Paramètre :

Exemple :

oGdi.ApplyColorMatrix Array(0.222, 0.707, 0.071, 0, 0), _
                                Array(0.222, 0.707, 0.071, 0, 0), _
                                Array(0.222, 0.707, 0.071, 0, 0), _
                                Array(0, 0, 0, 1, 0)

Redimensionne l'image principale.

Si un des paramètres de dimension (pWidth ou pHeight) est omis, il est calculé en fonction de l'autre dimension en conservant le ratio de l'image.

Paramètre :

Exemple :

lReturn = oGdi.Resize(oGdi.ImageWidth / 10, oGdi.ImageHeight / 10)

Redimensionne l'image.

Les paramètres sont des multiplicateurs.

Paramètre :

Exemple :

lReturn = oGdi.ScaleI(0.1, 0.1)

Découpe l'image.

Paramètre :

Exemple :

lReturn = oGdi.Crop(0, 0, oGdi.ImageWidth / 2, oGdi.ImageHeight / 2)

Rotation de l'image principale.

Paramètre :

Exemple :

lReturn = oGdi.Rotate(30)

Rotation / Miroir de l'image.

Paramètre :

Exemple :

lReturn = oGdi.RotateFlip(RotateNoneFlipX)

Dessine un pixel.

Paramètre :

Exemple :

lReturn = oGdi.DrawPixel(oGdi.ImageWidth / 2,oGdi.ImageHeight / 2, vbRed)

Dessine une ligne.

Paramètre :

Exemple :

lReturn = oGdi.DrawLine(0, 0, oGdi.ImageWidth, oGdi.ImageHeight, vbBlue, 4)

Dessine un rectangle.

Paramètre :

Exemple :

' pBackColor = -1 signifie qu'on dessine uniquement la bordure sans le fond
' pPenColor = vbBlue pour dessiner en bleu
lReturn = oGdi.DrawRectangle(Rnd * oGdi.ImageWidth, Rnd * oGdi.ImageHeight, _
                Rnd * oGdi.ImageWidth, Rnd * oGdi.ImageHeight, _
                -1, vbBlue, 4)

Dessine un rectangle avec coins arrondis.

Paramètre :

Dessine une ellipse.

Paramètre :

Exemple :

' Dessin d'une ellipse rouge d'épaisseur 2, centrée au milieu du contrôle, remplie de vert, 
'   et de rayons 1/5è de la taille du contrôle
lReturn = oGdi.DrawEllipse _
        (oGdi.ImageWidth / 2, oGdi.ImageHeight / 2, _
         oGdi.ImageWidth / 5, oGdi.ImageHeight / 5, 1, _
         vbGreen, vbRed, 2)

Dessine un polygone.

Paramètre :

Fermeture des polygones.

Type Boolean en lecture / écriture.

Si Vrai les polygones (DrawPolygon et CreateRegionPolygon) sont fermés (ajout d’un point de fin égal au point de début).

Dessine une ou plusieurs courbes de Bézier.

Paramètre :

Dessine une ou plusieurs courbes cardinales.

Paramètre :

Dessine un chemin SVG.

Attention : toute la norme SVG n'est pas implémentée.

M : point de départ.
L : ligne.
V : ligne verticale.
H : ligne horizontale.
C : courbe de Bézier (1 point de contrôle).
Q : courbe de Bézier quadratique (2 points de contrôle).
A : arc.
z : ferme le chemin.

Utilisez des majuscules pour des coordonnées absolues, et des minuscules pour des coordonnées relatives.

Des virgules ou des espaces doivent séparer chaque information.

Paramètre :

Exemple :

lReturn = oGdi.DrawSVG("M 20  L 100 100 Q 120 120 100 150 70 180 z")

Dessine du texte.

Paramètre :

Exemple :

lReturn = oGdi.DrawText("TEST", 30, "Arial", 0, 0, oGdi.ImageWidth, oGdi.ImageHeight, 0, 0, vbBlue)

Type de rendu des textes.

Type EGdipTextRenderingHint en lecture / écriture.

S’applique à la fonction DrawText.

Création de région texte au lieu de rectangle.

Type Boolean en lecture / écriture.

Si Vrai le paramètre pRegion crée une région composée des lettres du texte au lieu de créer une région rectangulaire.

Dessine une image de la liste d'images secondaires sur l'image principale.

Voir les fonctions Img* pour créer les images secondaires.

Paramètre :

Les coordonnées de l’image dessinée (sur l’image principale) sont retournées dans les propriétés DrawX1, DrawY1, DrawX2 et DrawY2.

Les coordonnées de la portion d’image qui a été réellement dessinée sont retournées dans les propriétés DrawOrigX1, DrawOrigY1, DrawOrigX2 et DrawOrigY2.

Dessine un bitmap Gdiplus sur l'image.

Paramètre :

Dessine un contrôle sur l'image.

Paramètre :

Dessine une texture sur l'image.

Paramètre :

Alignement du crayon

Type Long en lecture / écriture.

Voir énumération EGdipPenAlignMode
S'applique aux fonctions de dessin (rectangle, polygone, ellipse…).

Dessin avec lissage.

Type EGdipSmoothingMode en lecture / écriture.

S'applique aux fonctions de dessin de lignes, polygones et ellipse, ainsi qu'à l'encadrement de régions.

Pointillés personnalisés.

Type Variant en lecture / écriture.

S'applique aux fonctions de dessin de lignes, polygones…, ainsi qu'à l'encadrement de régions.

Lorsque le type de pointillés (paramètre pDash des fonctions de dessin) est GdipDashDASHCUSTOM (5), cette propriété est utilisée pour spécifier le type de pointillés.

Il faut passer en paramètre un tableau contenant les tailles des traits et des espaces.

Par exemple pour dessiner un axe avec 10 pixels dessinés, espace de 1 pixel, 2 pixels dessinés, espace de 1 pixel.

ogdi.DrawDashCustom = Array(10, 1, 2, 1)
ogdi.DrawLine 50, 50, 200, 200, vbRed, 2, GdipDashDASHCUSTOM

Type de début de ligne.

Type EGdipLineCap en lecture / écriture.

Type de fin de ligne.

Type EGdipLineCap en lecture / écriture.

Type de jointure de ligne.

Type EGdipLineJoin en lecture / écriture.

Limite aux jointures de ligne.

Type Single en lecture / écriture.

Taille des flèches de début ou fin de ligne.

Type Single en lecture / écriture.

Remplissage ou non des flèches de début ou fin de ligne.

Type Boolean en lecture / écriture.

Crée une image secondaire vierge.

Paramètre :

Crée une image secondaire vierge.

Son format est déterminé par une autre image.
L'affichage d'une image sur une autre image de même format est plus rapide.

Paramètre :

Crée une image secondaire vierge temporaire.

Cette image n’est pas ajoutée à la liste d'images.
Elle sera supprimée dès que l'objet retourné par la fonction est libéré.

Paramètre :

Recherche d'une image secondaire.

La fonction retourne un objet clGdiplus.

Paramètres :

Teste si l'image secondaire existe.

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

Paramètres :

Collection d’images secondaires.

Cette propriété retourne une collection d'images de type clGdiplus.

Supprime une image secondaire de la liste d'images.

Paramètres :

Supprime plusieurs images secondaires de la liste d'images.

Paramètres :

Clone une image secondaire.

Paramètres :

Dessine l'image courante sur une autre image.

Paramètres :

Cette méthode est équivalente à un appel de DrawImg à partir de l'image cible.

Nom de l'image secondaire.

Cette propriété retourne le nom de l'image courante si c'est une image secondaire.

Parent de l'image secondaire.

Cette propriété retourne un objet de type clGdiplus.

Effectue une rotation.

Cette rotation a pour point pivot le point en haut à gauche.

Paramètres :

Effectue une translation.

Paramètres :

Effectue une mise à l'échelle.

Paramètres :

Annule les transformations.

Sauvegarde les transformations.

Restaurez avec WorldPop.

Paramètres :

Restaure les transformations préalablement sauvegardées avec WorldPush.

Paramètres :

Définit les transformations à partir de deux rectangles.

Paramètres :

Retourne les éléments de la matrice de transformation courante de l’image.

Voir le chapitre sur les matrices.

Applique une matrice de transformation à l’image.

Paramètres :

Voir le chapitre sur les matrices.

Transforme les coordonnées d'un point.

Paramètres :

Transforme les coordonnées d'un vecteur.

Les transformations de translation ne sont pas appliquées.

Paramètres :

Type Booléen en lecture / écriture.

Utiliser ce paramètre pour cumuler les régions créées avec le même nom.

Ajoute une région ligne.

Paramètres :

Ajoute une région elliptique.

Paramètres :

Ajoute une région polygonale.

Paramètres :

Ajoute une région rectangulaire.

Paramètres :

Ajoute une région rectangulaire avec coins arrondis.

Paramètres :

Ajoute une région à partir d'une ou plusieurs courbes de Bézier.

Paramètres :

Ajoute une région à partir d'une ou plusieurs courbes cardinales.

Paramètres :

Ajoute une région à partir d'un chemin SVG.

Paramètres :

Ajoute une région définie par la couleur des points.

Attention : il n'est pas possible d'encadrer cette région avec la fonction RegionFrame car c'est en fait un ensemble de rectangle remplissant la région.

Paramètres :

Renvoie une collection des noms de régions.

Supprime une région.

Paramètres :

Supprime toutes les régions spécifiées.

Paramètres :

Dessine un trait qui encadre la région.

Les paramètres suivants ne fonctionnent qu'avec des chemins : pAlpha, pDash et pInside.

Paramètres :

Remplit une région d'une couleur.

Paramètres :

Hachure une région.

Paramètres :

Mode de remplissage.

Type EGdipFillMode en lecture / écriture.

Identifie la région située sur un point.

Paramètres :

La fonction retourne le nom de la région (la première trouvée) située sur le point précisé.

Exemple :

Private Sub Image0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Dim lRegion As String       ' Région survolée
 ' On convertit les coordonnées vers des coordonnées images en pixels avec CtrlToImgX et CtrlToImgY
 lRegion = oGdi.GetRegionXY(oGdi.CtrlToImgX(X, Me.Image0), oGdi.CtrlToImgY(Y, Me.Image0))
 ' Ou alors on peut utiliser le paramètre pObject
 lRegion = oGdi.GetRegionXY(X, Y, , ,Me.Image0)
End Sub

Identifie la région située sur un point.

Ne fonctionne qu'avec des chemins.

Le point doit être situé sur la ligne formant la région et non pas à l'intérieur.

Paramètres :

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

Exemple :

Private Sub Image0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Dim lRegion As String       ' Région survolée
 ' On convertit les coordonnées vers des coordonnées images en pixels avec CtrlToImgX et CtrlToImgY
 lRegion = oGdi.GetRegionXYLine(oGdi.CtrlToImgX(X, Me.Image0), oGdi.CtrlToImgY(Y, Me.Image0))
 ' Ou alors on peut utiliser le paramètre pObject
 lRegion = oGdi.GetRegionXYLine(X, Y, , , ,Me.Image0)
End Sub

Teste si un point est dans une région.

Paramètres :

La fonction retourne Vrai si le point est dans la région précisée en paramètre.

Teste si un point est sur une région.

Ne fonctionne qu'avec des chemins.

Le point doit être situé sur la ligne formant la région et non pas à l'intérieur.

Paramètres :

La fonction retourne Vrai si le point est sur l'entourage de la région précisée en paramètre.

Coordonnées rectangulaires d'une région.

Paramètres :

Coordonnées du centre d'une région.

Paramètres :

Teste si une région existe.

Paramètres :

La fonction retourne Vrai si la région existe.

Teste si une région est vide.

Paramètres :

La fonction retourne Vrai si la région est vide.

Une région peut être vide par exemple suite à une combinaison avec d'autres régions.

Teste si une région est un chemin (path) Gdi+.

Paramètres :

La fonction retourne Vrai si la région est une chemin Gdi+.

C'est-à-dire que la région est une succession de lignes.

Certaines fonctions ne fonctionnent qu'avec des chemins.

Combine deux régions.

Paramètres :

Redimensionne une région.

Paramètres :

Déplace une région.

Paramètres :

Applique une rotation à une région.

Paramètres :

Transforme une région.

Paramètres :

Teste si deux régions ont une intersection.

La fonction retourne Vrai si les deux régions ont une intersection.

Paramètres :

Clone une région.

Paramètres :

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

Paramètres :

Rétablit l'affichage du formulaire complet.

Paramètres :

Retourne Vrai si la région est en fait un chemin Gdi+.

Un chemin Gdi+ est en ensemble de lignes.

Une région Gdi+ est la surface correspondant à un chemin.

Les fonctions PointInRegionLine et GetRegionXYLine ne sont disponible que pour des chemins.

La fonction RegionFrame fonctionne en mode dégradé si ce n’est pas sur un chemin.

Paramètres :

Recherche le vecteur normal à un point d'une région.

Paramètres :

Recherche le premier point d'intersection entre un segment et une région.

Utilise un algorithme de Bresenham.

Paramètres :

Transformation des régions à la création.

Type Boolean en lecture / écriture.

Vrai par défaut.

S'applique aux fonctions de création de régions.

Si cette propriété est Vrai, alors les transformations définies par les fonctions World* sont appliquées.

A noter : ces transformations sont également appliquées aux fonctions RegionFrame et RegionFill.
Pour éviter une double application de ces transformations, mettez ce paramètre à Faux si nécessaire.

Sauvegarde l'image principale en mémoire

Paramètres :

L'image est sauvegardée en mémoire, prête à être rétablie avec la fonction ImageReset.

Rétablit l'image de la mémoire

Paramètres :

Test si une image sauvegardée existe en mémoire.

Paramètres :

Supprime une image sauvegardée en mémoire avec ImageKeep.

Paramètres :

Supprime toutes les images principales sauvegardées en mémoire.

Paramètres :

Renvoie le bitmap gdiplus d'une image principale sauvegardée en mémoire.

Paramètres :

Renvoie la valeur du tag EXIF.

Paramètres :

Renvoie la valeur du tag dans un Variant.
Renvoie Null si le tag n'existe pas.

Écrit certains > tags Exif.

Paramètres :

Si la valeur passée en paramètre est Null, le tag est supprimé de l'image.

Génère une miniature EXIF intégrée à l'image.

Cette miniature ne sera utile que dans la cas d'une sauvegarde dans un fichier JPEG ou TIFF.

Paramètres :

Importe les données Exif d'un fichier dans l'image en cours.

Paramètres :

Change l'image courante d'un GIF animé.

Paramètres :

Nombre d'images d'un GIF animé.

Délais d'affichage des images d'un GIF animé.

Paramètres : Renvoie un tableau contenant autant de délais que d'images dans le GIF.

Ajoute une texture à partir d'un fichier.

Paramètres :

Ajoute une texture à partir d'une image secondaire.

Paramètres :

Ajoute une texture à partir de l'image intégrée à un contrôle.

Paramètres :

Ajoute une texture à partir d’une couleur.

Paramètres :

Texte si une texture existe.

Paramètres :

Supprime une texture.

Paramètres :

Déplace une texture.

Paramètres :

Redimensionne une texture.

Paramètres :

Applique une rotation à une texture.

Paramètres :

Transforme une texture.

Paramètres :

Annule les transformations d’une texture.

Paramètres :

Largeur une texture.

Renvoie la largeur en pixel.

Paramètres :

Hauteur une texture.

Renvoie la hauteur en pixel.

Paramètres :

Texture de remplissage.

Type String en lecture / écriture.

S'applique aux fonctions de dessin (y compris des textes), ainsi qu'aux fonctions de remplissage (FillColor et RegionFill).

Texture de crayon pour les lignes.

Type String en lecture / écriture.

S'applique aux fonctions de dessin de lignes, ainsi qu'à l'encadrement de régions.

Mode d’affichage mosaïque de la texture.

Type Boolean en lecture / écriture.

Égal à Vrai par défaut, la texture se répète alors sur les deux axes.
Si Faux alors la texture n’est affichée qu’une fois.

Crée une matrice à partir des valeurs de chaque élément.

Paramètres :

Si pElements est omis, une matrice ne créant aucune transformation est créée.

Supprime une matrice

Paramètres :

Applique une translation à une matrice.

Retourne la matrice transformée.

Paramètres :

Effectue une mise à l'échelle d’une matrice.

Retourne la matrice transformée.

Paramètres :

Applique une rotation à une matrice.

Retourne la matrice transformée.

Paramètres :

Fusionne deux matrices.

Retourne la matrice fusionnée.

Paramètres :

Inverse une matrice.

Retourne la matrice inversée.

Paramètres :

Teste si une matrice existe.

Retourne Vrai si la matrice existe.

Paramètres :

Retourne le tableau d’éléments d’une matrice.

Paramètres :

Transforme un point en appliquant une ou plusieurs matrices.

Paramètres :

Transforme un point en appliquant une ou plusieurs matrices.

Idem à MatrixTransformPoint mais avec des paramètres de type Single quel que soit la valeur de la constante UseSingle.

Paramètres :

Transforme un vecteur en appliquant une ou plusieurs matrices.

Les translations ne s’appliquent pas aux vecteurs.

Paramètres :

Transforme un vecteur en appliquant une ou plusieurs matrices.

Idem à MatrixTransformVector mais avec des paramètres de type Single quel que soit la valeur de la constante UseSingle.

Les translations ne s’appliquent pas aux vecteurs.

Paramètres :

XV-N-1. RepaintMatrix▲

XV-N-2. DrawMatrix▲

XV-N-3. MatrixPointsToPixels▲

XV-N-4. MatrixPixelsToPoints▲

XV-N-5. MatrixCmToPixels▲

XV-N-6. MatrixPixelsToCm▲

XV-N-7. MatrixCtrlToImg▲

XV-N-8. MatrixImgToCtrl▲

Ajoute une police de caractères privée à partir d'un fichier.

Cette police de caractères ne sera utilisable que dans l'instance de clGdiplus où elle a été chargée.

Paramètres :

Ajoute une police de caractères privée à partir d'un tableau de byte contenant la police.

Cette police de caractères ne sera utilisable que dans l'instance de clGdiplus où elle a été chargée.

Paramètres :

Supprime toutes les polices de caractères privées.

Pas de paramètre

Énumère les polices de caractères.

Paramètres :

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

On donne des pixels en entrée, on reçoit des points (UserForm) ou Twips (Access) en sortie.

Paramètres :

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

On donne des points (UserForm) ou Twips (Access) en entrée, on reçoit des pixels en sortie.

Paramètres :

Converti les Points (UserForm) ou Twips (Access) en Pixels

Paramètres :

La fonction retourne la valeur convertie en Pixels

Converti les Pixels en Points (UserForm) ou en Twips (Access)

Paramètres :

La fonction retourne la valeur convertie en Points (UserForm) ou en Twips (Access)

Fonction d’attente.

Cette fonction attend un intervalle en millisecondes avant de redonner la main au reste du code.

Paramètres :

Initialise le timer pour la fonction TimeElapsedMs

Renvoi le nombre de millisecondes écoulées depuis la dernière exécution de TimeElapsedMs (ou de TimeStart).

La fonction retourne un Single de grande précision.

Paramètres :

Ajoute un curseur à partir d’un fichier

Paramètres :

Ajoute un curseur standard intégré

Paramètres :

Ajoute un curseur à partir d’une image clGdiplus

Paramètres :

Applique un curseur

Paramètres :

Supprime un curseur

Paramètres :

Renvoie la couleur d'un point

Paramètres :

La fonction retourne la couleur du point dans un entier long.

Exemple :

Private Sub Image0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Dim lColor As Long       ' Couleur sous la souris
 ' On convertit les coordonnées vers des coordonnées images en pixels avec CtrlToImgX et CtrlToImgY
 lColor = oGdi.GetPixel(oGdi.CtrlToImgX(X, Me.Image0), oGdi.CtrlToImgY(Y, Me.Image0))
End Sub

Conversion code couleur Long vers RGB

Paramètres :

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).

Remarque : Utiliser la fonction RepaintNoFormRepaint à la place de la fonction Repaint aide à réduire significativement les scintillements.

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 :

Exemple :

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

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

Remarque : Utiliser la fonction RepaintNoFormRepaint à la place de la fonction Repaint aide à réduire significativement les scintillements.

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 :

Exemple :

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

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 :

' 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)
    oGdi.DragForm Me
End Sub

Conversion taille police en pixel

Convertit une taille de police de caractères en pixel pour la fonction DrawText.

Paramètres :

Conversion taille police en points

Convertit une taille de police de caractères de pixels en points.

Paramètres :

Identifiant d'un UserForm, d'une Frame ou d'une Page

Pour Excel, Word, PowerPoint.

Paramètres :

Identifiant de la sous-fenêtre sur laquelle on dessine (=section).

Pour Access.

Paramètres :

Test si un chemin est celui d'un fichier image valide.

Paramètres :

Retourne Vrai si le chemin est celui d'une image valide reconnue par Gdi+.

Lecture de la position d'un contrôle ou formulaire en pixels.

Paramètres :

Retourne le décalage en pixel de l'image dans le contrôle.
C'est-à-dire les coordonnées en pixel par rapport au contrôle de l'origine (0,0) de l'image.

Retourne le chemin de l'application (= du projet Office), y compris l'antislash final.

Données utilisateurs.

Utilisez cette propriété pour attacher des données personnalisées à un objet clGdiplus.

Image pour événements et dessin.

Type Object en écriture seule.

Défini un contrôle (ou un UserForm) par défaut.

Celui-ci sera utilisé par défaut par les procédures dessin Repaint*, et enverra des événements ImgMouseDblClick, ImgMouseDown, ImgMouseUp, ImgMouseMove au module de classe clGdiplus.

Objet courant.

Type clGdiplus en lecture seule.

Renvoie l’objet courant. Utilisé dans un With…End With par exemple.

Taille de l'image en pixels

Type Long en lecture seule.

C'est la taille de l'image en mémoire.

Résolution de l'image (points par pouce).

Type Single en lecture / écriture.

Format de l'image

Type EGdipImageFormat en lecture seule.

Dépend du format du fichier ouvert avec OpenFile.

Si l'image est créée avec CreateBitmap, le format est gdipFormatMemoryBMP.

Format de l'image en texte

Type string en lecture seule.

Valeurs possibles : Undefined / MemoryBMP / BMP / EMF / WMF / JPEG / PNG / GIF / TIFF / EXIF / ICON.

Dépend du format du fichier ouvert avec OpenFile.

Si l'image est créée avec CreateBitmap le format est MemoryBMP.

Format des pixels de l'image.

Type EGdipPixelFormat en lecture seule.

Pour savoir si l’image est en 4bpp, 8bpp, 32 bpp…

Contrôle de référence pour coordonnées passées en points/twips

Type Control en lecture / écriture.

Si RefControl est défini, les fonctions acceptent des coordonnées passées en Twips (pour Access) ou en Points (Pour UserForm).

Pour annuler et repasser en pixels, affectez Nothing à cette propriété.

Exemple :

' Deux solutions identiques :
'
' 1 - Sans utiliser RefControl
oGdi.DrawPixel oGdi.CtrlToImgX(X, Me.Image0), oGdi.CtrlToImgY(Y, Me.Image0), vbRed
' 
' 2 - En utilisant RefControl
oGdi.RefControl = Me.Image0
oGdi.DrawPixel X, Y, vbRed
oGdi.RefControl = Nothing

Décalage d'une image avec enroulement.

Type Long en lecture / écriture.

S'applique aux fonctions DrawImg et DrawBitmap.

Dessin des images avec ou sans transparence.

Type EGdipTransparencyMode en lecture / écriture.

S’applique au dessin de l’image, pas aux fonctions de dessin de formes et textes.

GdipTransparencySourceOver est la valeur par défaut.

GdipTransparencySourceCopy est plus rapide mais dessine les pixels sans les fusionner avec l'image sur laquelle on dessine.

Support de la transparence pour l’image.

Type Boolean en lecture / écriture.

Cette propriété doit être à Vrai pour que les dessins puissent se faire avec transparence.

Elle s’applique aux fonctions de dessin de formes et textes, ainsi qu’à la fonction ReplaceColor.

Niveau d'antialiasing.

Type Long en lecture / écriture.

Voir énumération EGdipAntialisingLevel.

Positions en bas et à droite du dernier texte écrit.

Type Long ou Single en lecture / écriture.

Taille du texte ajusté.

Type Long ou Single en lecture / écriture.

Si MaxTextSize ou MinTextSize sont différents de 0, le texte va s'ajuster pour tenir dans le rectangle défini dans l'appel à DrawText.

LastTextSize contient alors la dernière taille du texte ajusté.

Région limitant le dessin.

Type String en écriture seule.

La région spécifiée limite le dessin à l'intérieur de celle-ci, ou à l'extérieur si le paramètre pInclude est égal à False.

Rectangle limitant le dessin.

Paramètres :