FOAMRESIZEについて。

質問

FOAMのRESIZEの使い方について教えてほしいのですが、
フォームの中にテキストボックスがあるとして、
「フォームのサイズを変更すると、それにあわせてテキストボックスの大きさが変わる」という物はできたのですが、
それを最小化すると、RESIZEが働いてしまってエラーがでてしまいます。
フォームの大きさで判断してエラーを回避できないかと、やってみましたが、
うまくいきませんでした。
このエラーについての回避の方法があるならば
教えてくれませんか？

回答No.2

TAGOSAKU7 · ベストアンサー

どもども 田吾作７です。

方法は大きくわけて２つ、細かくわけて３つあります。
（↑ややこしい？）

１－１ On Error Goto ErrLabel
これはMasato_aさんが述べてた通り、「エラーが起こったら、指定のラベルに飛びなさい。」という命令です。

１－２ On Error Resume Next
使い方は先に挙げた１－１と似ていますが、ラベルを必要としません。エラーが起きても、次の行以降をどんどん実行行きます。この命令を書く時は、予期せぬエラーが起こったときに、臨時で書くことが多いですが、覚えると多様する癖がついてしまいます。いざホントにエラーが起きても、エラー個所が気付かなくなってしまう時がありますので、注意しましょう。
[On Error Resume Next]は[On Error Goto 0]を実行することで、エラーメッセージを復旧することができますので、覚えておいてください。

２－１ WindowStateを見る
Resize時のイベントに[Debug.Pring Me.WindowState]を記述してみてください。
０・１・２のいずれかが出力されると思います。
これは[vbNormal][vbMinimized][vbMaximized]という定数の値です。（ヘルプで参照してください。）
Windowの現在の表示状態を得ることが出来るので、
Private Sub Form_Resize()
If .WindowState = vbMinimized Then Exit Sub
～サイズ変更ロジック～
End Sub
としてしまえば、よいと思います。

お礼

細かく何パターンもありがとうございます！
最大化とかの状態も、見れるんですね。
いろいろあるので試してみようと思います。
長文レスありがとうございました。

回答No.1

Masato_a

Sub ....
On Error Goto ErrH:
テキストボックスのサイズ更新コード

ErrH:
End Sub

エラーがでたら・・・という大胆なコーディングで回避できます。

お礼

回答ありがとうございます。
エラーがでたら飛ばしてしまえばいいわけですね。
参考になります。
ありがとうございました。