GUIListBox效果(已解决)

jinhao

如何用更好的方法实现的功能？

#include <array.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>

Global $J = 0,$J0 = 0
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 347, 218, -1, -1)
$List1 = GUICtrlCreateList("", 0, 0, 345, 214,$WS_VSCROLL)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$aSectionNames = IniReadSectionNames("e:\List.txt")
For $i = 1 To $aSectionNames[0]
        $aKeyWord = IniReadSection("e:\List.txt", $aSectionNames[$i])
        For $o = 1 To $aKeyWord[0][0]
                $j0=$j0+1
                _GUICtrlListBox_AddString($List1,"["&$j0&"/"&$aKeyWord[0][0]&"]"&" "&$aKeyWord[$o][0])
        Next
Next
For $i = 1 To $aSectionNames[0]
        $aKeyWord = IniReadSection("e:\List.txt", $aSectionNames[$i])
        For $o = 1 To $aKeyWord[0][0]
                $J = $J + 1
                _GUICtrlListBox_ReplaceString($List1,$o-1,"["&$J&"/"&$aKeyWord[0][0]&"]"&" "&$aKeyWord[$o][0])
                _GUICtrlListBox_SetCurSel($List1, $o-1)
                Sleep(1000)
                _GUICtrlListBox_ReplaceString($List1,$o-1,"["&$J&"/"&$aKeyWord[0][0]&"]"&" "&$aKeyWord[$o][0])
                _GUICtrlListBox_SetCurSel($List1, $o-1)
                If $J == $aKeyWord[0][0] Then
                        MsgBox(0,'提示','完成')
                EndIf
        Next
Next

[windows]
C:\WINDOWS\addins=
C:\WINDOWS\AppPatch=
C:\WINDOWS\assembly=
C:\WINDOWS\Config=
C:\WINDOWS\Cursors=
C:\WINDOWS\Debug=
C:\WINDOWS\Downloaded Installations=
C:\WINDOWS\Driver Cache=
C:\WINDOWS\ime=
C:\WINDOWS\java=
C:\WINDOWS\LastGood=
C:\WINDOWS\LastGood.Tmp=
C:\WINDOWS\Logs=

水木子

这个问题之前我不是已经帮你解决了吗？

水木子

#include <GUIListBox.au3>
#include <WindowsConstants.au3>

$Path = @ScriptDir & '\Config.ini'

GUICreate("软件安装", 380, 350)
$List1 = GUICtrlCreateList("", 5, 5, 370, 280, $WS_VSCROLL)
$But1 = GUICtrlCreateButton("安装", 80, 300, 80, 30)
$But2 = GUICtrlCreateButton("取消", 220, 300, 80, 30)
GUISetState(@SW_SHOW)
Read()

Func Read()
        Local $z = 1
        $var = IniReadSection($Path, 'Config')
        If Not @error Then
                For $i = 1 To $var[0][0]
                        _GUICtrlListBox_AddString($List1, '[' & $z & '/' & $var[0][0] & ']' & $var[$i][0])
                        $z += 1
                Next
        EndIf
EndFunc   ;==>Read

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case - 3, $But2
                        Exit
                Case $But1
                        begin()
        EndSwitch
WEnd

Func begin()
        Local $z = 1
        $Instal = IniReadSection($Path, 'Config')
        If Not @error Then
                For $i = 1 To $Instal[0][0]
                        $z += 1
                        _GUICtrlListBox_ReplaceString($List1, $i - 1, "→ " & "[" & $z & "/" & $Instal[0][0] & "]" & " " & $Instal[$i][0]);取代文字的一个项目
                        _GUICtrlListBox_SetCurSel($List1, $i - 1)
                        Sleep(500)
                        _GUICtrlListBox_ReplaceString($List1, $i - 1, "OK " & "[" & $z & "/" & $Instal[0][0] & "]" & " " & $Instal[$i][0])
                        _GUICtrlListBox_SetCurSel($List1, $i - 1)
                Next
        EndIf
EndFunc   ;==>begin

水木子

配置文件格式如下，自己任意改吧！
[123]
C:\autoit3=
C:\autoit3=
C:\autoit3=
C:\autoit3=
C:\autoit3=
C:\autoit3=
C:\autoit3=

heilulu

写的非常不错,收藏。。。。。。。。

rence

不错，标记后用。

拉风晓晓

顶，看看学习一下再说