我最近購買了34英寸寬屏幕顯示器。我正在使用戴爾顯示器管理器來設置不同的窗口,使我能夠整齊地打開多個Word文檔等。訪問窗口調整大小
當我使用Access時,我可以將應用程序窗口正確對接至屏幕的1/2或1/3。但是,當我打開表單(因爲它可能是一個孩子?)時,它不會保留在父窗口或Dell顯示管理器的範圍內。
所以,我的想法是調整任何彈出窗體的大小相同的左,頂部,寬度和高度的父訪問窗口的尺寸。
然而,儘管嘗試了幾種不同的技術,我還沒有能夠實現這一點。
有人有什麼想法嗎?
謝謝!
編輯:謝謝Jashin。我已經實現了你的代碼,但是表單仍然沒有按照我的預期顯示出來。這是我使用的代碼:
SetWindowPos hWndChild, hWndParent, mainRECT.wdw_left, mainRECT.wdw_top, mainRECT.wdw_right, mainRECT.wdw_bottom, &H4
加載窗體時的高度和左稍微偏離,但形式是真的瘦了。我試圖從mainRECT.wdw_right獲取寬度 - mainRECT.wdw_left,但它有相同的結果。
最終編輯:瞭解了@Jashin提供的一些代碼。下面是最終代碼:
Dim hWndParent As LongPtr
Dim hWndChild As LongPtr
Dim mainRECT As RECT
hWndParent = Application.hWndAccessApp
hWndChild = Me.hwnd
GetWindowRect hWndParent, mainRECT
SetParent hWndChild, hWndParent
SetWindowPos hWndChild, 0, mainRECT.wdw_left, mainRECT.wdw_top, mainRECT.wdw_right - mainRECT.wdw_left, mainRECT.wdw_bottom, &H4
Me.SetFocus
DoCmd.MoveSize 0, 0`