Hej
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

http://www.pellesoft.nu/tips/_form/mdiexit.htm

/Pelle

Hej Pelle
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
Tobbe

Prova följande kod som funkar bra för mig!

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