Hej Hej Pelle Prova följande kod som funkar bra för mig!Ändra egenskaper för CloseButton
Jag undrar om det är någon som vet hur man kan ändra egenskapen för closebutton ex:closebutton.enabled=false ? (X knappen)
har försökt med lite av varje men ej lyckats är det någon som vet ?
MVH
Tobbe Sv: Ändra egenskaper för CloseButton
Jag kollade på din länk, men det jag är ute efter det är att kunna
Enabla och Disable knappen X (CloseButton) vid olika tillfällen.
Vad jag förstår så gällde koden på länksidan att tabort mini/maxi
knapparna? kollade inte så noga men!!!
Tack i alla fall :-)
Mvh
TobbeSv: Ändra egenskaper för CloseButton
Option Explicit
Public Const SC_MAXIMIZE = &HF030&
Public Const SC_MINIMIZE = &HF020&
Public Const SC_CLOSE = &HF060
Public Const MF_BYCOMMAND = &H0
Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function DeleteMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Public Sub Disablebutton(ByVal frmHwnd As Long)
Dim hMenu As Long
hMenu = GetSystemMenu(frmHwnd, 0&)
If hMenu Then
Call DeleteMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND) 'Välj knapp att disabla
DrawMenuBar (frmHwnd)
End If
End Sub
Public Sub Enablabutton(ByVal frmHwnd As Long)
Dim hMenu As Long
hMenu = GetSystemMenu(frmHwnd, 1&)
If hMenu Then
DrawMenuBar (frmHwnd)
End If
End Sub
/Leif