Cancelar la X de un formulario - VB-MUNDO

Spawn69 · #1 (**permalink**) 05-09-2007, 17:28:50

Buenas estoy intentando cancelar la acción de decargar un formulario si el usuario le da a la "x" de la ventanita del formulario, lo único que puedo hacer es poner el formulario para que desaparezca la barra de arriba del formulario pero quiero que aparezca y que al pinchar en la X no pase nada, me podríais ayudar?
GRacias.

susio24 · #2 (**permalink**) 05-09-2007, 18:10:29

hola forer@:

primero declaras en un modulo lo siguiente:

Código:

Option Explicit

Public Const MF_BYPOSITION = &H400
Public Const MF_REMOVE = &H1000
Public Declare Function DrawMenuBar Lib "user32" _
      (ByVal hWnd As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" _
      (ByVal hMenu As Long) As Long
Public Declare Function GetSystemMenu Lib "user32" _
        (ByVal hWnd As Long, _
        ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" _
        (ByVal hMenu As Long, _
        ByVal nPosition As Long, _
        ByVal wFlags As Long) As Long

y luego en el form load del formulario lo siguiente:

Código:

'****************

Dim hSysmenu As Long
hSysmenu = GetSystemMenu(Me.hWnd, 0)
RemoveMenu hSysmenu, 6, &H400&

'***************

asi te funciona te adjunto un documento de texto de la informacion completa porque se
pueden hacer más cosas.(Creo haberlo sacado de este foro pero no estoy seguro, bueno da igual espero te sirva)