オブジェクトの固定方向リサイズさせる方法

まったり 2003-10-01 00:15:52 No: 79614

いつも参考にさせて頂いております。

ピクチャーボックスを実行時にリサイズするものを作成したのですが、斜めへのリサイズは縦横比を固定で実行できるよう、先方から依頼がありました。
例えば４：３の場合は、伸縮時も４：３にリサイズ

現状、リサイズの開始と終了を見張って強制的に４：３に下記書き換えているものを作詞しましたが、リサイズ中のオブジェクト枠も縦横比固定で表示するにはどのようにしたら良いでしょうか。

APIは SetWindowLong 、 CallWindowProc 、 SetWindowPos で作成しました。

ご存じの方ご教授お願いします。

まったり 2003-10-01 00:18:22 No: 79615

ごめんなさい。環境を記載するの忘れました。

開発環境： VB6SP5
OS ： Win2000Pro
ターゲット：NT4以上

以上、よろしくお願いします。

まったり 2003-10-02 18:19:34 No: 79616

サブクラス化し、SetWindowLongをのWM_SIZEとWM_EXITSIZEMOVEを見張ることで一応それらしく動くものまでできました。
ですが、ピクチャーボックスのリサイズイベントとのネストが発生しているので気になります。

そもそもVBで作成すること自体に無理があるのでしょうか。