Visual Basic - Urgente!!!! Desactivar boton de cierre de ventana

Life is soft - evento anual de software empresarial
 
Vista:

Urgente!!!! Desactivar boton de cierre de ventana

Publicado por Eva (1 intervención) el 18/08/2004 12:02:02
Hola, mi problema esq tengo una pantalla de identificador de usuario al iniciar una aplicación pero como no consigo desactivar o quitar el boton de cierre de la ventana de windows no puedo controlar la entrada a la aplicación pq al pinchar en cerrar se saltan la clave y arranca el programa,si alguien puede ayudarme es muy urgente q lo solucione en esta semana.

Gracias
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:Urgente!!!! Desactivar boton de cierre de venta

Publicado por POLA (522 intervenciones) el 18/08/2004 13:03:42
Puedes programar el evento UnLoad del formulario, me imagino que el usuario tecleará la clave en una caja de texto, con lo cuál podrías poner un código parecido a este.

Private Sub Form_Unload(Cancel As Integer)
If text1.Text <> "Clave" Then End
End Sub

Espero te sirva. Saludos Pola
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:Urgente!!!! Desactivar boton de cierre de venta

Publicado por Pere (150 intervenciones) el 18/08/2004 20:04:47
No sé exactamente a que te refieres ¿es desactivar el botón del aspa "x" de la esquina superior derecha? Si es así te explico lo que tengo a ver si te sirve de ayuda.

En el Form_ Load del formulario que te interese, pon:
RemoveCancelMenuItem Me

En un módulo .bas :
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Sub RemoveCancelMenuItem(frm As Form)
Dim hSysMenu As Long
hSysMenu = GetSystemMenu(frm.HWND, 0)
Call RemoveMenu(hSysMenu, 6, MF_BYPOSITION)
End Sub

Y verás cómo si pulsas sobre el aspa "x" no se cierra el formulario
Si te interesa que sí que se cierre con el aspa, sustituye el 6 por un 5:
' Call RemoveMenu(hSysMenu, 5, MF_BYPOSITION)

Espero haberte ayudado

Saludos
Pere

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:Urgente!!!! Desactivar boton de cierre de venta

Publicado por miri (18 intervenciones) el 19/08/2004 08:16:20
Hola.
Más sencillo todavía:

Private Sub Form_Unload(Cancel As Integer)
Cancel = -1
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