Office: (Office 2010) Eigenes Access Taskleistensymbol?

Gold_Phönix · 23. Januar 2011

Hallo Leute

ich habe mein Access Hauptfenster mit der Hilfe von microsoft ausgeblendet, sodass nur die Formulare zu sehen sind. Aber leider gibt es nun kein Taskleistensymbol mehr.
Das mit dem Ausblenden musste sein und die Lösung von microsoft war eine schnelle und leichte Lösung
siehe Link: http://support.microsoft.com/kb/510049/de
nur brauche ich das Symbol in der Taskleiste, wenn ich wieder auf die Anwendung zugreifen möchte, nachdem ich mit einem anderen Programm gearbeitet habe.
Zurzeit muss ich immer, wenn ich Access nicht über den selbst eingebauten Schließbutton auf dem Startformular ordentlich schließe, sondern ausversehen wegklicke, dann muss ich Access über den Task Manager schließen.
Was ja nun wirklich nicht gerade schön und umständlich ist.
Daher meine Frage, kann ich mir ein eigenes Taskleistensymbol für Access basteln oder für ein oder mehrere Formulare?

VBA-Kenntnisse habe ich und ich weis auch das man über ALT-Tab die Anwendung wieder habe, nur möchte ich gerne ein Symbol, denn ALT-Tab funktioniert nicht immer

Grüße *wink.gif*

:)

Josef P. · 25. Januar 2011

Hallo!

Das mit dem Ausblenden musste sein
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Daraus schließe ich, dass du mehrere Formular gleichzeitig offen hast.
Dann müsstest du eigentlich für jedes geöffnete Formular ein Taskleistensymbol anzeigen.

Eventuell wäre es eine Notlösung, wenn du den Zugriff auf die geöffneten Formulare über ein TrayIcon/NotifyIcon ermöglichst. Das sollte mittels API möglich sein.

mfg
Josef

--=Franky=-- · 25. Januar 2011

Hallo,

auf der MS-Seite steht aber auch:

Das Verstecken des Hauptfensters mittels API stellt nur in Ausnahmefällen eine gute Lösung dar z.B. für Anwendungen, die nur aus einem oder wenigen Formularen bestehen. Für größere Applikationen ist es in der Regel nicht geeignet, weil auch in der Taskleiste von Windows nichts mehr von der Anwendung zu sehen ist. Das gewohnte Hin- und Herwechseln zwischen allen geöffneten Anwendungen über die Taskleiste ist daher nicht möglich. Ebenso entspricht das Fenster-Handling nicht dem Windows-Standard.

In größeren Applikationen empfiehlt sich daher die Verwendung der standardmäßig in Access eingebauten Möglichkeiten, den Zugriff des Anwenders auf das Access-Hauptfenster zu verhindern. Dazu gehören eigene Symbol- und Menüleisten, Ausblenden des Datenbankfensters und evtl. die Verwendung von Formularen ohne Rahmen etc.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Unter Extras Start, kannst Du doch ein beliebiges Symbol auswählen.
Es gibt auch Möglichkeiten das Symbol binär in Access zu speichern, findest Du auch mit der Suche hier im MOF.

P.S.: Das mit dem musste sein, das habe ich überlesen *frown.gif*

Gold_Phönix · 10. Februar 2011

Also ein Kollege von mir hat das nun folgendermaßen gelöst und es funktioniert wunderbar *biggrin.gif*

ein paar von den Funktionen können aber auch weggelassen werden....

Code:

Const SW_HIDE = 0 ' Fenster ausblenden
Const SW_NORMAL = 1 ' Fenster wiederherstellen bzw. einblenden
Private Declare Function ShowWindow Lib "user32" _
(ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

'================= Taskleistensymbol =================='
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) 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 Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function GetActiveWindow Lib "user32.dll" _
() As Long
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Function DrawMenuBar Lib "user32" _
(ByVal hWnd As Long) As Long

'Constants
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const GWL_EXSTYLE = (-20)
Private Const HWND_TOP = 0
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_SHOWWINDOW = &H40
Private Const WS_EX_APPWINDOW = &H40000
Private Const GWL_STYLE = (-16)
Private Const WS_MINIMIZEBOX = &H20000
Private Const SWP_FRAMECHANGED = &H20
Private Const WM_SETICON = &H80
Private Const ICON_SMALL = 0&
Private Const ICON_BIG = 1&

Private Sub UserForm_Activate()
AddIcon 'Add an icon on the titlebar
AddMinimiseButton 'Add a Minimize button to Userform
AppTasklist Me 'Add this userform into the Task bar
End Sub

Private Sub AddIcon()
'Add an icon on the titlebar
Dim hWnd As Long
Dim lngRet As Long
Dim hIcon As Long
hIcon = Sheet1.Image1.Picture.Handle
hWnd = FindWindow(vbNullString, Me.Caption)
lngRet = SendMessage(hWnd, WM_SETICON, ICON_SMALL, ByVal hIcon)
lngRet = SendMessage(hWnd, WM_SETICON, ICON_BIG, ByVal hIcon)
lngRet = DrawMenuBar(hWnd)
End Sub

Private Sub AddMinimiseButton()
'//Add a Minimize button to Userform
Dim hWnd As Long
hWnd = GetActiveWindow
Call SetWindowLong(hWnd, GWL_STYLE, _
GetWindowLong(hWnd, GWL_STYLE) Or _
WS_MINIMIZEBOX)
Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, _
SWP_FRAMECHANGED Or _
SWP_NOMOVE Or _
SWP_NOSIZE)
End Sub

Private Sub AppTasklist(myForm)
'Add this userform into the Task bar
Dim WStyle As Long
Dim Result As Long
Dim hWnd As Long

'hWnd = FindWindow(vbNullString, myForm.Caption)
WStyle = GetWindowLong(myForm, GWL_EXSTYLE)
WStyle = WStyle Or WS_EX_APPWINDOW
Result = SetWindowPos(myForm, HWND_TOP, 0, 0, 0, 0, _
SWP_NOMOVE Or _
SWP_NOSIZE Or _
SWP_NOACTIVATE Or _
SWP_HIDEWINDOW)
Result = SetWindowLong(myForm, GWL_EXSTYLE, WStyle)
Result = SetWindowPos(myForm, HWND_TOP, 0, 0, 0, 0, _
SWP_NOMOVE Or _
SWP_NOSIZE Or _
SWP_NOACTIVATE Or _
SWP_SHOWWINDOW)
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
End Sub

'========================= Taskleistensymbol Ende ===================

Private Sub Form_Load()

'Taskleistensymbol sichtbarmachen
ShowInTaskbar = True

'Access ausblenden
Dim hWindow As Long
Dim nResult As Long
Dim nCmdShow As Long
hWindow = Application.hWndAccessApp
nCmdShow = SW_HIDE
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
Call ShowWindow(Me.hWnd, SW_NORMAL)
Call AppTasklist(Me.hWnd) 'Taskleistensymbol

'Ende
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2010) Eigenes Access Taskleistensymbol?

Eigenes Access Taskleistensymbol?

Eigenes Access Taskleistensymbol?

Eigenes Access Taskleistensymbol?

Eigenes Access Taskleistensymbol? - Similar Threads - Access Taskleistensymbol

Ausdruck eines Etiketts auf verschiedenen PCs steuern

Access als Mediaplayer

Smarttags in Access LTE (2021)

Excel zu Access

Access Neuer Datensatz im Formular

automatische Abfrage URL via Artikelnummer

Suche: Deutsche Vorlage der Schülerverwaltung DB