Come disabilitare il bottone X del ControllBox del Form.
Aggiungere un modulo ed inserire il seguente codice:
Option Explicit
Declare Function GetSystemMenu Lib "User32" _
(ByVal hWnd As Long, ByVal bRevert _
As Integer) As Long
Declare Function RemoveMenu Lib "User32" _
(ByVal hMenu As Long, ByVal nPosition _
As Long, ByVal wFlags As Long) As Long
Public Const MF_BYPOSITION = &H400
Public Function DisabilitaX(myForm As Form) As Long
Dim SystemMenu As Long
SystemMenu = GetSystemMenu(myForm.hWnd, 0)
DisabilitaX = RemoveMenu(SystemMenu, 6, MF_BYPOSITION)
End Function
Nel Form inserire inserire un CommandButton ed il seguente codice:
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
DisabilitaX Me
End Sub
Eseguire l'applicazione e vedrai il Bottone X (chiudi) disabilitato.
Testato su: Windows 98, Windows Me, Windows 2000
Professional