A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
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処理
この回答への補足
SetStretchBltModeで「COLORONCOLOR」に設定してみましたが
他の値(1,2,4)に設定したときとそんなに変わりませんでした。
やっぱり自前で作成するしかないんでしょうか。
No.3
- 回答日時:
StretchBlt は非常に単純な実装なので、綺麗にしたければ、自前で書かないといけなかったと思います。
# DLLやActiveXなんかも公開されている方がおられると思います。
>きれいに縮小表示
ネット上にも色々解説があります。
余裕がないので、概要だけ書くと、
縮小後の各点のピクセルは、その点に対応する縮小前のピクセルの領域の平均とします。
# もちろん、ピクセル全体が含まれないときはその比率を考慮します。
例えば、
12345678
の幅を5(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/
画像関係の知識不足なので、レスの内容も難しーって感じなのですが・・・。
高い本は買えないので(^^;)もう少しネットで調べてみようと思います。
余裕がないとか言いながらすごくいっぱい書いていただきましてありがとうございました。
No.1
- 回答日時:
こんばんは♪
プログラミング > Visual Basicについては全くの素人なので的外れなアドバイスかもしれません。
縮小するためのソフト(画像拡縮)を使うのはどうなのでしょうか(^^ゞ
参考URL:http://www.vector.co.jp/soft/win95/art/se131666. …
この回答への補足
URL見てみましたが私がしたいのはプログラム内での縮小なのでちょっと違うかったかも。
でも、素早いレスありがとうございました。
初投稿だったのでうれしかったです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Web画面の文字をVB6で取得したい
-
【ExcelVBA】インデックスが有...
-
VBA 別ブックから条件に合うも...
-
Excel VBA 文字列のセルを反映...
-
VB.net(VB)で、フォームにExcel...
-
配列のペースト出力結果の書式...
-
エクセルのマクロについて教え...
-
[VB.net] ボタン(Flat)のEnable...
-
vbaにてseleniumを使用したedge...
-
メールの件名をデコードしたい
-
VBA 別ブックからコピペしたい...
-
VBA実行後に元のセルに戻りたい
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
Excel-VBAのmsgBox()の不思議
-
郵便番号検索APIにてget Elemen...
-
VBA 入力箇所指定方法
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ピクチャーボックスの大きさに...
-
複数の画像を1枚にしたファイ...
-
一行は何ピクセル?
-
jQuery BoxerというLightBoxに...
-
lightboxを使用したのですが画...
-
ページサイズの目安は?
-
画像サイズが見る人の環境によ...
-
paintに貼り付けてある画像の大...
-
Web上での標準的な画像サイズ(...
-
GIF画像のサイズを取得するには
-
LightBoxなどで画像サイズが指...
-
VB6でピクチャーのサイズの出し方
-
同盟用のバナーサイズ。
-
pop upウィンドウを画像サイズ...
-
Powerpointに貼った画像のサイ...
-
画像の縮小をすると粗くなって...
-
jpegの圧縮率の取得
-
スマホ対応ウェブサイトの横幅...
-
ExcelVBAで挿入画像の縦横サイ...
-
VB.NETでの画像処理について
おすすめ情報