Dodanie lini z edit do input.

[flaq1991]

Witam poszukuję kodu źródłowego który będzie mi dodawał i jednoczesnie odejmował

jedną linie z edit'a i dodawał ją do inputa linie w edit beda zapisane w ten 

 

sposób 

 

1

2

3

4

5...

 

Z góry dziękuję daje +++

[wasta]

Z jakiego edit'a do jakiego inputa. Opisz to dokładniej, bo nie bardzo wiadomo o co ci chodzi.

[flaq1991]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 142, 171, 318, 214)
$Input1 = GUICtrlCreateInput("", 8, 8, 121, 21)
$Edit1 = GUICtrlCreateEdit("", 8, 32, 121, 89)
GUICtrlSetData(-1, StringFormat("Edit1\r\nasd\r\nasd\r\nqwe\r\n123"))
$Button1 = GUICtrlCreateButton("Button1", 24, 128, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit


EndSwitch
WEnd

chodzi o to : w polu edit sa wpisane slowa jedno pod drugim i przycisk ma dodawac slowo z lini pierwszej do pola input i usuwac je jednoczesnie

i tak dalej po kazdym kliknieciu dodac pierwszą linie z edita i usunac tą linię z edit.

[Pawellek]

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#include <GuiEdit.au3>

#include <Array.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 142, 171, 318, 214)

$Input1 = GUICtrlCreateInput("", 8, 8, 121, 21)

$Edit1 = GUICtrlCreateEdit("", 8, 32, 121, 89)

GUICtrlSetData(-1, StringFormat("Edit1\r\nasd\r\nasd\r\nqwe\r\n123"))

$Button1 = GUICtrlCreateButton("Button1", 24, 128, 75, 25, $WS_GROUP)

GUISetState(@SW_SHOW)

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

 

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Button1

Example()

EndSwitch

WEnd

 

Func Example()

Local $arr[0]

GUICtrlSetData($Input1, "")

For $i = 0 to _GUICtrlEdit_GetLineCount($Edit1)

_ArrayAdd($arr, _GUICtrlEdit_GetLine ($Edit1, $i))

Next

_ArrayDelete($arr, UBound($arr)-1)

GUICtrlSetData($Input1, $arr[0])

_ArrayDelete($arr, 0)

GUICtrlSetData($Edit1, "")

For $i = 0 To UBound($arr) - 1

_GUICtrlEdit_AppendText($Edit1, $arr[$i] & @CRLF)

Next

EndFunc