Изменение расширения???

[artyuha]

Вот мне интересно как поменять расширение и размер изображения в Пиктуре Боксе (наиболее просто). Как-то создавал код для по пиксельного уменьшения расширения, но он на «бумажном носителе» - лень вводить и тестировать .

[GM]

Юзай StretchBlt

Код: Выделить всё

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long


[SeT]

artyuha
А тебе из какого в какое расширение перевести нужно?

[A.A.Z.]

Аналог StretchBlt -

Код: Выделить всё

Private Sub Form_Click()
Me.PaintPicture Picture1.Picture, 0, 0, Me.Width, Me.Height, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
End Sub

[|kerish|]

Для извращенцев: GetPixel и SetPixel.
Кстати на нормальной машине можно в реалтайме хорошие эффекты делать.

[dimix]

Блин, а я то всю жизнь думал, что это называется "разрешение"... Теперь хоть знать буду...

[kirrun]

не.. разрешение - оно у картинки, а расширение - на конце файла...

[Zer]

Расширение... хм.... Хватай и переименовывай...

[dimix]

не.. разрешение - оно у картинки, а расширение - на конце файла...

Чо, реально?!?! Так GetPixel меняет буквы на конце файлов?