title image


Smiley Re: "Fenster-Wiederherstellen-Symbol" ausblenden
Hallo Gerry,leider reicht da eine API-Funktion nicht für aus; es scheint wirklich unmöglich zu sein, in einem maximierten Fenster diese Schaltflächen auszublenden. Aber natürlich gibt es einen Trick: sorge einfach dafür, daß das Formular nicht maximiert ist, sondern den ganzen in Access zur Verfügung stehenden Platz einnimmt. Und das kannst Du allerdings mit API-Funktionen machen.Der folgende Code ist nicht allein auf meinem Mist gewachsen; er geht auf Terry Kreft, Dev Ashish und andere Access-Gurus zurück. Ich habe ihn für meine Zwecke etwas angepaßt.Dieser Code kommt in ein normales Standard-Modul:Type Rechteck x_min As Long y_min As Long x_max As Long y_max As LongEnd TypeDeclare Function GetClientRect Lib "User32" (ByVal hWnd As Long, _ lpRect As Rechteck) As LongDeclare Function GetParent Lib "User32" (ByVal hWnd As Long) As LongDeclare Function MoveWindow Lib "User32" (ByVal hWnd As Long, _ ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, _ ByVal nHeight As Long, ByVal bRepaint As Long) As Long Sub MaximiereFast(Formular As Form) Dim Fenster As Rechteck GetClientRect GetParent(Formular.hWnd), Fenster MoveWindow Formular.hWnd, 0, 0, _ Fenster.x_max - Fenster.x_min, _ Fenster.y_max - Fenster.y_min, TrueEnd SubUnd den folgenden Code setzt Du in die "Beim Öffnen"-Ereignisprozedur des Formulars:Private Sub Form_Open(Cancel As Integer) Application.Echo False DoCmd.Restore MaximiereFast Me Application.Echo TrueEnd SubDamit sieht das Formular fast so aus wie ein maximiertes Fenster, und wenn Du die Min/Max-Schalter, das Systemmenü und ggf. den Schließen-Schalter ausgeblendet hast, dann hast Du Dein Formular fast so, wie Du willst.Viel Erfolg!AndreasTips & Tricks zu Access, Excel, VBA und Co:www.wuestefeld-online.de

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: