|
▼kobasan さん:
こんばんは。
>UserForm1がLoadされていたらいったんUnloadした後、
>UserFormを再Load、表示させたいのですが、
>Load,Unload情報を知る方法はあるのでしょうか?
>
>UserForm1内の表示Label数が変化するため、
>Userform1をリセットする必要があるのです。
>
>if (UserFormがLoadされているとき) then Unload UserForm1
>Load UserForm1
Userformsというコレクションに指定のユーザーフォームが存在するか否か
をチェックしてみてはいかがですか?
'=====================
Sub test()
Dim frm As Object
Load UserForm1
Set frm = getfrm("userform1")
If Not frm Is Nothing Then
frm.Show
End If
End Sub
'=============================================
Function getfrm(frmnm) As Object
Dim frm As Object
Set getfrm = Nothing
For Each frm In UserForms
If UCase(frm.Name) = UCase(frmnm) Then
Set getfrm = frm
Exit For
End If
Next
End Function
|
|