| 投稿日 | ： 2007/03/07(Wed) 16:22 |
| 投稿者 | ： FR |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 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
その後エラーが表示になります。
また、ユーザーコントロール内で各コントロールを強制的に配置している
箇所があり、これが関係して最大化できていないんでしょうか？