Bom dia a todos,

 

Alguém sabe desabilitar (via código ou pelas próprias propriedades do VB) o icone que dá a possibilidade de MAXININIZAR e MINIMIZAR um MDI ???

Aguardo respostas !

http://www.vbweb.com.br/dicas_visual.asp?Codigo=89&Classificacao=

Olá ! Aqui no site tem :

Caro Tekki,

 

Quero informar que fiz tudo como vc me mostra, mas está dando um erro. O vb me diz que "GetWindowLong não está definido". Pode me ajudar ???

Essa API não funciona não! Quando vc clica com o botão direito ou dá um duplo clique na barra de títulos ele ainda permite que seja minimizado/maximizado.

 

 

 

 

Tico Breezy, tenta assim:

 

 

'No módulo

Option Explicit

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 Const GWL_STYLE = (-16)
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000

Public Sub NoMaxBox(f As MDIForm)
     
    Dim l As Long
    l = GetWindowLong(f.hWnd, GWL_STYLE)
    l = l And Not (WS_MAXIMIZEBOX)
    l = SetWindowLong(f.hWnd, GWL_STYLE, l)
   
End Sub

Public Sub NoMinBox(f As MDIForm)
     
    Dim l As Long
    l = GetWindowLong(f.hWnd, GWL_STYLE)
    l = l And Not (WS_MINIMIZEBOX)
    l = SetWindowLong(f.hWnd, GWL_STYLE, l)
   
End Sub

 

 

 

'No form

Private Sub MDIForm_Load()
Call NoMinBox(MDIForm1)
Call NoMaxBox(MDIForm1)
End Sub