VB6でMDIフォームを使用しています。

VB6でMDIフォームを使用しています。

MDIフォームで下記プログラムを作成しました。
(1)ツールバー上のボタン１を押し、子フォームＡを表示させました。
　　※子フォームＡの WindowState を「2-最大化」に事前設定し、ウィンドウは最大化して表示されました。
(2)子フォームＡを表示した状態で、同じツールバー上にあるボタン２を押し、子フォームＢ（ダイアログ）を表示させました。
　　※子フォームＢの WindowState を「0-標準」、BorderStyleを「3-固定ダイアログ」に事前設定し、表示されました。（一般的なオプション画面みたいなもの）

問題点はその際、子フォームＡのウィンドウが勝手に「最大化」から「標準」に変わってしまうことです。

これを回避する方法はないのでしょうか？

以上、宜しくお願いいたします。

No.1 ベストアンサー 回答者： redfox63 回答日時： 2010/09/11 01:32

ん～ どうも仕様のように思えます …

子フォームAのActivateイベントに

if WindowState <> vbMaximized then
　　WindowState = vbMaxmized
end if
を記述して回避してみてはいかがでしょう

子フォームAがアクティブになったとき 最大化のアニメーションが起きてしまいますが …

別の方法として 子フォームBを MDIClientとしてでは無くすかです
この場合 子フォームBのLoadイベントなどで 位置や大きさを変更してやる必要があるでしょう
また 子フォームで無くなると デスクトップ上のどの位置にも移動できるので
その点の制御も必要ならすべきことになります

この回答へのお礼

どうも仕様みたいですね...

>別の方法として 子フォームBを MDIClientとしてでは無くすかです

MDIChild を False で対応してみます。

有り難う御座いました！

お礼日時：2010/09/11 13:33