Elite Veteran
Beiträge: 869
Ort: Wien | Hallo, Dirk!
hochlenert - 15.03.15
... die Fläche des Access-Fensters, aber nicht die Position des Access-Fensters auf dem Bildschirm. Oder ich hab's nicht kapiert?
Wie gesagt, Code reduzieren und ein bissel anpassen. z.B.
Private Declare Function apiGetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As typRect) As Long
Private Type typRect
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Sub procAccessPos()
Dim varAccess As typRect
Call apiGetWindowRect(hWndAccessApp, varAccess)
Debug.Print varAccess.Left, varAccess.Right, varAccess.Top, varAccess.Bottom
End Sub
Gibt bei mir (in A2010) die Position des Access-Hauptfensters am Bildschirm in Pixel.
----- Servus
Karl
*********
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek - Jetzt anmelden für 19./20.10. in Nürnberg
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |