Anzeige im Listfeld ans Ende

1. offizieller Beitrag

    Hallo zusammen

    ich habe in meinem Formular ein Listfeld erstellt, welches ich benötige um Adressen anzuzeigen. Gibt es eine Möglichkeit wenn ich die Adressen in das Listfeld eingelesen haben, dass die Anzeige im Listfeld an das Ende der eingelesenen Adressen geht? Die Listfeldhöhe reicht nicht aus um alle Adressen auf einmal anzuzeigen, deswegen möchte ich gerne dass im Listfeld die lezten Adressen angezeigt werden und ich dann ggf. nach oben scrollen kann.

    Einmal editiert, zuletzt von johny1099 (18. April 2010 um 19:34)

    anbei der Quelltext

    Spoiler anzeigen

    #include <EditConstants.au3>
    #include <ListBoxConstants.au3>
    #include <GuiListBox.au3>
    #include <File.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

    Dim $array_1,$suche_adressen,$string_logfile
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 1000, 543, -1, 50)
    $grp_group1 = GUICtrlCreateGroup("Liste der Adressen",5,40,963,350)
    $list_list1 = GUICtrlCreateList("",10,60,950,420, BitOR($WS_BORDER, $WS_VSCROLL, $LBS_NOTIFY, $LBS_DISABLENOSCROLL, $WS_HSCROLL))

    $button_listadressen = GUICtrlCreateButton("Adressen anzeigen",10,10,100,30)

    GUISetState(@SW_SHOW)

    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $button_listadressen
    GUICtrlSetLimit($list_list1,960)
    GUICtrlSetData($list_list1,"")
    _FileReadToArray(@ScriptDir & "\Adressen.txt",$array_1)
    For $i = 1 To UBound ($array_1) - 1
    _GUICtrlListBox_AddString ($list_list1, $array_1 [$i])
    Next

    EndSwitch

    WEnd

    Hallo johnny1099,

    so:[spoiler]

    [autoit]

    #include <EditConstants.au3>
    #include <ListBoxConstants.au3>
    #include <GuiListBox.au3>
    #include <File.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

    [/autoit][autoit][/autoit][autoit]

    Dim $array_1, $suche_adressen, $string_logfile
    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 1000, 543, -1, 50)
    $grp_group1 = GUICtrlCreateGroup("Liste der Adressen", 5, 40, 963, 350)
    $list_list1 = GUICtrlCreateList("", 10, 60, 950, 420, BitOR($WS_BORDER, $WS_VSCROLL, $LBS_NOTIFY, $LBS_DISABLENOSCROLL, $WS_HSCROLL))

    [/autoit][autoit][/autoit][autoit]

    $button_listadressen = GUICtrlCreateButton("Adressen anzeigen", 10, 10, 100, 30)

    [/autoit][autoit][/autoit][autoit]

    GUISetState(@SW_SHOW)

    [/autoit][autoit][/autoit][autoit]

    #endregion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $button_listadressen
    GUICtrlSetLimit($list_list1, 960)
    GUICtrlSetData($list_list1, "")
    _FileReadToArray(@ScriptDir & "\Adressen.txt", $array_1)
    For $i = 1 To UBound($array_1) - 1
    _GUICtrlListBox_AddString($list_list1, $array_1[$i])
    Next
    $iIndex = _GUICtrlListBox_GetCount($list_list1) - 1
    ConsoleWrite($iIndex & @CRLF)
    _GUICtrlListBox_SetTopIndex($list_list1, $iIndex)
    EndSwitch

    [/autoit][autoit][/autoit][autoit]

    WEnd

    [/autoit]

    [/spoiler

    mfg (Auto)Bert