投稿日 | : 2007/03/07(Wed) 16:22 |
投稿者 | : FR |
Eメール | : |
URL | : |
タイトル | : Re^5: ユーザーコントロールがある場合の最大化 |
> このプログラムの動作原理は、
> ・フォームロード時にすべてのコントロールの座標と大きさを記録しておく
> ・フォームリザイズ時に、まず拡大率(縮小率)を求めておいて、すべてのコントロールの
> 座標と大きさに対してその拡大率(縮小率)を掛ければ良い
> ・但しSSTab内のコントロールだけは単純には行かず、隠されたコントロールの本来の座標を
> 記憶せねばならず、また拡大(縮小)するときもSSTabの仕様にあわせて隠し直さなければならない
ダンボさん、回答ありがとうございます。
また、わかってなくてすいません・・・。
最大化コードはダンボさんの提示してくださったコードに直しました。
デバッグしてみたんですがClipControl内のFor Each文を循環して16回目の
If (TypeOf Ctl.Container Is SSTab) And (Ctl.Left < 0) Then
の後にForm_Load内に記述してある下記のエラー処理のCommonErrMsgに飛び
ErrHandle:
CommanErrMsg
Exit Sub
その後エラーが表示になります。
また、ユーザーコントロール内で各コントロールを強制的に配置している
箇所があり、これが関係して最大化できていないんでしょうか?