关于父子窗口缩放问题涉及到控件的位置以及缩放，求大侠赐教（已解决）

chzj589

回复 15# cqboyqx
这样试试

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

Global $Form1, $Form1_1

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 539, 330, -1, -1, $WS_MAXIMIZEBOX + $WS_MINIMIZEBOX + $WS_SIZEBOX)
$Tab1 = GUICtrlCreateTab(8, 8, 513, 97)
GUICtrlSetResizing(-1, 2 + 4 + 544)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$Edit1 = GUICtrlCreateEdit("", 16, 40, 489, 50)
GUICtrlSetResizing(-1, 2 + 4 + 544)
GUICtrlSetData(-1, "左上右不变，高度不变，随窗口变宽而变宽")
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlCreateTabItem("")
$Form1_1 = GUICreate("", 540, 212, -2, 100, BitOR($WS_CHILD, $WS_TABSTOP), -1, $Form1)
$Group1 = GUICtrlCreateGroup("Group1", 8, 10, 513, 185)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKTOP + $GUI_DOCKBOTTOM)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ListView1 = GUICtrlCreateListView("", 16, 25, 370, 158)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKTOP + $GUI_DOCKBOTTOM)
$Edit2 = GUICtrlCreateEdit("", 392, 25, 113, 161)
GUICtrlSetData(-1, "上下右不变，随窗口##CRLF##拉宽移位，拉高而变高")
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKTOP + $GUI_DOCKBOTTOM + $GUI_DOCKWIDTH)
;GUICtrlSetResizing(-1, 802 );$GUI_DOCKALL
GUISetState(@SW_SHOW, $Form1)
GUISetState(@SW_SHOW, $Form1_1)

#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $GUI_EVENT_RESIZED
                        RESIZED()
                Case $GUI_EVENT_MAXIMIZE
                        RESIZED()
                Case $GUI_EVENT_RESTORE
                        RESIZED()
        EndSwitch
WEnd
Func RESIZED()
        Local $aClientSize = WinGetClientSize($Form1)
        ; 主窗口客户区的高度和宽度.
        WinMove($Form1_1, "", Default, Default, $aClientSize[0], $aClientSize[1] - 100)
EndFunc   ;==>RESIZED

　

志艺风云

我的代码真的是没问题的，16楼的只是创建两个窗口的代码后再一起显示，这个显示是没有影响的。

你试试这个正不正常
多TAB窗口，支持窗口缩放，控件定位等

cqboyqx

回复 17# 志艺风云

嗯，发现是au3版本问题发现
    谢谢你和CHZJ589大侠的帮助，灰常感谢