Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Предпросмотр картинки

Автор: DenageS 31.12.2006, 06:39

Читать все картинку, а потом ее уменьшать нерационально. Может быть как то узнать какая часть изображения будет видна при уменьшении, а затем загружать только эти сегменты?

Автор: boevik 31.12.2006, 08:49

Цитата(DenageS @ 31.12.2006, 06:39

)

Может быть как то узнать какая часть изображения будет видна при уменьшении, а затем загружать только эти сегменты?

Так при уменьшении видна вся картинка только в уменьшеном виде.
Проще, загрузить картинку в Image со свойствм Stretch=True, и она сама уменьшится по размеру image.

Автор: BorisVorontsov 31.12.2006, 10:39

Цитата(DenageS @ 31.12.2006, 06:39

)

Код


Public Sub Resample_Simple(bDibD() As Byte, ByVal dstWidth&, ByVal dstHeight&, bDibS() As Byte, ByVal srcWidth&, ByVal srcHeight&, ByVal ByProgressBar As Boolean)
  Dim X&, Y&, kX#, kY#
  kX = (srcWidth - 1) / (dstWidth - 1)
  kY = (srcHeight - 1) / (dstHeight - 1)
  For Y = dstHeight - 1 To 0 Step -1
    For X = 0 To dstWidth - 1
      bDibD(0, X, Y) = bDibS(0, X * kX, Y * kY)
      bDibD(1, X, Y) = bDibS(1, X * kX, Y * kY)
      bDibD(2, X, Y) = bDibS(2, X * kX, Y * kY)
    Next X
  Next Y
End Sub