OFFICE : Classe de gestion des images avec Gdi32

- L'unité utilisée par cette classe est le pixel.

- La classe est développée sur Access 2003 ou Access2007 au format Access 2000; j'essaye autant que je peux d'assurer la meilleure compatibilité avec les autres versions.

- Dans tous mes exemples 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 renvoient False (Faux) en cas d'échec (ou Vrai si succès).

La librairie gdi32 est intégrée à toute les versions de Windows.
Il n'y a donc pas de pré-requis particuliers.

Par défaut, le dessin se fait dans un contrôle image d'un formulaire Access.

Pour utiliser la classe ClGdi32 dans un UserForm, recherchez la constante de compilation Access et remplacez :

    #Const Access = True

par

    #Const Access = False

Le dessin se fait alors dans un contrôle image sur un UserForm.
N'importe quelle application Office gérant les UserForms peut alors être utilisée (Excel, Word, Powerpoint, ...)

Dans ce cas, la librairie Microsoft Forms X.X Objet Library est nécessaire.
Cette librairie est référencée automatiquement à la création d'un UserForm.
Sinon il faut la référencer dans Outils => Référence.

Ouvre un fichier.

Charge le fichier en mémoire, il devient l'image principale.
On peut ensuite modifier l'image, dessiner dessus, ...

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

Paramètres :

Ferme l'image principale.

L'image principale peut être un fichier chargé avec OpenFile, un bitmap créé avec CreateBitmap, ...
Pensez à refermer l'image dès que possible pour libérer de la mémoire.

Une seule image principale est active à la fois : la fonction CloseFile n'a donc pas besoin de paramètre.

Création d'une image vierge.
L'image est créée en mémoire, elle devient l'image principale.

Paramètres :

Création d'une image vierge.
L'image a la taille du contrôle donné en paramètre.
L'image est créée en mémoire, elle devient l'image principale active.

Paramètres :

Sauvegarde l'image principale dans un fichier.

La fonction renvoie Vrai si le fichier a pû être sauvegardé.

Paramètres :

Renvoie un tableau de pixels avec les couleurs ARGB

Paramètres :

La fonction renvoie un tableau de pixels ARGB.
A = Alpha = Transparence : Non utilisé par gdi32
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.GetPixels
' 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)
    Next
Next

Crée l'image principale à partir un tableau de pixels avec les couleurs ARGB
L'image précédente est écrasée.

Paramètres :

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.GetPixels
' 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.SetPixels lPixels

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

Le bitmap source défini par pBitmap est copié, il faut donc ensuite le supprimer si nécessaire.
Voir GetBitmap pour un exemple d'utilisation.

Paramètres :

Sauvegarde l'image principale dans un bitmap gdi32

La fonction renvoie un bitmap Gdi32 qui est une copie de l'image principale.

Exemple :

' Le paramètre pDelete de SetBitmap doit être à Vrai pour supprimer le bitmap une fois transféré
' Sinon il y aurait une fuite de mémoire
' C'est le paramètre par défaut
lReturn = oGdiOut.SetBitmap(oGdiIn.GetBitmap())

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

Paramètres :

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.SetImageArray DLookup("data.filedata", "Timages", "id=""btnGIF"""), True

Sauvegarde l'image principale dans un tableau de byte

Paramètres :

La fonction retourne un tableau de Byte contenant les données de l'image dans un format équivalent à la propriété PictureData d'un contrôle Access.

Création de l'image principale à partir de l'image contenue dans un contrôle

Paramètres :

Renvoie l'image dans un objet IPictureDisp

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

Remplace une couleur de l'image par une autre.

Paramètres :

Exemple :

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

Rempli l'image principale d'une couleur.

Paramètres :

Exemple :

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

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ètres :

Exemple :

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

Découpe l'image principale.

Paramètres :

Exemple :

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

Rotation de l'image principale.

Paramètres :

Exemple :

lReturn = oGdi.Rotate(30)

Dessine un pixel.

Paramètres :

Exemple :

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

Dessine une ligne.

Paramètres :

Exemple :

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

Dessine un rectangle.

Paramètres :

Exemple :

' pBackColor = -1 siginifie 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ètres :

Dessine une ellipse.

Paramètres :

Exemple :

' 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 = oGdi.DrawEllipse(oGdi.ImageWidth / 2, oGdi.ImageHeight / 2, oGdi.ImageWidth / 5, oGdi.ImageHeight / 5, 1, vbGreen, vbRed, 2)

Dessine un polygone.

Paramètres :

Dessine une ou plusieurs courbes de bézier.

Paramètres :

Dessine un chemin SVG.

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 : non gérés à ce jour.
z : ferme le chemin.

Paramètres :

Exemple :

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

Dessine du texte.

Paramètres :

Exemple :

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

Affiche une image de la liste d'images secondaires.

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

Paramètres :

Crée une image secondaire vierge.

Paramètres :

Ajoute une image secondaire à partir d'un fichier.

Paramètres :

Ajoute une image secondaire à partir d'un bitmap gdi.
Le bitmap source est copié.

Paramètres :

Exemple :

' Voir plus loin pour l'explication de ImageListGetBitmap
' Il faut supprimer le bitmap en mettant le paramètre pDelete de ImageListAddBitmap à Vrai (par défaut)
' Sinon il y a une fuite de mémoire, le bitmap temporaire n'étant jamais supprimé
lReturn = oGdiOut.ImageListAddBitmap("MonImage", oGdiIn.ImageListGetBitmap("MonImage"), True)

Ajoute une image secondaire à partir d'une portion de l'image principale.

Paramètres :

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

Paramètres :

Ajoute une image secondaire à partir d'un tableau de byte.

Paramètres :

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.ImageListAddFromArray "IdImage", DLookup("data.filedata", "Timages", "id=""btnGIF"""), True

Ajoute une image secondaire à partir à partir d'un bitmap et d'un masque gdi32.

Le masque est un bitmap monochrome noir et blanc définissant la transparence de l'image.

Paramètres :

Renvoie le bitmap gdi32 d'une image secondaire.

Voir ImageListAddBitmap pour un exemple d'utilisation.

Paramètres :

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

Paramètres :

Supprime une image secondaire de la liste d'images.

Paramètres :

Supprime toutes les images secondaires de la liste d'images.

Clone une image secondaire de la liste d'images.

Paramètres :

Largeur d'une image secondaire.

Paramètres :

Hauteur d'une image secondaire.

Paramètres :

Renvoie l'image secondaire dans un objet IPictureDisp

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

Les fonctions de dessin / transformation existent également pour les images secondaires.

Ces fonctions ont un préfixe ImageList et acceptent les même paramètres que les fonctions originales.

Le premier paramètre supplémentaire pImage est l'identifiant de l'image de la liste.

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 WolrdPop.
Paramètres :

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

Paramètres :

Transforme les coordonnées d'un point.

Paramètres :

Injecte l'image dans un contrôle.

Paramètres :

                    oGdi.RepaintControl Me.Image0,True,True

Injecte l'image dans un contrôle, mais ne la dessine que temporairement.
Cette fonction peut être utilisée pour réduire les scintillements (ou "flash") à 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 FastRepaintSetCorrection et/ou en retirant les bordures de l'image.

Paramètres :

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 FastRepaintSetCorrection et/ou en retirant les bordures de l'image.

Paramètres :

Corrections pour la fonction FastRepaint.

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

Paramètres :

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

Permet de placer des contrôles sur l'images et de ne pas dessiner par dessus si on utilise la fonction FastRepaint.
Il est possible de combiner plusieurs contrôles en appelant plusieurs fois la fonction.

Paramètres :

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

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ètres :

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

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ètres :

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

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

Ajoute une région elliptique.

Paramètres :

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

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'un chemin SVG.

Paramètres :

Supprime une région.

Paramètres :

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

Dessine un trait qui encadre la région.

Paramètres :

Remplit une region d'une couleur.

Paramètres :

Hachure une région.

Paramètres :

Identifie la region située sur un point.

Paramètres :

La fonction renvoie 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       ' Region 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 pControl
	lRegion = oGdi.GetRegionXY(X, Y, , ,Me.Image0)
End Sub

Teste si un point est dans une region.

Paramètres :

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

Coordonnées rectangulaires d'une région.

Paramètres :

Teste si une région existe.

Paramètres :

La fonction renvoie Vrai si la région existe.

Combine deux régions.

Paramètres :

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

Paramètres :

Redimensionne une région.

Paramètres :

Déplace une région.

Paramètres :

Applique une rotation à une région.

Paramètres :

Trasforme une région.

Paramètres :

Teste si deux régions ont une intersection.

La fonction renvoie 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 :

Sauvegarde l'image principale en mémoire

Paramètres :

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

Rétablit l'image principale de la mémoire

Paramètres :

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

Paramètres :

Supprime une image principale sauvegardée en mémoire.

Paramètres :

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

Paramètres :

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

Paramètres :

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 integrée a un contrôle.

Paramètres :

Supprime une texture.

Paramètres :

Déplace une texture.

Paramètres :

Largeur une texture.

Renvoie la largeur en pixel.
Paramètres :

Hauteur une texture.

Renvoie la hauteur en pixel.
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 (Excel) ou Twips (Access) en sortie.

Paramètres :

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

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

Paramètres :

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

Paramètres :

La fonction retourne la valeur convertie en Pixels

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

Paramètres :

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

Renvoie la couleur d'un point

Paramètres :

la fonction renvoie la couleur du point dans un Long.

Exemple :

Private Sub Image0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)<br/>
	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 RepaintControlNoFormRepaint à la place de la fonction RepaintControl 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 RepaintControlNoFormRepaint à la place de la fonction RepaintControl 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

Pour Excel.

Paramètres :

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

Pour Access.

Paramètres :

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

Paramètres :

Renvoit le décalage en pixel de l'image dans le contrôle.

Taille de l'image en pixels

Type Long en Lecture seule.

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

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

Type Control en Lecture/Ecriture.

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

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

Alignement du crayon

Type Long en Lecture/Ecriture.

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

Décalage d'une image avec enroulement.

Type Long en Lecture/Ecriture.

S'applique aux fonctions DrawImage et DrawBitmap.

Attention : on ne peut pas utiliser WrapX et WrapY en même temps.

Début et fin des traits.

Type Long en Lecture/Ecriture.

Voir énumération EGdi32LineCap
S'applique aux fonctions de dessin.

Texture de remplissage.

Type String en Lecture/Ecriture.

S'applique aux fonctions de dessin (y compris des textes), ainsi qu'au remplissage de région (FillRegion).

Couleur de fond des icones.

Type Long en Lecture/Ecriture.

S'applique aux fonctions de chargement d'image : OpenFile et ImageListAdd.

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

Type Long en Lecture/Ecriture.

LastTextRight n'est correct que si le texte est écrit avec un alignement à gauche.

Taille du texte ajusté.

Type Long en Lecture/Ecriture.

Si MinTextSize ou MaxTextSize 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é.

Region limitant le dessin.

Type String en Lecture/Ecriture.

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.

Dessin rapide identique à celui d'Access.

Type Booléen en Lecture/Ecriture.

Lors d'un affichage en mode Zoom ou Etendu, il peut y a avoir une différence de rendu entre FastRepaint (ou RepaintControlNoFastRepaint) et RepaintControl.
Mettre ce paramètre à Vrai (=True) pour dessiner de manière identique.