求ＶＢ生成缩略图程序

Question

如何用VB6.0实现生成已有图片的缩略图的程序 谢谢 请达人指点

Answer 1

用StretchBlt
Public Declare Function StretchBlt Lib "gdi32" Alias "StretchBlt" (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

Answer 2

能详细说吗 还有用StretchBlt函数会失真很多吧

Answer 3

我在98下，效果非常好，但在XP下，不行了,看上去很肮脏。
用 SetStretchBltMode picPicture, STRETCH_HALFTONE 也没用。
看来楼主只好自己用 DIB 做缩放了。^-^