[silverlight]

هذا النوع من الصور غالبا بيكون من النوع ـjpeg و يكون فيها أكثر من Frame مثل الصورة المتحركة ..و بمعني أدق أكثر Jpeg من النوع هذا تكون بمثابة صورة من النوع Tiff أو multi_Page image

و لا ستخلاص الصور الموجودة في هذا النوع من الصور

اعتقد هذه الدالة سوف تفيدك ...و كل ما عليك هو أن تحدد مسار الصورة و الدالة ستقوم ب الباقي و تحفظ الصور ف نفس المسار و بنفس الاسم + رقم الصورة

كود :

Public Function TiffToJpeg(fileName As String) As String()
        Using imageFile As Image = Image.FromFile(fileName)
            Dim frameDimensions As New FrameDimension(imageFile.FrameDimensionsList(0))

            ' Gets the number of pages from the image (if multi-page image)
            Dim frameNum As Integer = imageFile.GetFrameCount(frameDimensions)
            Dim jpegPaths As String() = New String(frameNum) {}

            Dim frame As Integer = 0
            While frame < frameNum
                ' Selects one frame at a time and save as jpeg.
                imageFile.SelectActiveFrame(frameDimensions, frame)
                Using bmp As New Bitmap(imageFile)
                    jpegPaths(frame) = String.Format("{0}\{1}{2}.jpeg",
                                       Path.GetDirectoryName(fileName),
                                       Path.GetFileNameWithoutExtension(fileName), frame)
                    bmp.Save(jpegPaths(frame), ImageFormat.Jpeg)
                End Using
                frame -= 1
            End While

            Return jpegPaths
        End Using