Visual Basic - Desaparecer Maximizar en MDI

Life is soft - evento anual de software empresarial
 
Vista:

Desaparecer Maximizar en MDI

Publicado por La Sombra (15 intervenciones) el 20/05/2005 21:15:53
Ayudenme porfavor, Necesito que me eduquen, como puedo hacer desaparecer el boton Maximizar en el formulario MDI en Visual Basic porfa urgente, ayudenme, de antemano les agradesco vuestra colaboracion.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Desaparecer Maximizar en MDI

Publicado por Christian (675 intervenciones) el 20/05/2005 21:36:45
no se puede, para eso utiliza un form comun y corriente.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Claro que se puede !!

Publicado por Dennis Baldeón (103 intervenciones) el 21/05/2005 00:55:44
Option Explicit

#If Win32 Then
'Para 32 bits (VB4 y VB5)
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

#Else
'Para 16 bits (VB4 y VB3)
Private Declare Function GetSystemMenu Lib "user" (ByVal hWnd%, ByVal bRevert%) As Integer
Private Declare Function DeleteMenu Lib "user" (ByVal hMenu%, ByVal iditem%, ByVal wFlags%) As Integer
#End If

'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()

#If Win32 Then
Dim hWnd&, hMenu&, Success&
#Else
Dim hWnd%, hMenu%, Success%
#End If
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Claro que se puede !!

Publicado por MecanicoWeb (19 intervenciones) el 23/05/2005 17:07:28
Dennis, probe ese codigo pero solo deshabilita el boton cerrar, no se a q se debe pero si sabes q es me gustaria saberlo xq yo tambien creia q no se podia.

Gracias.

Saludos...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Claro que se puede !!

Publicado por Edu (138 intervenciones) el 23/05/2005 17:10:02
me parece mucha cosa hacer.. cuando es mas facil usar un formulario normal.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Claro que se puede !!

Publicado por La Sombra (15 intervenciones) el 25/05/2005 20:46:35
Si pudiese utilizar un formulario normal pero en los procesos para estos se habren siempre en la barra de incio otro proceso bueno muchas gracias por vuestra ayuda me sirvio bastante para experimentar mas, gracias por educarme incondicionalemnte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar