No.1ベストアンサー
- 回答日時:
こんばんは。
ビットマップのサムネイルでよろしければこんな方法があります。
サイズを800x600固定したピクチャボックス(Picture1)を貼り付け、
AutoRedraw=Trueにします。
strWorkDirに設定したパスにある、サポートされている形式の画像ファイルを
strFileNameという変数に読みこみ、
Picture1.PaintPicture _
LoadPicture(strWorkDir & "\" & strFileName), _
0, 0, Picture1.Width, Picture1.Height
として、ピクチャボックスに描画します。
で、読みこんだイメージをビットマップに変換します。
SavePicture Picture1.Image, _
strWorkDir & "\tn-" & strFileName & ".bmp"
Picture1.VisibleをFalseにしても動作しますので、
プログレスかなにかをつけておいて実行すれば、
ちょっと見栄えがよくなりますでしょうか。
JPeg画像にサムネイル情報を付加されたいのであれば、Exif形式の
フォーマットなどをご理解されなくてはいけないでしょうし、
それをVBでおやりになるにはちょっと大変だと思います。
LeadToolsというコントロールも市販されているようですが、
お金がかかりますし、これではVBでやるという感覚が薄れますよね。
VB5.0Proで確認しましたが、おそらく4.0でも動作すると思います。
#あまりキレイな結果ではありませんでしたが・・・。
ご参考にしていただければ幸いです。
この回答へのお礼
お礼日時:2001/03/19 23:28
ありがとうございました、VBでは出来ないのかな?
と不安でした、待ってて良かった(・_・、)
難しそうですが、なんとなく分ります、一行一行勉強しながらやって見ます。
急に目の前が開けた感じです。ありがとうございました。
締切りをもう少し待ってみます。
No.2
- 回答日時:
おはようございます。
下のコメントの訂正です。
> サイズを800x600固定したピクチャボックス(Picture1)を貼り付け、
お分かりだと思うのですが、80x60です(汗)
スミマセンでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SavePictureで保存できない
-
他のフォームから別のフォーム...
-
アクセスできない保護レベルエ...
-
VB.NETでのイベントの途中終了
-
[Excel2000]auto_closeを止めさ...
-
演奏記号の・・・・
-
VB2010からPROCEDUREを実行でエ...
-
String型の値にスラッシュをつ...
-
【VB6.0】 あるフォームから他...
-
チェックボックスを操作できな...
-
パーソナルXLSBのfuctionを呼び...
-
VB.NET)コンボボックスの連動に...
-
HTML + VBScript で Sleep でき...
-
C#のループでtextboxに値を入れ...
-
フォーカスを取得すると、自動...
-
VBA public変数はどのようなこ...
-
レコードセットにnullの場合
-
VBでローマ字入力とかな入力を...
-
XMLファイルのattribute値がう...
-
タイムアウトする仕組みを作りたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
FlexGridで文字色を変更。
-
Matlab/SimulinkのChirp信号に...
-
SavePictureで保存できない
-
画像処理について。(移動)
-
ボールが壁に当たって跳ね返る...
-
PictureBoxでのアニメーション...
-
VBによる回帰直線のプログラム
-
Matlabでsin波を使って矩形波を...
-
画像処理
-
Picture box の サイズを変更
-
SCALEの使い方教えてください
-
もぐらたたきのプログラミング
-
ピクチャボックスの使用方法
-
VB6でマウスのドラッグで範囲を...
-
ピクチャーボックスの画像を印...
-
マウスポインタの変更
-
違いを教えてください。
-
VB4.0で画像のサムネイル方法
-
VBで問題集を作りたい
-
picture boxの画像をimageに上...
おすすめ情報