Ayuda con MDIForm1

[hunabku]

Saludos bueno tengo una pequeña duda como le puedo eliminar los controles de cerrar,miniminaz y agrandar al formulario, la verdad porque uqe le busque en sus propiedaddes no lo encontre

[GeoAvila]

el MDI padre por defecto no trae esos componentes asi que lo tenes que hacer a pie... ejejej

nos vemos..

[hunabku]

Iniciado por GeoAvila

el MDI padre por defecto no trae esos componentes asi que lo tenes que hacer a pie... ejejej

nos vemos..

Nuevamente gracias Geo aunque esta vez me quedeen las mismas jeje de todas formas gracias

[X.Cyclop]

Botón maximizar: Maxbutton
minimizar: Minbutton

Para quitar los 3 de una vez pones en FALSE (0) la propiedad Controlbox.

De todas maneras como dijo Geo, en el MDI padre siempre va a tener esos 3 botones.

Suerte.

[hunabku]

Iniciado por X.Cyclop

Botón maximizar: Maxbutton
minimizar: Minbutton

Para quitar los 3 de una vez pones en FALSE (0) la propiedad Controlbox.

De todas maneras como dijo Geo, en el MDI padre siempre va a tener esos 3 botones.

Suerte.

Gracias por contesatr hare de inmediato

[GeoAvila]

Iniciado por X.Cyclop

Botón maximizar: Maxbutton
minimizar: Minbutton

Para quitar los 3 de una vez pones en FALSE (0) la propiedad Controlbox.

De todas maneras como dijo Geo, en el MDI padre siempre va a tener esos 3 botones.

Suerte.

m.. yo creo haber dicho que los MDI padre no llevan esas opciones unicamente los hijos..


jejej

nos vemos..

[X.Cyclop]

Iniciado por GeoAvila

m.. yo creo haber dicho que los MDI padre no llevan esas opciones unicamente los hijos..

Jeje, tienes razón, ni siquiera aparecen esas propiedades en los padres, solo en los childs.

[vbx3m]

Prueba de esta manera:

Este lo pones en "General":

Código:

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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const GWL_STYLE = (-16)
Private Const MF_BYPOSITION = &H400
Private Const MF_REMOVE = &H1000
Private Declare Function DrawMenuBar Lib "user32" _
       (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" _
       (ByVal hMenu As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" _
         (ByVal hwnd As Long, _
         ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _
         (ByVal hMenu As Long, _
         ByVal nPosition As Long, _
         ByVal wFlags As Long) As Long
Private Const SC_MINIMIZE As Long = &HF020&
Private Const SC_MAXIMIZE As Long = &HF030&
Private Const MF_BYCOMMAND = &H0&
Private Const SC_CLOSE = &HF060&

Y este en el Load:

Código:

Dim L As Long
Dim hMenu As Long
Dim menuItemCount As Long
L = GetWindowLong(Me.hwnd, GWL_STYLE)
L = L And Not (WS_MINIMIZEBOX)
L = L And Not (WS_MAXIMIZEBOX)
L = SetWindowLong(Me.hwnd, GWL_STYLE, L)
hMenu = GetSystemMenu(Me.hwnd, 0)
If hMenu Then
      Call RemoveMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
      Call RemoveMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND)
     menuItemCount = GetMenuItemCount(hMenu)
      Call RemoveMenu(hMenu, menuItemCount - 1, _
                       MF_REMOVE Or MF_BYPOSITION)
     Call RemoveMenu(hMenu, menuItemCount - 2, _
                       MF_REMOVE Or MF_BYPOSITION)
     Call DrawMenuBar(Me.hwnd)
End If