Icônes Fermer,agrandir ,réduire

Theze à dit:

Bonjour,

Avec Api mais à utiliser avec prudence !!!

Code:

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 Declare Function GetSystemMenu _
                Lib "user32" ( _
                ByVal hwnd As Long, _
                ByVal bRevert As Long) As Long

Private Declare Function DeleteMenu _
                Lib "user32" ( _
                ByVal hMenu As Long, _
                ByVal nPosition As Long, _
                ByVal wFlags As Long) As Long

Private Sub Griser()

    Dim I As Long

    With Application

        'la croix
        DeleteMenu GetSystemMenu(.hwnd, False), 6, 1024

        'le mini
        I = DeleteMenu(GetSystemMenu(.hwnd, False), -4064, 0)
        I = GetWindowLong(.hwnd, -16)
        I = I Xor 131072
        SetWindowLong .hwnd, -16, I

        'le maxi
        I = DeleteMenu(GetSystemMenu(.hwnd, False), -4048, 0)
        I = GetWindowLong(.hwnd, -16)
        I = I Xor 65536
        SetWindowLong .hwnd, -16, I

    End With

End Sub

Hervé.

Cliquez pour agrandir...