WebBrowserをフォームの中央に表示するには？

解決

卵 2005-12-14 01:04:21 No: 128856

いつもお世話になります。
以前、ラベルをフォームの中央に表示する方法を教えていただきましたが、
今回はWebBrowserをフォームの中央に表示したいのです。

ラベルと同じ式でできると思ってやってみたら、
TopとLeftの設定場所から移動せず、左側に寄ってしまいました。

Form_Resizeで以下のように書いています↓

With wbsGif
    .Height = Me.ScaleHeight
    .Width = Me.ScaleWidth
    .Move (Me.ScaleWidth - .Width) / 2, (Me.ScaleHeight - Height) / 2
End With

よろしくご指導、お願い致します。

葉月α 2005-12-14 01:38:52 No: 128857

なんとなく何ですけど・・・
Me.ScaleHeightが100
Me.ScaleWidthが200の時
wbsGif.Heightが100で
wbsGif.Widthが200ですよね？

じゃぁ
Me.ScaleWidth - .Widthは0になって

Me.ScaleHeight - Heightも0になるんじゃないでしょうか？

（当然2で割っても0）

卵 2005-12-14 02:01:59 No: 128858

・・・そうですねｗ
算数から間違ってました・・・。

WidthやHeightは「twip」を使って長さを設定できると書いてあったのですが、
1ピクセルにつき何twipなのでしょうか??
1論理インチ1440twip、1論理cm567twipというのはわかったのですが・・・

Dental 2005-12-14 02:41:46 No: 128859

> 1ピクセルにつき何twipなのでしょうか??

OSの画面の設定を見てください。「大きいフォント」になっているなら
120dpi、「小さいフォント」ならば 96dpiと書かれていますね?
(dpi は、dot per inch の意味)

ここから、twip値を求める事ができます。たとえば、120dpi の設定に
なっている場合は、1インチ = 120ドット = 1440Twips という換算に
なるので、1ピクセルあたりでは 1440÷120 すなわち 15.0 という値です。

そしてこの値は、Screen.TwipsPerPixelX, Screen.TwipsPerPixelY にて
得る事ができます。

卵 2005-12-14 19:19:40 No: 128860

葉月α様、Dental様：

回答ありがとうございました。
おかげさまで、真ん中に出るようになりました!!

お世話になりました。
またよろしくお願いします。