红色框起来的区域用什么控件来做？【已解决】
本帖最后由 xms77 于 2012-2-29 21:52 编辑我的想法是用GUICtrlCreateGraphic(10, 50, 700, 600)来做，但是控件的右边界不能随主窗体的大小变化而变化，不知道用什么方法来实现？
一个设置背景色和扩展样式 0x200 的Label不就行了，谁知道那个是干什么的 GUICreate('')
GUICtrlCreateLabel('', 1, 20, 400, 358, -1, 0x200)
GuiCtrlSetBKColor(-1, 0x848285)
GUISetState()
While GUIGetMsg() <> -3
WEnd 回复 2# afan
这个就好像是容器一样可以放窗体的，如图。 回复 4# xms77
这种AU3也可以吗?求实现 回复 4# xms77
那是一个父窗口的背景。。。 窗体设置为父窗口的时候， 然后再新建一个子窗体，那个子窗体就会出现在主窗口的客户区， 也就是你说的这个容器…… 控件有码的吗 本帖最后由 lixiaolong 于 2012-2-28 16:16 编辑
回复 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 + 1, $_pos + 1)
Sleep(100)
GUICtrlSetPos($_Botton, $_pos, $_pos)
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 回复 8# lixiaolong
太感谢了！试了下，在鼠标拖动改变窗体大小的过程中，窗体区域会白花花的闪，不知道能不能解决? 回复 9# xms77
可能是CPU有关吧，我的电脑没问题，但是在虚拟机上和你一样的现象... 学习了，谢谢 学到这源码好谢谢 收藏了，谢谢分享
页:
[1]