Chargement dynamique image sous Crystal report
Signaler
m2rtech
m2rtech
- Messages postés
- 239
- Date d'inscription
- mercredi 9 octobre 2002
- Statut
- Membre
- Dernière intervention
- 20 février 2012
m2rtech
- Messages postés
- 239
- Date d'inscription
- mercredi 9 octobre 2002
- Statut
- Membre
- Dernière intervention
- 20 février 2012
A voir également:
- Image crystal
- For loop in crystal report - Meilleures réponses
- Crystal report image - Meilleures réponses
- Traitement d'image java - Conseils pratiques - Java
- Vectoriser une image photoshop ✓ - Forum - Graphisme/design
- Transforme une "image couleur" en une "image en niveau de gris" - Forum - C
- Insérer une image dans une base de données phpmyadmin ✓ - Forum - PHP
- Redimensionner image php avant upload - Conseils pratiques - PHP
2 réponses
cs_christian225
- Messages postés
- 11
- Date d'inscription
- mercredi 18 février 2009
- Statut
- Membre
- Dernière intervention
- 18 août 2012
slt
moi aussi j'ai le même problème s'il te plait si ta la solution passe la moi merci
kouakouchristian@gmail.com
moi aussi j'ai le même problème s'il te plait si ta la solution passe la moi merci
kouakouchristian@gmail.com
m2rtech
- Messages postés
- 239
- Date d'inscription
- mercredi 9 octobre 2002
- Statut
- Membre
- Dernière intervention
- 20 février 2012
Dim Appl As New Application
Dim WithEvents CrSecPH As Section 'dim them with events so we can access the format event
Dim WithEvents CrSecPF As Section 'dim them with events so we can access the format event
Dim CrSecs As Sections
Public Pic1 As OLEObject 'Dim an object for the ole pictures so we can change the pic
Dim Image_Trouvé As Boolean
'
Private Sub CrSecPH_Format(ByVal pFormattingInfo As Object)
On Error GoTo fin
If Chargement_Entete_page = False Then Exit Sub
If Image_Trouvé = True Then
Image1.Picture = LoadPicture(Chemin & Nom_Logo)
Set Pic1.FormattedPicture = LoadPicture(Chemin & Nom_Logo)
Pic1.Width = Image1.Width
Pic1.Height = Image1.Height
End If
Exit Sub
fin:
MsgBox Err.Description
End Sub
'
Private Sub Form_Load()
On Error GoTo fin
Screen.MousePointer = 0
Set CrSecPH = RpT.Sections("PH") ' set this section object to the page header
For i = 1 To CrSecPH.ReportObjects.Count 'Loop through the report objects and see if they are pictures
If CrSecPH.ReportObjects(i).Kind = crOleObject Then ' if it is a CrOleObject then
Set Pic1 = CrSecPH.ReportObjects(i) 'Set the pic1 object to the Ole Report object
Image_Trouvé = True
End If
Next i
Exit Sub
fin:
msgbox err.description
End Sub
Dim WithEvents CrSecPH As Section 'dim them with events so we can access the format event
Dim WithEvents CrSecPF As Section 'dim them with events so we can access the format event
Dim CrSecs As Sections
Public Pic1 As OLEObject 'Dim an object for the ole pictures so we can change the pic
Dim Image_Trouvé As Boolean
'
Private Sub CrSecPH_Format(ByVal pFormattingInfo As Object)
On Error GoTo fin
If Chargement_Entete_page = False Then Exit Sub
If Image_Trouvé = True Then
Image1.Picture = LoadPicture(Chemin & Nom_Logo)
Set Pic1.FormattedPicture = LoadPicture(Chemin & Nom_Logo)
Pic1.Width = Image1.Width
Pic1.Height = Image1.Height
End If
Exit Sub
fin:
MsgBox Err.Description
End Sub
'
Private Sub Form_Load()
On Error GoTo fin
Screen.MousePointer = 0
Set CrSecPH = RpT.Sections("PH") ' set this section object to the page header
For i = 1 To CrSecPH.ReportObjects.Count 'Loop through the report objects and see if they are pictures
If CrSecPH.ReportObjects(i).Kind = crOleObject Then ' if it is a CrOleObject then
Set Pic1 = CrSecPH.ReportObjects(i) 'Set the pic1 object to the Ole Report object
Image_Trouvé = True
End If
Next i
Exit Sub
fin:
msgbox err.description
End Sub