Must AutoIt
Сообщения: 3054
Благодарности: 1009
|
Профиль
|
Сайт
|
Отправить PM
| Цитировать
Код: 
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 613, 438, 420, 124)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 281, 417)
$List1 = GUICtrlCreateList("", 344, 8, 265, 409)
$Button1 = GUICtrlCreateButton(">", 304, 88, 33, 33)
$Button2 = GUICtrlCreateButton("<", 304, 136, 33, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$sEdit = StringReplace(GUICtrlRead($Edit1), @CRLF, '|')
GUICtrlSetData($List1, $sEdit)
Case $Button2
$sList = ''
For $i = 0 To _GUICtrlListBox_GetCount($List1) - 1
$sList &= _GUICtrlListBox_GetText($List1, $i) & @CRLF
Next
GUICtrlSetData($Edit1, $sList)
EndSwitch
WEnd
|
-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.” Альберт Эйнштейн
P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»
http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community
Отправлено: 18:22, 30-01-2014
| #2
|