[CR 10] Image dynamique avec VB6 [Résolu]

[sun19]

Bonjour,
Je souhaite mettre à jour sous VB6 une image ( le chemin de l'image) d'un de mes reports avant de l'afficher. En fait je veux rendre l'image dynamique.
Comment faire?
J'ai regardé les autres posts concernant ce pb mais je n'ai pas trouvé mon bonheur et je ne souhaite pas passer à CRXI.

Merci d'avance de vos réponses

[sun19]

Bonjour,
Je remonte le post car je suis revenu à ce pb.
Sous VB6, je construit mon report à partir d'un module (mod1), pas de pb pour charger les données dynamiquement ainsi que des paramètres nommés.
Mon souci vient de 2 images que je veux changer dynamiquement. Je peux remonter dynamiquement le chemin de ces 2 images.
Mes recherches me disent de placer un objet OLE, dans une section;de Traper l'événement Format de cette section du rapport,et dans l'événement Format, de modifier l'objet Picture avec l'image qui se trouve sur votre disque.
Dans mon module j'ai mis

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim CRReport AS CRAXDRT.Report
Dim sSection AS CRAXDRT.Section, oObject AS Object  Dim oOLEObj(0 TO 1) AS CRAXDRT.OLEObject
  Dim numobj AS Integer
  numobj = 1
    FOR Each sSection IN CRReport.Sections
        FOR Each oObject IN sSection.ReportObjects
            SELECT Case oObject.Kind
            Case 6 ' case crOLEObject
                MsgBox oObject.Name
                Set oOLEObj(numobj) = oObject
                oOLEObj(numobj).FormattedPicture = LoadPicture(Logo & numobj)
                numobj = numobj + 1
              End Select
        Next oObject
    Next sSection

car je n'arrive pas à trapper l'evenement format de ma section. J'ai donc une erreur sur FormattedPicture.
Comment faire pour trapper l'evenement format en restant dans mon module?

merci

[sun19]

C'est bon j'ai résolu mon pb.
En fin de compte j'ai migré mon code d'ouverture et d'impression de mes reports (qui était dans un module) dans le formulaire à partir duquel les impressions sont lancées ainsi j'ai pu ajouté l'evenement format à la section voulue.

[SoaB]

Salut,

L'accès aux sections via le Code n'est disponible que sur VB6 ?

Car sur .Net en C#, je ne trouve pas comment faire pour accéder aux sections sur une instance d'un report.

[pobrouwers]

Bonsoir sun19

C'est bon j'ai résolu mon pb.
En fin de compte j'ai migré mon code d'ouverture et d'impression de mes reports (qui était dans un module) dans le formulaire à partir duquel les impressions sont lancées ainsi j'ai pu ajouté l'evenement format à la section voulue.

J'ai pas tout compris
Peux-tu mettre le code qui fonctionne stp, merci