Discussion :

[melancolie]

J'utilise les Data Report de VB6

Je dois réaliser une éditions d'un catalogue qui comprend des 10 images (donc avec le contrôle RptImage). Or je n'ai pas trouvé de propriétés DataField.je veux afficher chacune des images sur chaque page de mon état (qui doit logiquement compter 10 pages).

[melancolie]

la solution pour contourner ce pb est le suivant.
soit l'état "etatbulletin" à éditer.placer le contrôle rptimage1 dans dans l'entête de groupe renommé en "tg". et insérer le code suivant en mode création:
soit dataenvironnement "DE" lié à l'état.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
set me.section.("tg").controls("rptimage1").picture=loadpicture(de!cheminphoto)
'cheminphoto est un champ qui stocke le chemin de la photo.

le code se présente comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
dim newetat as etatbulletin 'déclaration dans "option explicit"
 
do until DE.eof
    set newetat =new etatbulletin
    newetat.show
    DE.movenext
loop

l'inconvénient, c'est que si vous avez 1000 bulletins, ils seront chargés un à un. mais il est mieux que rien