这里有分要送，请问怎样在状态栏显示无标题栏窗体的最小化图标

Question

设置你窗体的borderstyle属性值为0-none这样窗体就没有标题栏了！要想看见只能在代码中设置了

Answer 1

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 LongPrivate Const GWL_STYLE = (-16)Private Const WS_SYSMENU = &H80000Private Sub Form_Load()
    Dim TempLng As Long
    
    TempLng = GetWindowLong(Me.hwnd, GWL_STYLE)
    TempLng = TempLng Or WS_SYSMENU '系统菜单
    SetWindowLong Me.hwnd, GWL_STYLE, TempLng
    
End Sub

Answer 2

设置你窗体的borderstyle属性值为0-none啊。

Answer 3

zyl910，怎么我照你说的做了都还是不行阿？请指教