title image


Smiley Ich hab´ne Lösung !
Hallo Pope,Ich hab´ eine API-basierende Lösung gebastelt, um die Maximieren und Minimieren-Buttons von Access verschwinden zu lassen !Hier der Code für ein Modul:Option Compare DatabaseOption ExplicitPublic Const WS_MAXIMIZEBOX = &H10000Public Const WS_MINIMIZEBOX = &H20000Public Const GWL_STYLE As Long = (-16)Public Const SWP_DRAWFRAME As Long = &H20Public Const SWP_NOMOVE As Long = &H2Public Const SWP_NOSIZE As Long = &H1Public Const SWP_NOZORDER As Long = &H4Public Const SWP_FLAGS As Long = SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME Public Declare Function GetWindowLong Lib "user32" _ Alias "GetWindowLongA" _ (ByVal hWnd As Long, _ ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" _ Alias "SetWindowLongA" _ (ByVal hWnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Public Declare Function SetWindowPos Lib "user32" _ (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _ ByVal x As Long, ByVal Y As Long, _ ByVal cx As Long, ByVal cy As Long, _ ByVal wFlags As Long) As LongPublic Function KillMaxMin()Dim style As Long 'aktueller Access-Window-Style style = GetWindowLong(Application.hWndAccessApp, GWL_STYLE) 'modifizieren des Access-Window-Styles style = style Xor WS_MAXIMIZEBOX style = style Xor WS_MINIMIZEBOX 'neuen Style setzen und aktualisieren If style Then Call SetWindowLong(Application.hWndAccessApp, GWL_STYLE, style) Call SetWindowPos(Application.hWndAccessApp, 0, 0, 0, 0, 0, SWP_FLAGS) End IfEnd FunctionRufe einfach die Funktion "KillMaxMin()" auf und die Buttons verschwinden.GrußAndre

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: