Supportnet / Forum / Datenbanken
Formular Vollbildschirm (Access)
Frage
Hallo,
Gibt es ein Möglichkeit ein Formular im Vollbildschirm modus (analog Bildschirmansicht Power Point) anzeigen zu lassen?
Bisher habe ich es mit DoCmd.Maximize probiert, allerdings werden dort noch die ganzen Access-Funktionsleisten angezeigt.
Habt ihr vielleicht ne Idee wie noch ein bisschen besser geht?
Danke Connie
Antwort 1 von Teddy7
nein - es sein denn Du blendest die Accessleisten aus.
Gruß
Teddy
Gruß
Teddy
Antwort 2 von Connie
Danke. Wie kann ich die Accessleisten ausblenden?
Ich hab es über Extras/Anpassen/Menüs immer vollständig anzeigen versucht - leider ohne sichtbaren erfolg.
Grüße Connie
Ich hab es über Extras/Anpassen/Menüs immer vollständig anzeigen versucht - leider ohne sichtbaren erfolg.
Grüße Connie
Antwort 3 von Teddy7
Hab ich noch nicht gemacht - aber ich hab mir mal diesen Code kopiert:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private 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 Long
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_HIDEWINDOW = &H80
Public Function HideTray()
Dim hWnd As Long
´ Taskleiste ausblenden
hWnd = FindWindow("Shell_TrayWnd", 0&)
SetWindowPos hWnd, 0&, 0&, 0&, 0&, 0&, SWP_HIDEWINDOW
End Function
Public Function ShowTray()
Dim hWnd As Long
´ Taskleiste einblenden
hWnd = FindWindow("Shell_TrayWnd", 0&)
SetWindowPos hWnd, 0&, 0&, 0&, 0&, 0&, SWP_SHOWWINDOW
End Function
Aufruf dann z.B.:
Call HideTray ´ blendet Taskleiste aus
Gruß
Teddy
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private 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 Long
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_HIDEWINDOW = &H80
Public Function HideTray()
Dim hWnd As Long
´ Taskleiste ausblenden
hWnd = FindWindow("Shell_TrayWnd", 0&)
SetWindowPos hWnd, 0&, 0&, 0&, 0&, 0&, SWP_HIDEWINDOW
End Function
Public Function ShowTray()
Dim hWnd As Long
´ Taskleiste einblenden
hWnd = FindWindow("Shell_TrayWnd", 0&)
SetWindowPos hWnd, 0&, 0&, 0&, 0&, 0&, SWP_SHOWWINDOW
End Function
Aufruf dann z.B.:
Call HideTray ´ blendet Taskleiste aus
Gruß
Teddy
Antwort 4 von Connie
Danke Teddy.
Wo muss ich den Code "hinzufügen"?. Bei Eigenschaften des Formulares --> "Beim Öffnen"?
Danke Connie
Wo muss ich den Code "hinzufügen"?. Bei Eigenschaften des Formulares --> "Beim Öffnen"?
Danke Connie
Antwort 5 von Teddy7
wie gesagt - ich hab´s noch nie gemacht. Aber ich nehme mal an, ja !