chzj589 发表于 2018-4-2 17:06:42

回复 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, $aClientSize - 100)
EndFunc   ;==>RESIZED
 

志艺风云 发表于 2018-4-2 18:32:00

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

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

cqboyqx 发表于 2018-4-3 08:23:12

回复 17# 志艺风云

嗯,发现是au3版本问题发现
    谢谢你和CHZJ589大侠的帮助,灰常感谢
页: 1 [2]
查看完整版本: 关于父子窗口缩放问题涉及到控件的位置以及缩放,求大侠赐教(已解决)