title image


Smiley Re: Windows-Fenster maximieren
Hallo,Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As LongSub MaxoderMin()Dim appAccess As ObjectDim lngret As LongSet appAccess = CreateObject("Access.Application.8")appAccess.OpenCurrentDatabase "T:\Test.mdb"appAccess.DoCmd.OpenForm "Hauptmenue" 'öffnet StartbildschirmappAccess.Visible = True 'macht neue Datenbank sichtbarappAccess.DoCmd.Maximize 'maximiert BildappAccess.UserControl = True 'stellt die neu geöffnete Anwendung so ein, als wenn der Benutzer sie aufgemacht hätte - notwendig, da ansonsten beim Schließen der Datenbank die neue auch wieder zugeht.'lngret = apiShowWindow(appAccess.hWndAccessApp, 1) 'normal'lngret = apiShowWindow(appAccess.hWndAccessApp, 2) 'minimiertlngret = apiShowWindow(appAccess.hWndAccessApp, 3) 'maximiertApplication.QuitEnd SubDocmd.QuitWalter Griesser

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: