Deshabilitar X de cerrar

[ema21del9]

Buenas, hay alguna manera de deshabilitar via codigo la X de la parte superior derecha de una ventana, para que esta no se pueda cerrar hasta realizar determinada accion? gracias de antemano.

[fesero]

en las propiedades del Form esta controlbox que es para mostrarlo o no.

[ema21del9]

En el codigo al presionar un commandbutton pongo lo siguiente:

Código:

Me.ControlBox = False

Y me da el siguiente error:

[David]

Revisa esto:
http://www.forosdelweb.com/1197692-post82.html

[fesero]

Lo tenes que hacer mediante codigo? porque si lo haces por medio de las propiedades en modo de diseño, al ejecutar funciona

[ema21del9]

Si tiene que ser mediante codigo, y gracias David por el aporte pero yo busco algo un poco mas simple, quizas declarando que no se descargue el formulario en el acontecimiento "unload" del mismo, pero nose como hacerlo.

[Judgement]

Saludos, el error que te sale es debido a que esa propiedad es de solo lectura cuando esta en ejecución.

Debes cambiar la propiedad en diseño.

La propiedad control box, simplemente te desabilitara los botones de minimizar, maximizar y cerrar; pero si solo quieres deshabilitar la X puedes probar el siguiente codigo:

http://www.freevbcode.com/ShowCode.asp?ID=342

Espero que te sea de utilidad

[David]

Para que no se cierre en el evento Unload sólo tienes que asignar la variable Cancel:

Código vb:

Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub
 

[ema21del9]

Muchas gracias pero como dije arriba estaria bueno algo mas simple que no sea solo copiar y pegar sino que yo sepa lo que estoy haciendo.

Edit: buenisimo ahora pruebo lo tuyo David

[A.H.H]

Hola si no quieres usar la x del form siempre tambien puedes usar el viejo truco de quitar el marco al form y dibujar tu la x roja y en el evento click del label poner el codigo.
ejemplo:

Private Sub Form_Load()
'Poner la propiedad borderstyle del form en 0-NONE y'
'colocar un label en la esquina'
'con codigo dibujamos la x roja'
Label1.ForeColor = vbRed
Label1.FontSize = 16
Label1.AutoSize = True
Label1.Caption = "X"
End Sub

Private Sub Label1_Click()
'aqui pones el codigo de lo que quieras que haga la x al pulsarla'
MsgBox "aqui lo que quieras que haga la x al pulsarla"
Unload Me
End Sub