質問: お世話になります。 環境:NT4.0 W + VB6(SP3) 画面内に納まる程度のサイズ変更という前提で、フォームの縦横比率を一定にする方法を教えて頂けませんでしょうか? フォームの縦横のサイズが1対2だとします。 フォームの縦を1.5倍にしたら、横も1.5倍になるようにしたいのです。 Form_Resize()時に、フォームの縦が変更されたら横も変更する、あるいは横が変更されたら縦を変更するようにコーディングしたのですが、再帰的にForm_Resize()が呼ばれてしまい、正しくサイズが変更されません。 よろしくお願いします。
回答: 簡単にしようと思ったら、変更前のフォームのサイズを憶えておいて、変更された方を変更するようにすればそれぞれが変更するようにコーディングできます。 再帰的に呼ばれる現象については、それはそれで正解なのですが、Widthを変更した直後に呼ばれるので、変更前のフォームのサイズを設定するタイミングを考えて設定すればできます。