給VBA窗體增加最大化、最小化窗體按鈕

• • 調用方法
  • 函數代碼
  • 窗體例子

VBA窗體默認只有一個關閉按鈕，沒有最大化和最小化按鈕，下面的代碼可以方便的為窗體增加最大、最小化按鈕，讓窗口使用更方便。

調用方法

窗體最大最小化 Me 窗體最大化 Me

函數代碼

'窗體的最大最小化 Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPublic Const GWL_STYLE = (-16) Public Const WS_MAXIMIZEBOX = &H10000 Public Const WS_MINIMIZEBOX = &H20000 Public Const WS_THICKFRAME = &H40000 Public Const SW_MAXIMIZE = 3 Public Const SW_MINIMIZE = 6 Public Const SW_NORMAL = 1'設置屏幕,0=X,1=Y Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As LongPublic Sub 窗體最大最小化(窗體 As Object)Dim hWndForm As Long, MyType As StringDim iStyle As LonghWndForm = FindWindow("ThunderDFrame", 窗體.Caption) '取得窗口句柄iStyle = GetWindowLong(hWndForm, GWL_STYLE) '取得窗口樣式iStyle = iStyle Or WS_THICKFRAME '重新設置窗口樣式iStyle = iStyle Or WS_MINIMIZEBOX '添加最小化按鈕iStyle = iStyle Or WS_MAXIMIZEBOX '添加最大化按鈕SetWindowLong hWndForm, GWL_STYLE, iStyle '應用樣式 End SubPublic Sub 窗體最大化(窗體 As Object)Dim hWndForm As Long, MyType As StringDim iStyle As LonghWndForm = FindWindow("ThunderDFrame", 窗體.Caption) '取得窗口句柄iStyle = GetWindowLong(hWndForm, GWL_STYLE) '取得窗口樣式iStyle = iStyle Or WS_THICKFRAME '重新設置窗口樣式'iStyle = iStyle Or WS_MINIMIZEBOX '添加最小化按鈕iStyle = iStyle Or WS_MAXIMIZEBOX '添加最大化按鈕SetWindowLong hWndForm, GWL_STYLE, iStyle '應用樣式 End Sub

窗體例子

——專注辦公軟件的二次開發及培訓，你有問題，我有思路！
——微博、微信、CSDN同號：w_dexu。
——轉載請注明出處！
掃碼加微信

總結

以上是生活随笔為你收集整理的给VBA窗体增加最大化、最小化窗体按钮的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。