Domino 9 und frühere Versionen > ND6: Entwicklung

API - ist Notes minimiert?

(1/2) > >>

klaussp:
Hallo Zusammen,

ich bin nach wie vor auf der Suche nach einer Funktion, mit der man prüfen kann ob Notes gerade minimiert ausgeführt wird. Das muss doch über die API zu machen sein, ich weis allerdings nicht wie ich das ganze richtig anstelle.

Mein Ansatz wäre die Funktion "FindWindow"

--- Code: ---Declare Function FindWindow Lib "user32" Alias"FindWindowA" (Byval lpClassName As String, Byval lpWindowName As String) As Long
--- Ende Code ---

Aber wie finde ich nun heraus ob Notes minimiert ist?

Grüße an die API-Experten, Klaus

eknori:
Willst du nur wissen, ob die Anwendung minimiert ist, oder willst du dann mit deinem Wissen was anstellen ?

gucke dir mal http://www.vbarchiv.net/vbapi/ShowWindow.php an. Damit kannst du das machen, was du möchtest

klaussp:
Hallo eknori,

Danke für den Tip. Ich muss nur wissen ob Notes gerade minimiert ist, damit ich bestimmte Befehle nicht ausführe die dann auf einen Fehler laufen (ws.reloadwindow).

Wie spreche ich die Funktion in Notes so an, damit ich einen brauchbaren Wert bekomme? 'Me' scheint es in Notes nicht zu geben?


--- Code: ---    ShowWindow Me.hwnd , SW_HIDE
--- Ende Code ---

Vielen Dank für Deine Hilfe, Grüße Klaus

eknori:
hmm, geht noch einfacher mit http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/windows/windowreference/windowfunctions/iswindowvisible.asp

oder auch mit http://www.answers.com/topic/iswindowenabled

klaussp:
hmm....



--- Code: ---OPTIONS:
Declare Function IsWindowEnabled Lib "user32" Alias "IsWindowEnabled" ( Byval hwnd As Long ) As Long
'END OPTIONS

Sub test
On errror Goto errorhandler

Dim wasenabled As Long  'receives enabled/disabled status of Command1
Dim retval As Long  ' return value

    ' Determine if the window Command1 is currently enabled or not.
wasenabled = IsWindowEnabled(Command1.hwnd)
Msgbox Cstr(wasenabled)
Exit Sub

errorhandler:
Msgbox " "  + Error$ + " !!   Zeile: " + Str(Erl)
Exit Sub
End Sub
--- Ende Code ---

Wie weise ich meiner aktuellen Lotus Notes Anwendung zu Command1 zu???
Das hier läuft immer hinaus auf "Variant does not contain an Object"

Grüße Klaus

Navigation

[0] Themen-Index

[#] Nächste Seite