Что нового

[Окна, Диалоги] Сохранение в восстановления информации веденной в Input

Roman89

Новичок
Сообщения
107
Репутация
3
Всем доброго времени суток!
У меня созрел такой вопрос:
Как сохранить информацию введенною в окно ввода (Input) и после перезахода в программу что бы введенная ранее информация восстановилась в окне (Input)
Вот пример окна:
Код:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 209, 38, 544, 309)
$Input1 = GUICtrlCreateInput("Input", 8, 8, 193, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

	EndSwitch
WEnd
Всем заранее большое человеческое спасибо за ответы!
 
Автор
R

Roman89

Новичок
Сообщения
107
Репутация
3
edward_freedom Я поэкспериментировал с данной функцией и вот что у меня получилось:
Код:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$sINI = @ScriptDir & '\configchb.ini'
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 209, 38, 544, 309)
$Input1 = GUICtrlCreateInput("Input", 8, 8, 193, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

_LoadSettings()

GUISetState(@SW_SHOW)

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

Func _LoadSettings()
    GUICtrlSetState($Input1, IniRead($sINI, "trololo", "Input1", ""))
EndFunc

Func _SaveSettings()
    IniWrite($sINI, "trololo", "Input1", GUICtrlRead($Input1))
EndFunc


Но проблема в том что оно сохраняет что было написано в окне Input1 но не восстанавливает!
 

edward_freedom

Осваивающий
Сообщения
200
Репутация
44
Код:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 205, 54, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 185, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
 _LoadSettings()
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	Case $GUI_EVENT_CLOSE
		  IniWrite("configchb.ini", "trololo", "Input1", GUICtrlRead($Input1))
			Exit
	EndSwitch
WEnd

Func _LoadSettings()
	$text =  IniRead("configchb.ini", "trololo", "Input1", "")
    GUICtrlSetData($Input1,$text)
EndFunc
 

Arei

Скриптер
Сообщения
938
Репутация
115
Код:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 209, 38, 544, 309)
$Input1 = GUICtrlCreateInput("", 8, 8, 193, 21)

_LoadSettings()
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



GUISetState(@SW_SHOW)

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

Func _LoadSettings()


	$w = IniRead(@ScriptDir & "\configchb.ini", "1", "2","NotFound")
	
 GUICtrlSetData ($Input1, 	$w)
EndFunc

Func _SaveSettings()
	$www = GUICtrlRead($Input1)
    IniWrite(@ScriptDir & "\configchb.ini", "1", "2",$www )
EndFunc
 
Верх