comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Como Bloquear el Boton Cerrar del Formulario

  • 0 Respuestas
  • 1297 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5411
  • Actividad:
    20%
  • Reputación 33
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 12:46:46 pm »
Primero debemos de Crear un módulo para nuestras declaraciónes.

y le colocamos este codigo

Código: Visual Basic
  1. Public Declare Function GetSystemMenu Lib "user32" _
  2.         (ByVal hWnd As Long, ByVal bRevert As Long) As Long
  3. Public Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" _
  4.         (ByVal hMenu As Long, ByVal nPosition As Long, _
  5.         ByVal wFlags As Long, ByVal wIDNewItem As Long, _
  6.         ByVal lpString As Any) As Long
  7. Public Declare Function DrawMenuBar Lib "user32" _
  8.         (ByVal hWnd As Long) As Long
  9. '
  10. Global Const MF_BYCOMMAND = &H0&
  11. Global Const MF_ENABLED = &H0&
  12. Global Const MF_GRAYED = &H1&
  13. '
  14. Public Const SC_CLOSE = &HF060&
  15. ' Básicamente lo que se hace es dibujar una caba sobre el botón actual
  16. 'la cual lo bloquea

En el formulario principal colcamos el siguiente codigo el cual hace la llamda para bloquear la X.

Código: Visual Basic
  1. Private Sub Bloquear_Cerrar()
  2. Dim hMenu As Long
  3.         '
  4. hMenu = GetSystemMenu(hWnd, 0)
  5.         ' Deshabilitar el menú cerrar del formulario
  6. Call ModifyMenu(hMenu, SC_CLOSE, MF_BYCOMMAND Or MF_GRAYED, -10, "Close")
  7. End Sub
  8. Private Sub Form_Load()
  9. Bloquear_Cerrar ' llamamos a nuestro evento
  10. End Sub
« Última modificación: Mayo 12, 2014, 03:16:32 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Como leer caracter por caracter de una cadena string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1458
Último mensaje Julio 26, 2010, 11:42:21 am
por ANTRAX
Cómo ajustar la cadena introducida a formato numérico: "#,##"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1249
Último mensaje Julio 26, 2010, 12:38:04 pm
por ANTRAX
Cómo ajustar la cadena introducida a formato de hora "00:00:00"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1627
Último mensaje Julio 26, 2010, 12:36:23 pm
por ANTRAX
Como saber cuantos registros tiene el Recordset

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3172
Último mensaje Julio 26, 2010, 11:18:21 am
por ANTRAX
Como pasar de un TextBox a otro pulsando ENTER

Iniciado por ANTRAX

Respuestas: 0
Vistas: 10833
Último mensaje Julio 26, 2010, 03:41:24 pm
por ANTRAX