Forums Neueste Beiträge
 

Menüleisten nach Wiedereinblenden des Access Fensters nicht sichtb

26/12/2007 - 15:59 von Björn Benatzky | Report spam
Hey,

ich hab folgendes Problem:
mit der folgenden Funktion blende ich das Access Hauptfenster aus und wieder
ein.

*********************************
Private hWindow As Long
Private nResult As Long
Prvate nCmdShow As Long

Public Const SW_HIDE = 0 ' Fenster ausblenden
Public Const SW_NORMAL = 1 ' Fenster wiederherstellen bzw. einblenden

Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow
As Long) As Long

*********************************

hWindow = Application.hWndAccessApp
nCmdShow = SW_HIDE
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
ShowWindow (Me.hWnd, SW_NORMAL)

*********************************

hWindow = Application.hWndAccessApp
nCmdShow = SW_NORMAL
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
Call ShowWindow(Me.hWnd, SW_NORMAL)
DoCmd.SelectObject acForm, , True

*********************************

Aber wenn ich das Fenster wieder einblende, sind die Menüleisten nicht
sichtbar. Erst wenn ich das Fenster erneut aus- und wieder einblende, sind
fortan die Menüleisten immer wieder sichtbar. Wieso?

Danke im Voraus für die Hilfe.
Gruß
Björn
 

Lesen sie die antworten

#1 Peter Doering
30/12/2007 - 11:23 | Warnen spam
Hallo,

Björn Benatzky wrote:

ich hab folgendes Problem:
mit der folgenden Funktion blende ich das Access Hauptfenster aus und wieder
ein.

*********************************
Private hWindow As Long
Private nResult As Long
Prvate nCmdShow As Long

Public Const SW_HIDE = 0 ' Fenster ausblenden
Public Const SW_NORMAL = 1 ' Fenster wiederherstellen bzw. einblenden

Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow
As Long) As Long

*********************************

hWindow = Application.hWndAccessApp
nCmdShow = SW_HIDE
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
ShowWindow (Me.hWnd, SW_NORMAL)

*********************************

hWindow = Application.hWndAccessApp
nCmdShow = SW_NORMAL
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
Call ShowWindow(Me.hWnd, SW_NORMAL)
DoCmd.SelectObject acForm, , True

*********************************

Aber wenn ich das Fenster wieder einblende, sind die Menüleisten nicht
sichtbar. Erst wenn ich das Fenster erneut aus- und wieder einblende, sind
fortan die Menüleisten immer wieder sichtbar. Wieso?



Ich konnte das Problem bei mir nicht nachstellen, d.h. die Menueleisten
waren nach dem ersten Einblenden (nResult = ...) wieder da.

Du kannst ja mal die ueblichen Spielereien probieren:

DoEvents
Me.Repaint

Gruss - Peter

Ich beantworte keine Fragen per Email.
Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Ähnliche fragen