Что нового

Как показать значение переменной в окне GUI

A

at

Гость
Как отобразить чисельное значение переменной из окна приложения Delphi
Код:
$vZeloe_Zhislo = ControlGetText('Delphi-programm', '', '[CLASS:TEdit; INSTANCE:18]')


В окне программы autoit
Код:
$vOkno_Programmy = GUICtrlCreateInput("Здесь должно быть значение из Delphi", 64, 240, 33, 21)
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
Код:
GUICtrlSetData($vOkno_Programmy, $vZeloe_Zhislo)
 
Автор
A

at

Гость
А можно в моем скрипте показать, как это реализуется ?

Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
$vControl = GUICreate('Control', 291, 423, 192, 113)
GUICtrlCreateGroup('', 0, 0, 289, 369)
$vDelphi = GUICtrlCreateLabel('Число из Delphi', 8, 192, 91, 17) 
$vOkno_Programmy = GUICtrlCreateInput('0', 94, 192, 53, 21)
GUICtrlCreateGroup('', -99, -99, 1, 1)
$vStatusBar1 = _GUICtrlStatusBar_Create($vControl)
$vClose = GUICtrlCreateButton('Close', 208, 376, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1 ;основной цикл
    
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE, $vClose
            Exit
    
		$vZeloe_Zhislo = ControlGetText('Delphi-programm', '', '2011')
	EndSwitch
WEnd
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
$vControl = GUICreate('Control', 291, 423, 192, 113)
GUICtrlCreateGroup('', 0, 0, 289, 369)
$vDelphi = GUICtrlCreateLabel('Число из Delphi', 8, 192, 91, 17)
$vOkno_Programmy = GUICtrlCreateInput('0', 94, 192, 53, 21)
GUICtrlCreateGroup('', -99, -99, 1, 1)
$vStatusBar1 = _GUICtrlStatusBar_Create($vControl)
$vClose = GUICtrlCreateButton('Close', 208, 376, 75, 25)
$vpaste = GUICtrlCreateButton('вставить', 100, 376, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1 ;основной цикл

    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE, $vClose
            Exit
			case $vpaste
$vZeloe_Zhislo = ControlGetText('123.txt - AkelPad', '', 'AkelEditW1')
GUICtrlSetData($vOkno_Programmy, $vZeloe_Zhislo)
    EndSwitch
WEnd
 
Автор
A

at

Гость
Спасибо, а как сделать, чтобы число постоянно отображалось в окне программы.
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
в начале скрипта пишешь
Код:
$vZeloe_Zhislo = ControlGetText('123.txt - AkelPad', '', 'AkelEditW1')

далее в описании окна строку
Код:
$vOkno_Programmy = GUICtrlCreateInput('0', 94, 192, 53, 21)

изменяешь на
Код:
$vOkno_Programmy = GUICtrlCreateInput($vZeloe_Zhislo, 94, 192, 53, 21)

при запуске скрипта будет считывание и запись в
Код:
$vOkno_Programmy
 
Автор
A

at

Гость
Все, работает. Спасибо, разобрался.

Сразуже появился связанный вопрос: http://autoit-script.ru/index.php/topic,6574.new.html#new ?
 
Верх