Autor Tema: Ayuda (Leído 2884 veces)

gervb · « **en:** Domingo 13 de Mayo de 2007, 21:57 »

Hola a todos, alguien sabe como sacar el boton cerrar del formulario sin que desaparesca el icono del formulario.
Gracias de antemano.

abelsql3000 · « **Respuesta #1 en:** Jueves 17 de Mayo de 2007, 17:59 »

Elige el formulario y En la Ventana de Propiedades, Establece la Propiedad CONTROLBOX a FALSE
Espero que con ello logres lo que deseas
Atte Abel de Lima,Peru[/size]

Epa

Buenas.

Hasta donde se, no se puede.

Lo que puedes hacer es invalidar ese boton de la siguiente forma:

Código: Text

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

Y luego pones un boton o un menu para cerrar:

Código: Text

 
Private Sub Command1_Click()
  End
End Sub

Espero se util.

Saludos

Toph

Cita de: "gervb"

Hola a todos, alguien sabe como sacar el boton cerrar del formulario sin que desaparesca el icono del formulario.
Gracias de antemano.

Hola gervb

a continuacion te dejo la rutina que sirve para deshabilitar el boton cerrar del formulario sin que desaparezca de este

Código: Text

Option Explicit
 
' Para deshabilitar el menú cerrar (controlbox) de un formulario
Private Declare Function GetSystemMenu Lib &#34;user32&#34; _
    (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function ModifyMenu Lib &#34;user32&#34; Alias &#34;ModifyMenuA&#34; _
    (ByVal hMenu As Long, ByVal nPosition As Long, _
    ByVal wFlags As Long, ByVal wIDNewItem As Long, _
    ByVal lpString As Any) As Long
Private Declare Function DrawMenuBar Lib &#34;user32&#34; _
    (ByVal hWnd As Long) As Long
'
Private Const MF_BYCOMMAND = &H0&
Private Const MF_ENABLED = &H0&
Private Const MF_GRAYED = &H1&
'
Private Const SC_CLOSE = &HF060&
 
 
Private Sub Form_Load()
    ' Deshabilitar el botón de cerrar el formulario
    Dim hMenu As Long
    '
    hMenu = GetSystemMenu(hWnd, 0)
    ' Deshabilitar el menú cerrar del formulario
    Call ModifyMenu(hMenu, SC_CLOSE, MF_BYCOMMAND Or MF_GRAYED, -10, &#34;Close&#34;)
    '
End Sub
 

saludos

gervb

hola, toph este codigo sirve y es lo que busco, cuando lo agrego a un formulario nuevo sin nada anda perfectamente.
Pero cuando lo agrego al formulario de mi programa al principio cuando se carga este me saltan errores y me dicen que los comentarios solamente pueden aparecer end sub .
Como hago para que funcione? porque realmente me sirve.

Toph

Cita de: "gervb"

hola, toph este codigo sirve y es lo que busco, cuando lo agrego a un formulario nuevo sin nada anda perfectamente.
Pero cuando lo agrego al formulario de mi programa al principio cuando se carga este me saltan errores y me dicen que los comentarios solamente pueden aparecer end sub .
Como hago para que funcione? porque realmente me sirve.

gervb esto ocurre porque has dejado algunos comentarios sin anteponerle el signo ' , cuando antepones esto, la sentencia se vuelve verde indicando que es un comentario, como este por ejemplo

Código: Text

 
' Para deshabilitar el menú cerrar (controlbox) de un formulario
 

ahora en tu programa, cuando corres tu programa te pone:

Citar

Error de compilacion:
Los comentarios solo pueden aparecer despues de End Sub, End Function o End Property

y el programa sombrea la o las palabra que te estan dando problemas, que pueden ser un comentario al que olvidaste poner el signo ' o una instruccion mal escrita.
checa esto.

si tu problema persiste, adjunta tu programa aqui en el foro para revisarlo o pon la parte que te da problemas.

saludos

SoloCodigo

Autor Tema: Ayuda (Leído 2884 veces)

gervb

Ayuda

abelsql3000

Re: Ayuda

Epa

Re: Ayuda

Toph

Re: Ayuda

gervb

Re: Ayuda

Toph

Re: Ayuda