画像の縮小をすると粗くなってしまいます

Private Declare Function SetStretchBltMode Lib "gdi32" _

　　　　　 (ByVal hdc As Long, ByVal nStretchMode As Long) As Long
Private Const COLORONCOLOR = 3

　　 SetStretchBltMode Printer.hdc, COLORONCOLOR　　'←これを追加
　　 StretchBlt hoge,hoge・・・　　　　　　　　　　 '←既存のStretchBlt処理

StretchBlt は非常に単純な実装なので、綺麗にしたければ、自前で書かないといけなかったと思います。

# DLLやActiveXなんかも公開されている方がおられると思います。

＞きれいに縮小表示
ネット上にも色々解説があります。
余裕がないので、概要だけ書くと、
縮小後の各点のピクセルは、その点に対応する縮小前のピクセルの領域の平均とします。
# もちろん、ピクセル全体が含まれないときはその比率を考慮します。

例えば、
12345678
の幅を５(ABCDE)にするのであれば
このとき、各A～Fは
A = (1*1.0 + 2*0.4　　　　)/1.4 = 1.285714
B = (2*0.6 + 3*0.8　　　　)/1.4 = 2.571429
C = (3*0.2 + 4*1.0 + 5*0.2)/1.4 = 4.0
D = (6*0.8 + 7*0.6　　　　)/1.4 = 6.428571
E = (7*0.4 + 8*1.0　　　　)/1.4 = 7.714286
∴ 13468の様になります。（整数部が奇数なら四捨五入、偶数なら五捨六入（？）でしたっけ？

API使ったりしないと遅いので、詳しくは、VB関係のページを探してみてください^^;

書籍であれば、「VisualBasic 画像処理プログラミング2D編」（ソフトバンク）という本などに詳しいことが書かれています。高いのですが、、、

最近すっかりVBをご無沙汰しているので、良いページを紹介出来ません^^;
本題とは違うのですが、参考になりそうなページのURLを書いておきます。

参考URL：http://www06.u-page.so-net.ne.jp/qc4/shige-3p/

内部で使われてる拡大縮小機能は、近くにある色と同じ色を使うだけなので、とても見られたものではありません。

画像データを配列として得て、ちゃんとした演算をしなければならないでしょう。

こんばんは♪

プログラミング > Visual Basicについては全くの素人なので的外れなアドバイスかもしれません。
縮小するためのソフト（画像拡縮）を使うのはどうなのでしょうか(^^ゞ

参考URL：http://www.vector.co.jp/soft/win95/art/se131666. …