Olá amigos, utilizo a função abaixo para desabilitar o botão MAX do MDI Form, porém, ao minimizá-lo, ele vai para a barra de tarefas do windows. Aí é que tá o problema: Clicando com o botão esquerdo do mouse sobre o ícone que fica na barra de tarefas, a função MAX ainda está habilitada! Como faço para desabilitá-la tmabém da barra de tarefas ?????

 

Option Explicit

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 Const WS_MAXIMIZEBOX As Long = &H10000
Public Const GWL_STYLE As Long = (-16)

 

Private Sub MDIForm_Load()
Dim lWnd As Long
    lWnd = GetWindowLong(Me.hwnd, GWL_STYLE)
    lWnd = lWnd And Not (WS_MAXIMIZEBOX)
    lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)
End Sub

Josefh,

Vc vai ter que usar outra função para retirar as opções de menu...eu tinha mas...não sei onde enfiei...acho que peguei no www.bufaloinfo.com.br procure lá...qualquer coisa se encontrar ...posto aqui. Desculpe por não saber o local preciso !!!

 

sem mais,

Enviei um e-mail com um pequeno projeto !!!

 

sem mais,