1,設置窗口無標題,然後自定義標題模式模擬最小化功能。
2.通過API恢復窗口的最小化按鈕。
這裏推薦第二種方法,穩定性高,開發簡單。
代碼:
選項?明確的
私人?申報?功能?GetWindowLong?Lib?“用戶32”?別名?“GetWindowLongA”?(ByVal?hWnd?作為?龍,?ByVal?nIndex?作為?龍)?作為?龍?獲取窗口樣式API
私人?申報?功能?FindWindow?Lib?“用戶32”?別名?“FindWindowA”?(ByVal?lpClassName?作為?字符串,?ByVal?lpWindowName?作為?字符串)?作為?龍?查找當前窗口句柄API
私人?申報?功能?SetWindowLong?Lib?“用戶32”?別名?“SetWindowLongA”?(ByVal?hWnd?作為?龍,?ByVal?nIndex?作為?龍,?ByVal?dwNewLong?作為?龍)?作為?長的
私人?Const?GWL風格?=?(-16)?設置窗口樣式API
私人?Const?WS_MINIMIZEBOX?作為?龍?=?& ampH2萬?(最小化)?
表單用戶表單的初始化
私人?Sub?UserForm_Initialize()
暗淡?hWndForm?作為?長的
暗淡?IStyle?作為?長的
hWndForm?=?FindWindow(" thunderframe ",我。字幕)?抓住窗戶把手
IStyle?=?GetWindowLong(hWndForm,GWL風格)?獲取當前的標題欄樣式
IStyle?=?IStyle?還是?WS_MINIMIZEBOX?設置最小化按鈕
SetWindowLong?hWndForm,?GWL風格?IStyle?顯示最小化按鈕
結束?潛水艇