タスクバーにたくさんオブジェクトを表示させないようにするためには？ (ID:106822)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 SetWindowLong(Form1.hwnd, GWL_EXSTYLE, WS_EX_TOOLWINDOW) ですが今日はなぜだかうまくいきました。 なんか宣言間違えてたのかな(^^;;;; うまくいったので(笑) −−標準モジュール Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Const GWL_EXSTYLE = (-20) Public Const GWL_STYLE = (-16) Public Const WS_EX_TOOLWINDOW As Long = &H80 Public Const WS_EX_APPWINDOW As Long = &H40000 Public Const WS_EX_WINDOWEDGE As Long = &H100& Public lWndlng as long −− フォーム１ private sub Commnad1_Click() lWndlng = CLng(SetWindowLong(Form1.hwnd, GWL_EXSTYLE, _ GetWindowLong(Form1.hwnd, GWL_EXSTYLE) Or WS_EX_TOOLWINDOW)) 'lWndlng=CLng(SetWindowLong(Form1.hwnd, GWL_EXSTYLE, _ 'GetWindowLong(Form1.hwnd, GWL_EXSTYLE) XOr WS_EX_APPWINDOW)) 'こちらでもよいが最小化ボタンが残るので・・・ end Sub private sub Commnad2_Click() lWndlng = CLng(SetWindowLong(Form1.hwnd, GWL_EXSTYLE, _ WS_EX_WINDOWEDGE Or WS_EX_APPWINDOW)) end Sub という感じでしょうか。 うーん、なんで昨日できなかったんだろう。 TOOLWINDOWとTOPMOST間違えてたかなぁ(笑) きちんと戻せるようになってから使うことをお勧めします。 Formが見えないだけで終了してないとかにならないように気をつけてくださいね