イメージ、WebBrowserのサイズを表示画像サイズにしたい

解決

ちょっと 2006-03-06 21:05:14 No: 94498

イメージ、WebBrowserのサイズを表示画像サイズにしたいのですが？
bmp,jpg,gifなどのサイズ(Width,Height)にフォームのイメージ、WebBrowser
サイズにしたいのです。要は元々のサイズで表示したいのです。

Dental 2006-03-06 21:43:49 No: 94499

環境ぐらいは書きましょうよ。
VB6 と VB.NET2002/2003 と VB2005 で、答えがかわってきますし。

> イメージ、WebBrowserのサイズを表示画像サイズにしたいのですが？
VB6 Imageコントロールや、VB.NET PictureBoxコントロールなら、
画像サイズに合わせて、コントロールのサイズの自動的に変更する
機能があります。

WebBrowser の場合は、コントロールのサイズの自動的に変更する機能は
無いので、表示対象の画像のサイズを事前に取得して、そのサイズに
合わせてコントロールの幅と高さを変更するようなコードを書きましょう。

ちょっと 2006-03-06 23:14:45 No: 94500

表示対象の画像のサイズ合わせてコントロールの幅と高さを変更するようなコードを書きましょう。
そうなんです。画像サイズを取得したいのです。
恥ずかしいのですが、Access2003なんです。ＶｂのＱ／Ａ掲示板は
知ってるのですが・・

魔界の仮面弁士 2006-03-07 02:26:14 No: 94501

> Access2003なんです。
だったらなおの事、開発環境を明らかにしておかないと…。(^^;
次回からは明記してくださいね。

で、細かい事を端折って書けば、簡易的には
  Dim Width As Integer
  Dim Height As Integer
  With LoadPicture("C:\TEST.JPG")
    Width = .Width * 567 / 15000
    Height = .Height * 567 / 15000
  End With
のような感じで、縦横のドット数を算出できます。

しかし今回は、Access の Imageコントロールの Width / Height に
使うみたいなので、換算するのはドット数ではなく、
  Dim Width As Single
  Dim Height As Single
  With LoadPicture("C:\TEST.JPG")
    Width = .Width * 567 / 1000
    Height = .Height * 567 / 1000
  End With
で求められるような、twip を基準とした単位系になりますね。

ちょっと 2006-03-08 23:51:56 No: 94502

ありがとうござました。