|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Элемент EDIT |
|
[решено] Элемент EDIT
|
![]() Старожил Сообщения: 398 |
Скажите пожалуйста как можно считать самую нижнюю строчку элемента Edit?
|
|
------- Отправлено: 20:38, 17-03-2009 |
Старожил Сообщения: 460
|
Профиль | Отправить PM | Цитировать ControlCommand('название окна', 'текст окна', controlID, 'GetLine', ControlCommand('название окна', 'текст окна', controlID, 'GetLineCount')) #region: - Option Opt('MustDeclareVars', 1) Opt('TrayIconDebug', 1) Opt('TrayIconHide', 0) Opt('SendKeyDelay', 1) #endregion #region: - Global Global $iPid, $hHwd Global $sGetEditLine #endregion $iPid = Run('notepad.exe') While 1 $hHwd = _ProcessGetWindow($iPid, 1) If IsHWnd($hHwd) Then ExitLoop WEnd ControlSetText($hHwd, '', '[CLASS:Edit; INSTANCE:1]', 'Строка 1' & @CRLF & 'Строка 2' & @CRLF & 'Строка 3') Sleep(5) $sGetEditLine = ControlCommand($hHwd, '', '[CLASS:Edit; INSTANCE:1]', 'GetLine', ControlCommand($hHwd, '', '[CLASS:Edit; INSTANCE:1]', 'GetLineCount')) MsgBox(64, 'Результат', 'Последняя строчка: ' & @CRLF & @CRLF & $sGetEditLine) ProcessClose($iPid) Func _ProcessGetWindow($iPID, $iRet=-1) Local $aWinList = WinList() Local $aRet[2] If IsString($iPID) Then $iPID = ProcessExists($iPID) For $i = 1 To UBound($aWinList)-1 If WinGetProcess($aWinList[$i][1]) = $iPID Then $aRet[0] = $aWinList[$i][0] ;Title $aRet[1] = $aWinList[$i][1] ;WinHandle If $iRet = 0 Then Return $aRet[0] If $iRet = 1 Then Return $aRet[1] Return $aRet EndIf Next Return SetError(1, 0, $aRet) EndFunc |
------- Отправлено: 21:02, 17-03-2009 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
![]() Старожил Сообщения: 398
|
Профиль | Сайт | Отправить PM | Цитировать |
------- Отправлено: 21:32, 17-03-2009 | #3 |
Старожил Сообщения: 460
|
Профиль | Отправить PM | Цитировать практически так же:
#region: - Include #include <GUIConstantsEx.au3> #Include <GuiEdit.au3> #include <WindowsConstants.au3> #endregion #region: - Option Opt('GUIOnEventMode', 1) Opt('MustDeclareVars', 1) Opt('TrayIconDebug', 1) Opt('TrayIconHide', 0) #endregion #region: - Global Global $hWinMain, $hEdit #endregion #region: GUI $hWinMain = GUICreate('Test', 400, 400, -1, -1) GUISetOnEvent($GUI_EVENT_CLOSE, '_Pro_Exit') $hEdit = GUICtrlCreateEdit('Строка 1' & @CRLF & 'Строка 2' & @CRLF & 'Строка 3', 10, 10, 200, 200) GUICtrlCreateButton('Получить последную строчку', 10, 250, 200, 25) GUICtrlSetState(-1, $GUI_FOCUS+$GUI_DEFBUTTON) GUICtrlSetOnEvent(-1, '_Get_Edit_String') #endregion #region: - После создания всех GUI GUISetState(@SW_SHOW, $hWinMain) #endregion #region: - Sleep, Exit While 1 Sleep(10) WEnd Func _Pro_Exit() Exit EndFunc #endregion Func _Get_Edit_String() MsgBox(64, 'Результат', 'Последняя строчка: ' & @CRLF & @CRLF & _GUICtrlEdit_GetLine($hEdit, _GUICtrlEdit_GetLineCount($hEdit)-1)) EndFunc |
------- Отправлено: 22:03, 17-03-2009 | #4 |
![]() Старожил Сообщения: 398
|
Профиль | Сайт | Отправить PM | Цитировать спасибо
|
|
------- Отправлено: 23:52, 17-03-2009 | #5 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Java - Элемент массива | ManHack | Программирование и базы данных | 2 | 23-10-2009 10:41 | |
Установка Edit Pad. | Narm | Автоматическая установка приложений | 3 | 05-04-2007 14:01 | |
Прога Cool Edit 2000 | AntonUZ | Хочу все знать | 1 | 24-04-2003 11:37 | |
Edit | Corel | Программирование и базы данных | 1 | 02-09-2002 01:17 |
|