tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルUserFormのResizeイベント
記事No12538
投稿日: 2008/06/16(Mon) 10:03
投稿者はじめちゃん
Excel(2003以降)のVBAのUserFormでの事なのですが。
割り込みしてでもResizeイベントって取得出来ませんで
しょうか?

何方かご指導いただきますよう。
よろしくお願いいたします。

[ツリー表示へ]
タイトルRe: UserFormのResizeイベント
記事No12539
投稿日: 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

[ツリー表示へ]
タイトルRe^2: UserFormのResizeイベント
記事No12544
投稿日: 2008/06/16(Mon) 16:12
投稿者はじめちゃん
勘違いしておりました。お恥ずかしゅう御座います。
ExcelのUserFormはユーザーオペレーションではリサイズ出来ないですよね。
しかし、提示していただいたサンプルでリサイズ機能を自作出来る訳ですね。
ありがとう御座います。
これでやろうとしていた事が実現出来ます。

> 「割り込み」というのは、どういう意味でしょうか?
>
> 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

[ツリー表示へ]