[求助]：VBA的窗体是不是没有最大最小化按钮？

ironwill2004

VBA的窗体是不是没有最大最小化按钮？

qiaqiadeng

好象是的，borderstyle属性最大到1，不知道加载外部引用能否解决，欢迎高手灌水啊。

sinbar

好象听说有人可以通过api把那个改出来的
我也不清楚，
高手进啊

zaoys

完整代码例子
Option Explicit

Private Const GWL_STYLE = (-16)
Private Const WS_BORDER = &H800000
Private Const WS_CAPTION = &HC00000 ' WS_BORDER Or WS_DLGFRAME
Private Const WS_DLGFRAME = &H400000
Private Const WS_SIZEBOX = &H40000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000
Private Const WS_HSCROLL = &H100000
Private Const WS_VSCROLL = &H200000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long


Private Sub Form_Load()

Dim lStyle As Long

lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
SetWindowLong Me.hwnd, GWL_STYLE, lStyle Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX
End Sub

qiaqiadeng

试了一下，不行嘛，请赐教。

左权

真是高啊,我又学一招了!!!

muzilongyun

谢谢！找到了！

fatant

下不了!!!!!!!!!!!!!!!!!!!!!!!!!

wzj_711

有空试试 又学到一招