父窗口如何当条件触发时向子窗口listbox中添加项目

oceanwind

父窗口如何当条件触发时向子窗口listbox中添加项目
当打开子窗口时 父窗口无法操作
谢谢先

funco

guigetmsg(1)使用高级模式，父子窗口共用事件信息。。

oceanwind

guigetmsg(1)使用高级模式，父子窗口共用事件信息。。
funco 发表于 2013-2-19 11:38

帮我看看怎样才能在主窗口脚本不停的情况下进行:  GUICtrlSetData($his_list,$si)
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form = GUICreate("Form1", 429, 155, 192, 124)
$Button_icon_his = GUICtrlCreateButton("Button1", 216, 48, 137, 41)
Global $si
GUISetState(@SW_SHOW)
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button_icon_his
                         _icon_list_show()

            EndSwitch       
       
            _main()
            
WEnd
Func _main()
        $si += 1
        If Mod($si,5) = 0 Then
                GUICtrlSetData($his_list,$si)
        EndIf       
       
EndFunc       
Func _icon_list_show()
    $Form1 = GUICreate("his", 90, 760, 1050, 24)
    $his_list = GUICtrlCreateList("icon his", 1, 1, 87, 759)
    GUICtrlSetLimit(-1, 200) ; 限制水平滚动
    GUISetState(@SW_SHOW)
    $show_list= True
    While $show_list
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        GUIDelete($Form1)
                        $show_list=False

        EndSwitch
    WEnd
EndFunc



谢谢先

oceanwind

好象要用到_CoProc()  
不晓得这个方向对不对

funco

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form = GUICreate("Form1", 429, 155, 192, 124)
$Button_icon_his = GUICtrlCreateButton("Button1", 216, 48, 137, 41)
Global $si, $his_list
GUISetState(@SW_SHOW)

$Form1 = GUICreate("his", 90, 760, 1050, 24)
$his_list = GUICtrlCreateList("icon his", 1, 1, 87, 759)
GUICtrlSetLimit(-1, 200) ; 限制水平滚动
GUISetState(@SW_SHOW)
GUISwitch($Form)
While 1

        $nMsg = GUIGetMsg(1)
        Switch $nMsg[0]
                Case $nMsg[0] = $GUI_EVENT_CLOSE
                        If $nMsg[1] = $Form Then
                                MsgBox(0, "提示", "主窗口关闭")
                                Exit
                        ElseIf $nMsg[1] = $Form1 Then
                                MsgBox(0, "提示", "子窗口关闭")
                                GUIDelete($Form1)
                        EndIf
                       
                       
                Case $nMsg[0] = $Button_icon_his
                        _main()
        EndSwitch



WEnd
Func _main()
        $si += 1
        If Mod($si, 5) = 0 Then
                GUICtrlSetData($his_list, $si)
        EndIf

EndFunc   ;==>_main

funco

不知道是不是你想要的~~

oceanwind

不知道是不是你想要的~~
funco 发表于 2013-2-19 23:12

我是想每循环调用一次 _main()
就自动guictrlsetdata一次。。。
不晓得这样可行不

funco

调用main不需要触发条件吗？我写的触发条件是点击按钮。而且从你提供的代码来看也不会终止。那样会陷入死循环。

oceanwind

调用main不需要触发条件吗？我写的触发条件是点击按钮。而且从你提供的代码来看也不会终止。那样会陷入死循 ...
funco 发表于 2013-2-20 10:18

谢谢你的回复
不过那样的死循环是我需要的
有办法么