Voici mon code :
Code: Select all
'viewer temporaire
tmpgdViewer4.Clear()
If ePdf Then
tmpgdViewer4.DisplayFromPdfFile(vpath)
Else
tmpgdViewer4.DisplayFromFile(vpath)
End If
'transfert des pages dans le bon viewer
Label_info.Text = "Import des pages en cours ..."
tmpgdViewer4.DisplayFirstFrame()
For page As Integer = 0 To tmpgdViewer4.NumPages - 1
Dim vIntPtr As IntPtr
Label_info.Text = "Import page " + (page + 1).ToString + "/" + tmpgdViewer4.NumPages.ToString + " en cours ..."
tmpgdViewer4.Copy2Clipboard()
Indice = nImageCount + pagesidlengthbefore
vIntPtr = New Bitmap(Clipboard.GetImage()).GetHbitmap
Clipboard.Clear()
imgId = oGdPicture.CreateImageFromHBitmap(vIntPtr)
DeleteObject(vIntPtr)
'tableau contenant les images id des pages en memoire dans gdpicture
ReDim Preserve pagesId(Indice)
pagesId(Indice) = imgId
tmpgdViewer4.DisplayNextFrame()
nImageCount = nImageCount + 1
Next page
tmpgdViewer4.ClosePicture()