【VB2005】コントロールのサイズ自動取得

質問

現在、画面の大きさにより、ラベル、テキストボックス等の
コントロールを動的に配置してまして、
画面サイズを適当に変えると、
コントロールの大きさが自動で変更されるのですが、
ボタンを押して、新たにコントロールを配置したときに、
画面が大きい画面なのに、自分で決めた値をそのままコントロールにプロパティを代入して作るために、
画面にあわないコントロールサイズになります。

倍率が判らないために、うまく今の画面にマッチしたコントロールの
プロパティ（大きさ、フォント）が設定できません。

どういう方法で自動取得のコントロールを追加できるか、
お知恵を貸してください。

回答No.1

redfox63 · ベストアンサー

新たに追加するコントロールは まったく別種の物なのでしょうか
類似のコントロールがあるなら その類似コントロールのSizeやLocationが参考になると思います

まったく新規に追加するのであれば 設計時のFormの大きさを基準に考えればいいのではないかと思います

dim szOrg, szNow, szTarg as Size
' 追加したいコントロールの設計時大きさ
szOrg = new Size( 128, 32 )
szNow = Me.Size

' 設計時のフォームの大きさが 800,600なら
szTarg = new Size( szOrg.Width * szNow.Width / 800, _
szOrg.Height * szNow.Height / 600 )
といった具合で計算してやればいいように思います

お礼

環境の補足を忘れていましたが、
グレープシティのサイズを自動で変更させるツールがあり
その機能を使うと、サイズが自動で変わる。
だけど、それをされると、動的に作ったコントロールは
その比率と違うから意図した大きさじゃなく、
やっぱり予め、コントロールを貼り付けて、
Enabledで、表示する、しないを設定する方向で
妥協しました。

上記のコードで、大きさを変更したりできましたので、
今後、コードを書く上で参考にしたいと思います。
ありがとうございました。