[AC-2010] Ruban et gdiplus [Résolu]

[gwent]

Bonjour,

J'ai développé une application dont les rubans utilisent la librairie gdiplus.
Je m'étais inspiré de l'exemple d'Arkham46.

Sous Access 2007, pas de problème.
Sous Access 2010, mes images png ne s'affichent plus et j'ai une erreur 53 à l'ouverture "fichier introuvable : olg"

la procédure qui pose problème est Ribbon_getImage.

Avez vous rencontré ce problème?
Que faire?

[Dolphy35]

Salut,

J'ai eu le même soucis. Voici le changement à réaliser dans le module.

Remplace ogl par gdiplus

Déclaration :

Code :

1
2
3
4
5
6
7
8
' API GDI+
Private Declare Function GdipLoadImageFromFile Lib "gdiplus" (ByVal FileName As Long, ByRef image As Long) As Long
Private Declare Function GdiplusStartup Lib "gdiplus" (token As Long, LInput As GdiplusStartupInput, Optional ByVal lOutPut As Long = 0) As Long
Private Declare Function GdiplusShutdown Lib "gdiplus" (ByVal token As Long) As Long
Private Declare Function GdipDisposeImage Lib "gdiplus" (ByVal image As Long) As Long
Private Declare Function GdipCreateHBITMAPFromBitmap Lib "gdiplus" (ByVal bitmap As Long, ByRef hbmReturn As Long, _
                                                                    ByVal Background As Long) As Long
Private Declare Function GdipLoadImageFromStream Lib "gdiplus" (ByVal stream As Any, ByRef image As Long) As Long

et remplace par ce code l'initialisation

Code :

1
2
3
4
5
6
7
8
9
10
11
12
'---------------------------------------------------------------------------------------
' Initialisation de la classe
'---------------------------------------------------------------------------------------
Private Sub Class_Initialize()
    Dim lGdiPSI As GdiplusStartupInput
    ' Charge la librarie gdiplus
    gLib = LoadLibrary(CurrentProject.Path & "\dll\gdiplus.dll")
    If gLib = 0 Then gLib = LoadLibrary("gdiplus.dll")
    ' Initialisation GDI + version 1
    lGdiPSI.GdiplusVersion = 1
    Call GdiplusStartup(gGdipToken, lGdiPSI)
End Sub

sachant que j'héberge la dll dans un dossier dll du dossier de l'application

Pour moi ça fonctionne.

Arkham46

Dolphy

[gwent]

Envoyé par Dolphy35

Salut,

J'ai eu le même soucis. Voici le changement à réaliser dans le module.

Remplace ogl par gdiplus

Déclaration :

Code :

et remplace par ce code l'initialisation

Code :

sachant que j'héberge la dll dans un dossier dll du dossier de l'application

Pour moi ça fonctionne.

Arkham46

Dolphy

super... ça marche nickel...

et ta réactivité... chapeau !!! merci

dire que je cherche depuis plusieurs jours !!!

merci, merci, merci