タイトル : Re: UserFormのResizeイベント 投稿日 : 2008/06/16(Mon) 10:50 投稿者 : 魔界の仮面弁士
「割り込み」というのは、どういう意味でしょうか? Resize イベントはフォームのサイズ変更に応じて発生するので、 特に難しい処理を組み込まずとも Private Sub UserForm_Resize() Caption = CStr(Me.Height) & "×" & CStr(Me.Width) End Sub のように書いておけば、フォームの Width / Height の変更に応じて イベントの発生に応答できるかと思いますよ。 それとも、別のフォームの Resize イベントを取得したいという 意味でしょうか。もしそうなら、WithEvents を使うことになるでしょう。 あるいは、Resize イベントを受け取れるかどうかが問題なのではなく、 単にフォームのサイズを変更したいだけなのでしょうか。 だとしたら、フォームの Width / Height プロパティの値を変更すれば OK です。サンプルとしてはこのあたり。 http://support.microsoft.com/kb/213768/en-us/ http://www.andypope.info/vba/resizeform.htm |