| |
▼YOU さん：
こんばんは。
>
>うーんなんか違う気が・・・。
デスクトップにあるフォルダやファイルが表示できれば良いと思っていたんですが・・。
Userformを最小化するとなると、私がめったにに使わない（調べない）
APIを使用しないと思います。
>（難しくてコードの意味も分からないのですが・・。）
>ユーザフォームを表示ごと最小化したいと思っていたので、
>すいません。
例えば、３つのユーザーフォーム（Userform1〜Userform3）が
既に表示されていたとしましょうか。
こんなコードで・・・・（標準モジュールで)。
'================================
sub show_form()
userform1.show vbmodeless
userform2.show vbmodeless
userfrom3.show vbmodeless
end sub
これら表示されたフォームを最小化するには、
別の標準モジュールに
'========================================================
Public Declare Function CloseWindow Lib "user32" (ByVal hWnd&) As Long
Public Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String _
, ByVal lpWindowName As String) As Long
Declare Function OpenIcon Lib "user32.dll" _
(ByVal hWnd As Long) As Long
'================================================================
Sub minimam_form() '表示されているユーザーフォームの最小化
For Each frm In UserForms
hWnd = FindWindow("ThunderDFrame", frm.Caption)
Call CloseWindow(hWnd)
Next
End Sub
'================================================================
Sub undoform() '元のサイズに戻す
For Each frm In UserForms
hWnd = FindWindow("ThunderDFrame", frm.Caption)
Call OpenIcon(hWnd)
Next
End Sub
こんな意味でしょうか？
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
