Vorrei eliminare la X di chiusura ed il pulsante di ingrandimento di una finestra ma non riesco a farlo.
Sono riuscito con un codice a rendere grigio la X ma non e' la soluzione che desidero anche perche' quando la finestra non e' piu' selezionata la X non diventa piu' grigia.
Ho usato il seguente codice:
non mi e' di aiuto il post trovato con la ricerca qui c'e' un metodo per fare quello che richiedo o mi devo arrendere?codice:Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As IntPtr) As Integer Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As IntPtr) As Boolean Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As IntPtr, ByVal nPosition As Integer, ByVal wFlags As Long) As IntPtr Private Const MF_REMOVE = &H1000 Private Const MF_DISABLED = &H2 Private Const SC_CLOSE = &HF060 Private Sub Form_Load() Dim HandleMenu As Integer HandleMenu = GetSystemMenu(Me.Handle, 0) Call RemoveMenu(HandleMenu, SC_CLOSE, MF_REMOVE) DrawMenuBar(Me.Handle) end sub
Ciao e grazie

Rispondi quotando