红色框起来的区域用什么控件来做？【已解决】

xms77

我的想法是用GUICtrlCreateGraphic(10, 50, 700, 600)来做，但是控件的右边界不能随主窗体的大小变化而变化，不知道用什么方法来实现？

afan

一个设置背景色和扩展样式 0x200 的Label不就行了，谁知道那个是干什么的

afan

GUICreate('')
GUICtrlCreateLabel('', 1, 20, 400, 358, -1, 0x200)
GuiCtrlSetBKColor(-1, 0x848285)
GUISetState()
While GUIGetMsg() <> -3
WEnd

xms77

回复 2# afan
这个就好像是容器一样可以放窗体的，如图。

zch11230

回复 4# xms77


    这种AU3也可以吗?求实现

lanfengc

回复 4# xms77


    那是一个父窗口的背景。。。 窗体设置为父窗口的时候， 然后再新建一个子窗体，那个子窗体就会出现在主窗口的客户区， 也就是你说的这个容器……

vason1019

控件有码的吗

lixiaolong

回复 1# xms77

#include <GuiStatusBar.au3>

Global Const $WM_SIZE = 0x05
Global Const $WM_GETMINMAXINFO = 0x0024
Global Const $GUI_RUNDEFMSG = 'GUI_RUNDEFMSG'

$width = 588
$hight = 500

$pichight = 459
$labelhight = 460
$labelhight2 = 80

$GUI = GUICreate('Low Cost Gramload Tester Program (Ver2.2A)', $width, $hight, -1, -1, 0x00070000)

$menu1 = GUICtrlCreateMenu("&File")
$menu2 = GUICtrlCreateMenu("Set-&Up")
$menu3 = GUICtrlCreateMenu("&Production")
$menu4 = GUICtrlCreateMenu("&Window")
$menu5 = GUICtrlCreateMenu("&Help")

GUICtrlCreatePic("", 0, -1, $width, $hight - $pichight, 0x08000000, 0x0007)
GUICtrlSetResizing(-1, 512 + 32)

$ico1 = GUICtrlCreateIcon("shell32.dll", -1, 5, 2, 32, 32, -1, 0x0007)
GUICtrlSetResizing(-1, 770 + 32)
$ico2 = GUICtrlCreateIcon("shell32.dll", -2, 38, 2, 32, 32, -1, 0x0007)
GUICtrlSetResizing(-1, 770 + 32)
$ico3 = GUICtrlCreateIcon("shell32.dll", -3, 70, 2, 32, 32, -1, 0x0007)
GUICtrlSetResizing(-1, 770 + 32)
$ico4 = GUICtrlCreateIcon("shell32.dll", -4, 102, 2, 32, 32, -1, 0x0007)
GUICtrlSetResizing(-1, 770 + 32)

$Graphic = GUICtrlCreateGraphic(0, $hight - $labelhight, $width, $hight - $labelhight2, -1)
GUICtrlSetBkColor(-1, 0x848285)
GUICtrlSetResizing(-1, 32)

$hStatus = _GUICtrlStatusBar_Create($GUI, -1, '', $SBARS_SIZEGRIP, 0x0007)
;===============================================================================
_GUICtrlStatusBar_SetParts($hStatus, -1)

GUISetState()

;注册Windows消息函数
GUIRegisterMsg($WM_SIZE, "WM_SIZE")
GUIRegisterMsg($WM_GETMINMAXINFO, "WM_GETMINMAXINFO")

While 1
        $msg = GUIGetMsg()
        Select
                Case $msg = -3
                        Exit
                Case $msg = $ico1
                        ButtonAnime($GUI, $ico1)
                Case $msg = $ico2
                        ButtonAnime($GUI, $ico2)
                Case $msg = $ico3
                        ButtonAnime($GUI, $ico3)
                Case $msg = $ico4
                        ButtonAnime($GUI, $ico4)
        EndSelect
WEnd

Func ButtonAnime($_Hwd, $_Botton)
        Local $_pos = ControlGetPos($_Hwd, "", $_Botton)
        GUICtrlSetPos($_Botton, $_pos[0] + 1, $_pos[1] + 1)
        Sleep(100)
        GUICtrlSetPos($_Botton, $_pos[0], $_pos[1])
EndFunc   ;==>ButtonAnime


;根据窗口大小，调整状态栏
Func WM_SIZE($hWnd, $iMsg, $iwParam, $ilParam)
        #forceref $hWnd, $iMsg, $iwParam, $ilParam
        _GUICtrlStatusBar_Resize($hStatus)
        GUICtrlSetPos($Graphic, 0, $hight - $labelhight, @DesktopWidth * 3, @DesktopHeight * 3)
        Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_SIZE

Func WM_GETMINMAXINFO($hWnd, $msg, $wparam, $lparam)
        Local $tagMINMAXINFO = "int;int;int;int;int;int;int;int;int;int"
        $MINMAXINFO = DllStructCreate($tagMINMAXINFO, $lparam)
        DllStructSetData($MINMAXINFO, 7, 300) ;minx
        DllStructSetData($MINMAXINFO, 8, 200) ;miny
        DllStructSetData($MINMAXINFO, 9, @DesktopWidth) ;maxx
        DllStructSetData($MINMAXINFO, 10, @DesktopHeight - 30) ;maxy
EndFunc   ;==>WM_GETMINMAXINFO

xms77

回复 8# lixiaolong
太感谢了！试了下，在鼠标拖动改变窗体大小的过程中，窗体区域会白花花的闪，不知道能不能解决?

lixiaolong

回复 9# xms77

可能是CPU有关吧，我的电脑没问题，但是在虚拟机上和你一样的现象...

sgj584520

学习了，谢谢

xz00311

学到这源码好谢谢

lsszmj

收藏了，谢谢分享