How to force scrolling of listbox?

[PvS1]

Hi,

I am a happy user of autoIT. I created a program that uses a logging window. I used:

create: GUICreate()

add line: GUICtrlSetData()

This works OK, once the window is full a scrolbar appears and lines are added.

I experience 1 problem: Once the window is full and the scrolbar appears I no longer see the latest logging. To see the latest logging I need to manipulate the scrolbar with my mouse manually.

What do I need to do to cause the most recently sent logging line to show automatically?

Kind regards,

PvS1

[PhoenixXL]

This Should help LINK

Please give the full code

[Melba23]

PvS1,

Welcome to the AutoIt forum.

This should show you the method to use:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ScrollBarConstants.au3>

$hGUI = GUICreate("Test", 320, 500)
$hList = GUICtrlCreateList("", 10, 10, 310, 150)
GUISetState(@SW_SHOW)

GUICtrlSetData($hList, "1st message timed at " & @MIN & ":" & @SEC)

; Start a timer to simulate messages arriving
$iBegin = TimerInit()

;Loop to keep GUI polling
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch

    ; Every second
    If TimerDiff($iBegin) > 1000 Then
        GUICtrlSetData($hList, "New message timed at " & @MIN & ":" & @SEC)
        ;Scroll the list control
        GUICtrlSendMsg($hList, $WM_VSCROLL, $SB_LINEDOWN, 0)
        ; Reset the timer
        $iBegin = TimerInit()
    EndIf

WEnd

Please ask if you have any questions.

M23

[Zedna]

Mine modification of Melba's one:

expandcollapse popup

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

$hGUI = GUICreate("Test", 320, 500)
$hList = GUICtrlCreateList("", 10, 10, 310, 150, BitOR($LBS_NOTIFY,$LBS_NOSEL,$WS_HSCROLL,$WS_VSCROLL,$WS_BORDER))
GUISetState(@SW_SHOW)

Logging("1st message timed at " & @MIN & ":" & @SEC)

; Start a timer to simulate messages arriving
$iBegin = TimerInit()

;Loop to keep GUI polling
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch

    ; Every second
    If TimerDiff($iBegin) > 1000 Then
        Logging("New message timed at " & @MIN & ":" & @SEC)
        ; Reset the timer
        $iBegin = TimerInit()
    EndIf

WEnd

Func Logging($text)
    _GUICtrlListBox_BeginUpdate($hList)
    $index = _GUICtrlListBox_AddString($hList, $text)
    _GUICtrlListBox_SetTopIndex($hList, $index)
    _GUICtrlListBox_UpdateHScroll($hList) ; to correct size of horiz scrollbar for texts with big width
    _GUICtrlListBox_EndUpdate($hList)
EndFunc

[PvS1]

Thanks for the help, problem solved