[[20150113030554]]　『UserFoamの折りたたみ設定について』（まさ）　ページの最後に飛ぶ

『UserFoamの折りたたみ設定について』（まさ）

お世話になります。

UserFoamをサイズ変更=折りたたみが、できるようにしたいと考えております。

１．通常は、折りたたんだ状態
２．ラベルをクリックすると、展開する。
３．ラベルを再度クリックすると、折りたたむ。

と言った流れです。

しかし、下記コードは、上記の逆の動きをします。

展開状態→ラベルクリックで折りたたみ・・・・

皆さまアドバイスのほどよろしくお願いします。

Option Explicit
Dim Full_Width As Double 'ユーザーフォームの高さを格納する変数

Private Sub UserForm_Initialize()

    Full_Width = Me.Width   'ユーザーフォームが開いたときの高さを格納
End Sub

Private Sub Label18_Click()

    If Me.Width = Full_Width Then
        Me.Width = 164'折りたたむ
    Else
        Me.Width = Full_Width
    End If
End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 >１．通常は、折りたたんだ状態 
 私なら、通常が折りたたんだ状態ならユーザーフォームの初期サイズも折りたたんだサイズにしますけどねえ。

 >上記の逆の動きをします。
 このままの初期サイズでいくなら・・・、

 ユーザーフォームの初期サイズを最初に設定すれば・・・、
 Const 通常サイズ As Single = 164
 Private Full_Width As Single
 Private Sub UserForm_Initialize()
    Full_Width = Me.Width   'ユーザーフォームが開いたときの高さを格納
    Me.Width = 通常サイズ
 End Sub

（ichinose） 2015/01/13(火) 07:11

ichinose さん

バッチリ動きました。
ありがとうございます(^^ゞ

解決です(^^)
（まさ） 2015/01/13(火) 09:33

コメント返信：

[ 一覧(最新更新順) ]

[[20150113030554]] 『UserFoamの折りたたみ設定について』（まさ） ページの最後に飛ぶ

[[20150113030554]]　『UserFoamの折りたたみ設定について』（まさ）　ページの最後に飛ぶ