Quitar la opcion de cerrar un formulario
Raziel
29 de Mayo del 2005
Hola a tod@s. C贸mo puedo quitar el bot贸n x de un formulario? Me refiero a lo mismo que se hace con minbutton y maxbutton. Tambi茅n tengo el problema de quitar un elemento de una lista. Qu茅 funci贸n existe?
Gracias.
Gracias.
Juan Diego
29 de Mayo del 2005
Se debe de hacer desde codigo ya que como sabes no se puede desde las propiedades del Form:
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_BYPOSITION = 1024
Private Sub Form_Load()
Dim lHndSysMenu As Long
Dim lAns1 As Long, lAns2 As Long
lHndSysMenu = GetSystemMenu(Form1.hwnd, 0)
lAns1 = RemoveMenu(lHndSysMenu, 6, MF_BYPOSITION)
lAns2 = RemoveMenu(lHndSysMenu, 5, MF_BYPOSITION)
End Sub
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_BYPOSITION = 1024
Private Sub Form_Load()
Dim lHndSysMenu As Long
Dim lAns1 As Long, lAns2 As Long
lHndSysMenu = GetSystemMenu(Form1.hwnd, 0)
lAns1 = RemoveMenu(lHndSysMenu, 6, MF_BYPOSITION)
lAns2 = RemoveMenu(lHndSysMenu, 5, MF_BYPOSITION)
End Sub
Raziel
29 de Mayo del 2005
Gracias por tu respuesta. Funcionando al 100%. Un saludo.