Autor Tema: Formularios Mdi (Leído 2500 veces)

chryobcn · « **en:** Jueves 29 de Abril de 2004, 00:56 »

Saludos

Necesito poder inhabilitar los controles de maximizado/restaurar y minimizar de formularios mdi padre e hijos (los formularios siempre tienen que estar maximizados).

La solucion chapuza es forzando el estado en el form_resize pero...

Navegando por los foros encontre la siguiente funcion pero solo me inhabilita el control de cerrar el formulario, he intentado hacer varias pruebas pero siempre con el mismo resultado.

La funcion es:

Citar

Option Explicit

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

'Constantes
Const SC_SIZE = &HF000
Const SC_MOVE = &HF010
Const SC_MINIMIZE = &HF020
Const SC_MAXIMIZE = &HF030
Const SC_CLOSE = &HF060
Const SC_RESTORE = &HF120

Const MF_SEPARATOR = &H800
Const MF_BYPOSITION = &H400
Const MF_BYCOMMAND = &H0

Private Sub MDIForm_Load()
Dim hwnd&, hMenu&, Success&
Dim i%
hwnd = Me.hwnd
hMenu = GetSystemMenu(hwnd, 0)
'Quitar todos (va de 0 a 8)
For i = 8 To 0 Step -1
Success = DeleteMenu(hMenu, i, MF_BYPOSITION)
Next
Exit Sub
'Usa esto para quitar los menús que te interesen:
Success = DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND)
Success = DeleteMenu(hMenu, SC_MOVE, MF_BYCOMMAND)
Success = DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
'Success = DeleteMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND)
'Success = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
'Success = DeleteMenu(hMenu, SC_RESTORE, MF_BYCOMMAND)
End Sub

ROBER.29

Utiliza el siguiente código:

Código: Text

 
Private Declare Function SetWindowLong Lib &#34;user32&#34; Alias &#34;SetWindowLongA&#34; (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib &#34;user32&#34; Alias &#34;GetWindowLongA&#34; (ByVal hwnd As Long, ByVal nIndex As Long) As Long
 
Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
Const GWL_STYLE = (-16)
 
Const MF_BYPOSITION = &H400
Const MF_REMOVE = &H1000
Private Declare Function DrawMenuBar Lib &#34;user32&#34; _
(ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemCount Lib &#34;user32&#34; _
(ByVal hMenu As Long) As Long
Private Declare Function GetSystemMenu Lib &#34;user32&#34; _
(ByVal hwnd As Long, _
ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib &#34;user32&#34; _
(ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
 
Private Sub MDIForm_Load()
    Dim L As Long
    Dim hMenu As Long
    Dim menuItemCount As Long
    
   
    'para que no se vean los botones
    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)
    'para quitar las opciones del menu de sistemas
    'Obtenemos un handle al menú de sistema del formulario
    hMenu = GetSystemMenu(Me.hwnd, 0)
    If hMenu Then
        'eliminamos tamaño
        Call RemoveMenu(hMenu, 2, MF_REMOVE Or MF_BYPOSITION)
        'eliminamos minimizar (ahora está en el 3)
        Call RemoveMenu(hMenu, 2, MF_REMOVE Or MF_BYPOSITION)
        'Eliminamos el elemento maximizar (ahora está en el 3)
        Call RemoveMenu(hMenu, 2, MF_REMOVE Or MF_BYPOSITION)
        'Forzamos el redibujado del menú. Esto refresca la barra de título
        Call DrawMenuBar(Me.hwnd)
    End If
End Sub
 
 

Espero que te sirva un saludo.

Brroz

Hola chryobcn.

¿De verdad piensas que usar windowstate es una chapuza?... pues no sé que será más chapucero: usar ese método inhabilitando el MaxButton, o tener una aplicación MDI todo el rato maximizada...

Abur.

chryobcn

Saludos

Gracias Rover.29 por tu respuesta, en el formulario mdi padre funciona perfectamente, pero el problema viene dado en el formulario child que si desactivo el control de maximizado no se me muestra el formulario, el que si me deja deshabilitar es el de minimizar. Ahora me hago la siguiente pregunta... vb 6 permite mostrar un form child sin el boton de maximizar??

Acerca de lo comentado Brroz, no necesito el funcionamiento esplicito de los formularios mdi, ya que no quiero que se puedan abrir dos formularios hijos a la vez ya que para el programa que estoy haciendo podria ser un gran problema al atacar a la base de datos constantemente... es simplemente que el diseño de las interficies queda muy majo a mi gusto

y eso los profesores lo puntuan....

Por lo del tema de chapuza, al restaurar se ve como el formulario se minimiza y luego se vuelve a maximizar... francamente lo veo feo

Gracias

ROBER.29

Hola,

Siento decirte que creo que no es posible que se deshabilite el control maximizar de un formulario hijo de un MDI, yo también lo estuve probando en su día pero si quitaba el botón no se me abría luego, por lo tanto te aconsejo que desistas en tu búsqueda por querer quitar el botón maximizar del hijo porque yo personalmente creo que no lo vas a encontrar ya que estoy completamente seguro de que no se puede.

Si por el contrario lo encuentras o lo consiges hacer me gustaría que me dijeras como.

Un saludo.

PD.- Espero que no sigais la discusión entre Brozz y tu.

chryobcn

Saludos

Siento que haya parecido una discusion, solo estaba comentando mi punto de vista y el porque me interesaba hacerlo de esa manera, nada mas.

Hasta Otra

SoloCodigo

Autor Tema: Formularios Mdi (Leído 2500 veces)

chryobcn

Formularios Mdi

ROBER.29

Re: Formularios Mdi

Brroz

Re: Formularios Mdi

chryobcn

Re: Formularios Mdi

ROBER.29

Re: Formularios Mdi

chryobcn

Re: Formularios Mdi