1) Народ, у винды ведь есть какая то DLL для создания эскизов картинок ?
2) А может у кого нить завалялась своя личная DLL для ужатия рисунка и его конвертации в GIF/JPG ?
dim prvImage as Image
Private Function tcb() As Boolean
Return False
End Function
Private Sub imgload(FileName)
Dim tmpImg As Image
tmpImg = Image.FromFile(FileName)
Dim myCB As New Image.GetThumbnailImageAbort(AddressOf tcb)
prvImage = tmpImg.GetThumbnailImage(100, 100, myCB, IntPtr.Zero)
End Sub
sub Save(byval img as image, ByVal FileName as String)
Img.Save(FileName, Imaging.ImageFormat.Jpeg)
end sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4