[Окна, Диалоги] помогите настроить лог

[andreitrane]

хочу написать прогу, но столкнулся с проблемой
привел пример окна с логом, при нажатии первой кнопки в логе появляется надпись, при нажатии второй кнопки появляется вторая надпись, но если опять нажать первую или вторую кнопку, то новая надпись не появляется, а просто выделяется старая, как сделать чтобы появлялась новая надпись?? если я написал правильно, то покажите условие для этого на моем коде, а если написал не правильно, то покажите свой код

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Dialog", 227, 187, 369, 244)
$Button2 = GUICtrlCreateButton("Button2", 104, 152, 81, 25)
$List1 = GUICtrlCreateList("", 8, 8, 209, 136)
$Button1 = GUICtrlCreateButton("Button1", 24, 152, 73, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			GUICtrlSetData($List1, "кнопка1")
			Case $Button2
			GUICtrlSetData($List1, "кнопка2")

	EndSwitch
WEnd

 

[kaster]

что за мода такая пошла, приводить из Коды базовый кусок, который по сути ничего не делает. уж лучше вообще не приводить его в пример.
где у тебя в коде новая надпись? у тебя там только две надписи, Button и Кнопка. Что ты хочешь чтобы там еще было?

 

[andreitrane]

я имел ввиду когда нажимаешь первую кнопку, появляется надпись "кнопка1", я хочу сделать так, чтобы при повторном нажатии button1 снова появилась надпись "кнопка1" на новой строке и чтобы старая не заменялась, а при моем скрипте при повторном нажатии button1 та же надпись на новой строке не появляется, а выделяется предидущая, вот я и хочу чтобы или мой скрипт исправили, или чтобы дали свой

 

[Garrett]

andreitrane

я хочу сделать так, чтобы при повторном нажатии button1 снова появилась надпись "кнопка1" на новой строке

Из справки!

Remarks

For Combo or List control :
If the "data" corresponds to an already existing entry it is set as the default.
If the "data" starts with GUIDataSeparatorChar or is an empty string "" the previous list is destroyed.

Можно так.

Вариант 1

;...
Dim $a = 0
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
			$a += 1
            GUICtrlSetData($List1,  "кнопка 1-" & $a)
		Case $Button2
			$a += 1
            GUICtrlSetData($List1, "кнопка 2-" & $a)

    EndSwitch
WEnd
;...

Вариант 2

;...
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
			GUICtrlSetData($List1,  "")
            GUICtrlSetData($List1,  "кнопка 1")
		Case $Button2
			GUICtrlSetData($List1,  "")
            GUICtrlSetData($List1, "кнопка 2")

    EndSwitch
WEnd
;...

 

[andreitrane]

второй код не работает((( а как можно сделать тоже самое, только не с list, а с input??

 

[kaster]

andreitrane
почитать справку! она небольшая, но очень полезная. и еще

Предупреждение

За нарушение правил форума (пункт Б.5):

Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.

Как правильно называть темы

"[Окна, Диалоги] помогите настроить лог " - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, Модератор раздела.

 

[Garrett]

andreitrane [?]

второй код не работает(((

Странно У меня всё работает
Второй вариант, будет выводить надпись только в первую строку, тем самым, сменяя старую запись новой!

 

[andreitrane]

Второй вариант, будет выводить надпись только в первую строку, тем самым, сменяя старую запись новой!

да, она работает, но не так, как надо мне, нужно чтобы каждая новая надпись, даже если она неоднократно повторяется, появлялась на новой строке. Можно сделать так с Input, а не с List?

 

[VladUs]

#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Dialog", 227, 187, 369, 244)
$Button2 = GUICtrlCreateButton("Button2", 104, 152, 81, 25)
$List1 = GUICtrlCreateInput("", 8, 8, 209, 136,$ES_MULTILINE)
$Button1 = GUICtrlCreateButton("Button1", 24, 152, 73, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;...
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            GUICtrlSetData($List1,  "кнопка 1"& @CRLF, @CRLF)
        Case $Button2
            GUICtrlSetData($List1, "кнопка 2" & @CRLF, @CRLF)

    EndSwitch
WEnd