Jag såg att det fanns ett bra tips här för att disabla close rutan i en form Tjena !! Hur tar jag bort Minimze, Maximize och close???
men hur gör jag för att ta bort alla tre så att dom inte syns??
Tacksam för svarSv: Hur tar jag bort Minimze, Maximize och close??
Det lättaste sättet är att i Propeties för formen ändra till
Borderstyle = 0 -None. Men då har ni ingen 3D ram runt formen.
men det tar bort alla knappar.
Du kan också ändra
ninibuttom=false
maxbuttom=false
för att ta bort Closebuttom
lägg det här i ex: Form1 eller vad din form hetter
--------------------------------------------------------------
Option Explicit
Dim mnuPopup As Long
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, _
ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" _
(ByVal hMenu 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 Declare Function DrawMenuBar Lib "user32" _
(ByVal hwnd As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&
--------------------------------------------------
Private Sub DisableX()
Dim hMenu As Long
Dim nCount As Long
hMenu = GetSystemMenu(Me.hwnd, 0)
nCount = GetMenuItemCount(hMenu)
'Get rid of the Close menu and its separator
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)
'Make sure the screen updates
'our change
DrawMenuBar Me.hwnd
End Sub
------------------
' skriv sen DisableX i
Private sub Form_Load ()
DisableX i
End Sub
Tja !
Tobbe