-1

我有一个 GUI 记录文件夹中所有 chm 的列表。单击“运行”按钮时，它将打开列表中的第一个 chm，直到依此类推。然后我创建了一个应该扩展树的函数。

我的问题是我的功能，它一直有效，直到MsgBox()那里停止。当我运行我的程序时，没有显示错误。

#include <GuiConstantsEx.au3>
#include <GuiListBox.au3>
#include <GuiTreeView.au3>
#include <File.au3>
#include <Array.au3>

;GUI
$guiTitle = "Automation"
GUICreate($guiTitle, 250, 430)

Global $hWnd = ControlGetHandle("[CLASS:HH Parent;TITLE:AutoIt Help]", "", "[CLASS:SysTreeView32; INSTANCE:1]")
Global $hChild = _GUICtrlTreeView_GetFirstChild($hWnd, 0)
Local $source = InputBox("Source Folder","Please enter the source folder","")

;InputBox
If @error = 1 Then
   Exit
EndIf

If @error = 4 Then
   Exit
;GUI_List
Else

   $add = GUICtrlCreateButton("Show", 10, 53, 230, 20)
   $picList = GUICtrlCreateList("", 10, 78, 230, 300)
   $run = GUICtrlCreateButton("Run", 170, 385, 70, 30)

   GUISetState(@SW_SHOW)



   While 1
       $msg = GUIGetMsg()
       Switch $msg
            ;add
           Case $add
               Global $FileList = _FileListToArray($source, "*.chm")
               If @error = 1 Then
                   MsgBox(0, "", "No Files Found.")
                   Exit
               EndIf
               If @error = 4 Then
                   MsgBox(0, "", "No Files Found.")
                   Exit
               EndIf

               For $i = 1 To $FileList[0] ;List_IFIX Pictures
                   GUICtrlSetData($picList, $FileList[$i])
                Next

            ;run
           Case $run
               If _GUICtrlListBox_GetCount($picList) = 0 Then
                      MsgBox(0, "", "No Files Found.")

                   Else 
                     For $i = 1 To $FileList[0]
                        If Not WinExists("AutoIT Help]") Then
                           ShellExecute($source & "\" & $FileList[1])
                           _Expand($hWnd, $hChild)
                        EndIf
                        Next
               EndIf

            ;exit
           Case $GUI_EVENT_CLOSE
               ExitLoop
       EndSwitch
   WEnd
EndIf

这是我的功能：

Func _Expand($hWnd, $hChild)
   WinWaitActive("AutoIT Help")
   MsgBox(0,"","Expand")


   While 1
       $hChild = _GUICtrlTreeView_GetNextChild($hWnd, $hChild)
       If _GUICtrlTreeView_GetText($hWnd, $hChild) = "Tutorials" Then ExitLoop
   WEnd

   _GUICtrlTreeView_Expand(ControlGetHandle("[CLASS:HH Parent;TITLE:AutoIt Help]","", "[CLASS:SysTreeView32; INSTANCE:1]"),$hchild, True)
 EndFunc
4

1 回答 1

1

代码问题很多。

  1. 检查你的标题！在两种情况下，您的示例中的窗口标题拼写错误。AutoIt 用小写字母t拼写，并且窗口标题匹配区分大小写，除非您另外设置选项。
  2. 如果找不到“教程”，那么您将永远循环。您应该在之后添加一个检查_GUICtrlTreeView_GetNextChild以查看您是否已到达树视图的末尾。

但是您的代码的真正问题是您在运行创建窗口的过程之前在代码的开头$hWnd进行设置。$hChild结果，找不到窗口，因此当您调用 $hWnd 时，它将始终为 NULL _Expand。

stackoverflow 不鼓励此类问题。我们喜欢在未来对其他人有用的问题，而不是对特定代码的帮助。在以后提出此类问题之前，请尝试自己调试问题。您可以通过显示变量值的代码添加ConsoleWrite语句，这会显示$hWnd当您输入扩展时没有句柄值，从那里很明显。

于 2013-06-21T10:41:00.300 回答