Hola!
Tengo un proyecto en Visual Basic 6 con un formulario MDI y los respectivos child y alguno q son formularios comunes...
El tema es q quiero sacar la x q cierra el formulario para q si o si tengan q hacer click en el boton salir para irse del mismo, ya q si apretas la x el formulario simpre se cierra independientemente de las validaciones q pueda poner en el form_unload...
hacia leido en el foro en un mensaje parecido q no logro encontrar q tenia q hacer esto...pero lo probe y no funciona...
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = False
End Sub
Tiene algo q ver q sea MDI? Los formularios estan definidos como Zizables
Como puedo sacar la x q cierra el formulario?
Gracias
Diego Ares :smt004

Si pones la propiedad ControlBox del form a False, No te sirve ???

__________________
Buscar no es un verbo, es un vértigo.

Salu2

Hola!
Se soluciono el problema en parte...porque en todos los formularios tengo esa propiedad ControlBox = False y listo desaparece tanto la X, como el MinButon y el MaxButton...q en mi caso en los formularios Child o comunes, q dependen del principal no me interesa tener...
El problema q queda es q en el formulario principal, q es un MDI no exite esa propiedad...y ahi si solo quiero sacar la X, ya q el MinButton si me interesa q este, No asi el MaxButton, pero eso es facil de poner en true o false, el tema sigue siengo la X...
Alguna Sugerencia?
Diego Ares :smt004
PD= Igual no seria tan grave en el formulario principal si queda asi...pero quizas es mas prolijo q no este...

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
UnloadMode = 1 'Se invocó la instrucción Unload desde el código
End Sub

Si hago esto en el formulario MDI por mas q le de a la X el formulario no se cierra, la unica manera de salir es haciendo click en la opcion "Salir"
del menu...el problema es q la X sigue quedando por mas q no funcione...
como la puedo eliminar?
Diego Ares :smt004

Me olvidaba...me acabo de dar cuenta q tampoco tengo la opcion MaxButon en las propiedades de mi formulario MDI para ponerlo en false y sacar esta opcion porque no quiero q lo puedan maximizar, ya q tengo predefinidas todas las medidas para q entre perfecto en una configuracion 800 x 600 sin q tape la barra de herramientas del windows y queda feo si lo maximizan si la configuracion es distinta o si lo hacen en la anterio taparia la barra de herramientas...
Resumiendo...hay alguna forma de eliminar la opcion de Maximizar en un formulario MDI?
Gracias
Diego Ares :smt004

Siguiendo con el tema otra cosa parecida y diferencte es q para los reportes uso el Cristal Reports 8 y en Visual los manero como diseñadores, el problema es q en la vista previa (CRViewer) tengo la opcion EnableClosedButton = True , pero por mas q le de a la X no se cierra la vista previa y si no me funciona esto me tengo q manejar con la x q cierra el formulario q la queria sacar poniendo la opcion ControlBox del formulario ... Como lo puedo Solucionar? Hay alguna manera de q fincione esta X de las propiedades del CRViewer?
Diego Ares :smt004

Compañero, sinceramente no es un tema q he investigado mucho, en algunas aplicaciones donde no quiero q me cierren con la X , pongo un mesaje en el QueryUnload diciendole al usuario q utilice la opcion "salir" y listo, digamos que no me he preocupado por sacar la X. Y si no directamente pongo en False la propiedad ControlBox. En mis casos no hacia al buen funcionamiento del sistema.

Salu2

__________________
Buscar no es un verbo, es un vértigo.

Salu2

Si te entiendo, pasa por un detalle nada más y por lo detallista q puedas ser...como comentaba antes pude hacer q al menos no funciene la x q cierra el formulario, el tema ahora es q me gustaria q desapareciera de ahi porque queda desprolijo a mi entender dejarla ahi si no cumple ninguna funcion y tambien la opcion de maximizar q desaparezca...
es decir lo q quiero es q el formulario MDI me quede solamente con la opcion de minimizarlo nada mas...alguien del foro sabe como hacer esto?
o si es posible? ya q en los formularios MDI no existe la opcion de ControlBox...
Diego Ares :smt004

Hola amigo:
A ver que te parece este código.
Option Explicit

Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const GWL_STYLE = (-16)

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 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 MF_BYPOSITION = &H400&

Private Sub DesactivarMenu(frm As Form)
Dim hSysmenu As Long
hSysmenu = GetSystemMenu(frm.hwnd, 0)
RemoveMenu hSysmenu, 6, MF_BYPOSITION
RemoveMenu hSysmenu, 5, MF_BYPOSITION
RemoveMenu hSysmenu, 4, MF_BYPOSITION
RemoveMenu hSysmenu, 2, MF_BYPOSITION
RemoveMenu hSysmenu, 1, MF_BYPOSITION
End Sub

Private Sub MDIForm_Load()
Dim lRet As Long
lRet = GetWindowLong(Me.hwnd, GWL_STYLE)
lRet = lRet And Not (WS_MAXIMIZEBOX)
lRet = SetWindowLong(Me.hwnd, GWL_STYLE, lRet)
' Desactiva las opciones del menú del MDI (esq.superior izq)
DesactivarMenu Me
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
' para evitar cerrar el form si se pulsa Alt-F4
' así no se cierra nunca el form
If UnloadMode = 0 Then Cancel = True
End Sub

Private Sub MenuSalir_Click()
End
End Sub

Saludos

en la parte de trucos de la pagina encontraras uno que hace justamente eso espero te sirva

__________________
JHB