當前位置:成語大全網 - 書法字典 - VBA,如何設置窗體最小化。

VBA,如何設置窗體最小化。

有兩種方法:

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?顯示最小化按鈕

結束?潛水艇