GUI EDIT Fenster

  • Ich hab ein kleine problem hier mal mein jetztiges test schript.

    [autoit]

    #include <GUIConstants.au3>
    #include <GuiEdit.au3>
    #include <GuiStatusBar.au3>
    #include <GUIConstantsEx.au3>
    #include <windowsconstants.au3>
    Global $Test
    Opt("GUIOnEventMode", 1)
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 625, 445, 193, 125)
    $Test = GUICtrlCreateEdit("", 416, 32, 185, 289, BitOr($WS_VSCROLL, $WS_HSCROLL, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY))
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    Sleep(100)
    WEnd
    Func Edit1Change()
    EndFunc

    [/autoit]


    Was will ich damit ereichen?

    In dieser edit box soll eine Log des programmes ablaufen

    Also will ich das der inhalt nicht überschrieben wird sonder immer eine neue zeile dazukommt.

    Das fenster soll nicht bearbeitbar sein das habe ich aber schon hibekommen.

    Und es soll sich so scrollen das ich immer die neuste zeile der internen log sehe.

    Bis jetz konnte ich nur das fenster also den inhalt löschen und einen neuen reinsetzen

  • Das AutoScrollen müsste schon gehen, der Style ist ja richtig.
    Zum Hinzufügen:

    [autoit]

    _addlog("Bla")
    _addlog("Das ist auch toll...")
    Func _addlog($sString)
    GUICtrlSetdata($Edit1,GUICtrlRead($Edit) & @CRLF & $sString)
    EndFunc

    [/autoit]

    Twitter: @L3viathan2142
    Benutze AutoIt persönlich nicht mehr, da ich keinen Windows-Rechner mehr besitze.

  • [autoit]

    #include <GUIConstants.au3>
    #include <GuiEdit.au3>
    #include <GuiStatusBar.au3>
    #include <GUIConstantsEx.au3>
    #include <windowsconstants.au3>
    Global $Test
    Opt("GUIOnEventMode", 1)
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 625, 445, 193, 125)
    $Test = GUICtrlCreateEdit("", 416, 32, 185, 289, BitOr($WS_VSCROLL, $WS_HSCROLL, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY))
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    _addlog("Bla")
    _addlog("Das ist auch toll...")
    _addlog("Bla")
    _addlog("Das ist auch toll...")
    _addlog("Bla")
    _addlog("Das ist auch toll...")
    _addlog("Bla")
    _addlog("Das ist auch toll...")
    _addlog("Bla")
    _addlog("Das ist auch toll...")
    _addlog("Bla")
    _addlog("Das ist auch toll...")
    _addlog("Bla")
    _addlog("Das ist auch toll...")
    Sleep(2000)
    _addlog("Bla")
    _addlog("Das ist auch toll...")
    Sleep(2000)
    _addlog("Bla")
    _addlog("Das ist auch toll...")
    Sleep(2000)
    _addlog("Bla")
    _addlog("Das ist auch toll...")
    Sleep(2000)
    _addlog("Bla")
    _addlog("Das ist auch toll...")
    Sleep(2000)
    _addlog("Bla")
    _addlog("Das ist auch toll...")
    Sleep(2000)
    _addlog("Bla")
    _addlog("Das ist auch toll...")
    Sleep(2000)
    _addlog("Bla")
    _addlog(""!!!!!!!!!!!!!!!!!!!!!ENDE!!!!!!!!!!!!!!!!"")
    Func _addlog($sString)
    GUICtrlSetdata($Test,GUICtrlRead($Test) & @CRLF & $sString)
    EndFunc
    While 1
    Sleep(100)
    WEnd
    Func Edit1Change()
    EndFunc

    [/autoit]

    Also wenn ich das jetz ablaufen lasse zum test sehe ich immer das oberste also das alte nie das neue^^

  • [autoit]

    Func _addlog($sString)
    GUICtrlSetdata($Test,GUICtrlRead($Test) & @CRLF & $sString)
    ControlSend("","",$Test,"{END}")
    EndFunc

    [/autoit]

    Probiers mal hiermit...

    Zur Nutzung dieses Forum's, ist ein Übersetzer für folgende Begriffe unerlässlich:

    "On-Bort, weier, verscheiden, schädliges, Butten steyling, näckstet, Parr, Porblem, scripe, Kompletenz, harken, manuel zu extramieren, geckukt, würglich, excell, acces oder Compilevorgeng"

  • Moin,

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <GuiEdit.au3>
    #include <GuiStatusBar.au3>
    #include <GUIConstantsEx.au3>
    #include <windowsconstants.au3>

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

    Global $stringAdd = 'Text wurde hinzugefügt.'&@crlf
    Global $stringSet = 'Text wurde er-/gesetzt.'&@crlf

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

    ;~ Opt("GUIOnEventMode", 1)

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

    $hWnd = GUICreate("Form1", 625, 445, 193, 125)
    $ID_EDIT = GUICtrlCreateEdit("", 416, 32, 185, 289, _
    BitOr($WS_VSCROLL, $WS_HSCROLL, _
    $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY))

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

    $ID_BUTTON_1 = GUICtrlCreateButton ('Text hinzufügen', 10, 10)
    $ID_BUTTON_2 = GUICtrlCreateButton ('Text (er)setzen', 10, 40)
    GUISetState(@SW_SHOW)

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

    While True

    Switch GUIGetMsg ()
    Case -3
    GUIDelete ($hWnd)
    ExitLoop
    Case $ID_BUTTON_1
    AddTextToEdit1 ( )
    Case $ID_BUTTON_2
    SetTextToEdit1 ( )
    EndSwitch
    WEnd

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

    Func AddTextToEdit1 ( )
    Return GUICtrlSetData ($ID_EDIT, $stringAdd, 1)
    EndFunc

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

    Func SetTextToEdit1 ( )
    Return GUICtrlSetData ($ID_EDIT, $stringSet, '')
    EndFunc

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


    LG
    Greenhorn


  • Danke an alle für die hilfe

    ich habe mich für das script von Micha_he habe.

    Aber ich verstehe immer noch net warum auto scroller nich get ? alo on alleine