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

• • 調(diào)用方法
  • 函數(shù)代碼
  • 窗體例子

VBA窗體默認(rèn)只有一個(gè)關(guān)閉按鈕，沒(méi)有最大化和最小化按鈕，下面的代碼可以方便的為窗體增加最大、最小化按鈕，讓窗口使用更方便。

調(diào)用方法

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

函數(shù)代碼

'窗體的最大最小化 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'設(shè)置屏幕,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 '重新設(shè)置窗口樣式iStyle = iStyle Or WS_MINIMIZEBOX '添加最小化按鈕iStyle = iStyle Or WS_MAXIMIZEBOX '添加最大化按鈕SetWindowLong hWndForm, GWL_STYLE, iStyle '應(yīng)用樣式 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 '重新設(shè)置窗口樣式'iStyle = iStyle Or WS_MINIMIZEBOX '添加最小化按鈕iStyle = iStyle Or WS_MAXIMIZEBOX '添加最大化按鈕SetWindowLong hWndForm, GWL_STYLE, iStyle '應(yīng)用樣式 End Sub

窗體例子

——專(zhuān)注辦公軟件的二次開(kāi)發(fā)及培訓(xùn)，你有問(wèn)題，我有思路！
——微博、微信、CSDN同號(hào)：w_dexu。
——轉(zhuǎn)載請(qǐng)注明出處！
掃碼加微信

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。