Un problème d'affichage est apparu avec une version de juillet (je ne sais dire laquelle): mes images jpg sont tête en bas et "flippées".
Ce ne sont pas tous les jpg mais des images du type de celle jointe à un email séparé (document non communicable à détruire après examen svp).
J'use d'un artifice (oGdViewer.FlipX180) voir le code joint.
- Code: Select all
Private Sub Form_Current()
Dim oFso As New FileSystemObject, F As File
Dim sCheminTest As String
On Error GoTo Err_Form_Current
If Len(Me.txtChemin & "") = 0 Then GoTo fin
sCheminCompresse = Replace(Me.txtChemin.Value, "R\", "C\")
sCheminCompresse = Replace(sCheminCompresse, ".tif", ".jpg")
''sCheminCompresse = Me.txtChemin.Value
'---
'Test d'existence des fichiers compressés (Mairie ou Greffe)-Visu-
If InStr(1, sCheminCompresse, "\GC\") > 0 Then
nGR = IIf(oFso.FileExists(sCheminCompresse), 1, 0)
nMR = IIf(oFso.FileExists(Replace(sCheminCompresse, "\GC\", "\MC\")), 1, 0)
End If
If InStr(1, sCheminCompresse, "\MC\") > 0 Then
nMR = IIf(oFso.FileExists(sCheminCompresse), 1, 0)
nGR = IIf(oFso.FileExists(Replace(sCheminCompresse, "\MC\", "\GC\")), 1, 0)
End If
'MsgBox "sCheminCompresse : " & sCheminCompresse & vbCrLf & "nMrC : " & nMR & " ngrC : " & nGR
'----
Me.optM.Visible = IIf(nMR = 1, True, False)
Me.optG.Visible = IIf(nGR = 1, True, False)
If Len(sCheminCompresse) > 0 Then
oGdViewer.CloseImage
sCheminTest = fctCheminGisement(opgGisement)
oGdViewer.DisplayFromFile (sCheminTest) '(sCheminCompresse)
'oGdViewer.DisplayFromFile (fctCheminGisement(opgGisement)) '(sCheminCompresse)
oGdViewer.SetZoomwidthControl
Imaging1.SetNativeImage (oGdViewer.GetNativeImage)
'provisoire vvv ------------
If Right(sCheminTest, 3) = "jpg" Then
oGdViewer.FlipX180
End If
'---------------------------
oGdViewer.Redraw
Else
oGdViewer.CloseImage
End If
Pb tjrs présent sur version du 3 août, pas possibilité tester celle du 9 dans l'immédiat.
Pb valable sur plus de 50 000 images jpg.
Cordialement
Jissé
