Sign in to follow this  
Followers 0
Hacky

Simple GUI with Listbox and some functions

4 posts in this topic

Hello,

i tried to script a gui which shows me files of a previous chosen folder. I need a function to select all files in the list box. I also need a function to select just some files. At the moment this script isn´t working at all. I need some help to finish it.

Thanks!

Hacky

#include <GUIListBox.au3>

Dim $dateien[100]

#include <File.au3>

#include <Array.au3>

$ordner=FileSelectFolder("Choose folder", "")

$dateien=_FileListToArray ( $ordner ,"*",1)

Opt('MustDeclareVars', 1)

$Debug_LB = False

Local $hGUI, $sItems, $aItems, $hListBox

; Create GUI

$hGUI = GUICreate("Choose files for transfer", 400, 296)

$hListBox = GUICtrlCreateList("", 2, 2, 250, 296, BitOR($LBS_STANDARD, $LBS_EXTENDEDSEL))

GUISetState()

; Add strings

_GUICtrlListBox_BeginUpdate ($hListBox)

For $i = 1 To 100

_GUICtrlListBox_AddString ($hListBox, $dateien[$i])

Next

_GUICtrlListBox_EndUpdate ($hListBox)

GUICtrlCreateButton("Select All Files", 200, 50)

GUICtrlCreateButton("Start Transfer", 200, 200)

; Loop until user exits

Do

until GUIGetMsg() = $GUI_EVENT_CLOSE

Share this post


Link to post
Share on other sites



#include <GUIListBox.au3>
#include <File.au3>
#include <Array.au3>

Global $dateien[100]
$ordner=FileSelectFolder("Choose folder", "")
$dateien=_FileListToArray ( $ordner ,"*",1)
; Create GUI
$hGUI = GUICreate("Choose files for transfer", 400, 296)
$hListBox = GUICtrlCreateListView("", 2, 2, 250, 296, BitOR($LBS_STANDARD, $LBS_EXTENDEDSEL))
GUISetState()
; Add strings
For $i = 1 To UBound($dateien)-1;here we make sure you don't exceed the array index of the file string variable using ubound, which is why it wasn't working
GUICtrlCreateListViewItem($dateien[$i], $hListBox)
Next
_GUICtrlListBox_EndUpdate ($hListBox)
GUICtrlCreateButton("Select All Files", 200, 50)
GUICtrlCreateButton("Start Transfer", 200, 200)
; Loop until user exits
Do
until GUIGetMsg() = $GUI_EVENT_CLOSE


Things that I've done..

Icon Resource Editor: icon resource editor 

AutoIt Piano: a piano

AutoIt Unlocker: unlocks files when you want to delete them

Colorful tooltips: a wrapper for the tool tips UDF

Rouge GoogleBot: a full screen animation

ASciTE text editor: a text editor written in autoit

Warning: Posts by this user are subject to change or may disappear without notice.

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

#include <GUIListBox.au3>
#include <File.au3>
#include <Array.au3>

$ordner = FileSelectFolder("Choose folder", "")
$dateien = _FileListToArray($ordner, "*", 1)

; Create GUI
$hGUI = GUICreate("Choose files for transfer", 400, 296)
$hListBox = GUICtrlCreateList("", 2, 2, 250, 296, BitOr($GUI_SS_DEFAULT_LIST, $LBS_EXTENDEDSEL))
$btn_sel_all = GUICtrlCreateButton("Select All Files", 270, 50)
$btn_transfer = GUICtrlCreateButton("Start Transfer", 270, 200)
GUISetState()

; Add strings
_GUICtrlListBox_BeginUpdate($hListBox)
For $i = 1 To UBound($dateien) - 1
    _GUICtrlListBox_AddString($hListBox, $dateien[$i])
Next
_GUICtrlListBox_EndUpdate($hListBox)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $btn_sel_all
            _GUICtrlListBox_BeginUpdate($hListBox)
            GUICtrlSendMsg($hListBox, $LB_SETSEL, True, -1)
            _GUICtrlListBox_EndUpdate($hListBox)
        Case $msg = $btn_transfer
            $selected = ''
            For $i = 0 To _GUICtrlListBox_GetCount($hListBox) - 1
                If _GUICtrlListBox_GetSel($hListBox, $i) Then
                    $selected &= $i+1 & ': ' & _GUICtrlListBox_GetText($hListBox, $i) & @CRLF
                EndIf
            Next
            MsgBox(0, "Selected items", $selected)
    EndSelect
WEnd

Edited by Zedna

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Thank you!!

Edited by Hacky

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0