Leanna
Новичок
- Сообщения
- 25
- Репутация
- 3
Как сделать некоторые опреации с формой GUI:
1. Что бы при нажатии на "*" или стрелочкам назад/вперед поочередно активировались кнопки р+ , о, after (как табом) (другие кнопки не перебирались бы)
из обсуждений на форуме, не смогла понять, как на это прикрутить GUISetAccelerators...
2. Что бы при открытии формы кнопка "o" была бы активна и нажатие enter запускало бы процедуру кнопки "о"
И ещё такое возможно ли вообще (может это, конечно, из разряда фантастики): сделать перебор по Enter, а, например, закрытие формы по двойному Enter, или удерживаемому Enter?
Кроме того, есть вопрос по checkbox:
Как сделать так, что бы галочкой можно было включать/выключать режим "поверх всех окон"? (WinSetOnTop)
Код, на всякий, прилагаю.
файл http://leanna1983.narod2.ru/stuff/Kalkulyator.au3
Спасибо за внимание к данному вопросу.
1. Что бы при нажатии на "*" или стрелочкам назад/вперед поочередно активировались кнопки р+ , о, after (как табом) (другие кнопки не перебирались бы)
из обсуждений на форуме, не смогла понять, как на это прикрутить GUISetAccelerators...
2. Что бы при открытии формы кнопка "o" была бы активна и нажатие enter запускало бы процедуру кнопки "о"
И ещё такое возможно ли вообще (может это, конечно, из разряда фантастики): сделать перебор по Enter, а, например, закрытие формы по двойному Enter, или удерживаемому Enter?
Кроме того, есть вопрос по checkbox:
Как сделать так, что бы галочкой можно было включать/выключать режим "поверх всех окон"? (WinSetOnTop)
Код, на всякий, прилагаю.
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
GUICreate("Записи", 340, 200)
If Not IsDeclared('last') Then $last = "чему-то"
$CheckBox1 = GUICtrlCreateCheckbox('on top', 275, 3, -1, 20, $BS_RIGHTBUTTON)
$Input2 = GUICtrlCreateInput("2", 9, 34, 52, 23)
GUICtrlSetBkColor(-1, 0xCBCBC6)
$last1 = GUICtrlCreateEdit($last, 167, 34, 143, 20, BitOR($ES_READONLY, $ES_RIGHT), $WS_EX_STATICEDGE)
$last2 = GUICtrlCreateButton(Chr(164), 311, 34, 20, 19)
$Btn1 = GUICtrlCreateButton("р+", 9, 108, 120, 35)
$Btn2 = GUICtrlCreateButton("о", 145, 108, 89, 35)
$Btn3 = GUICtrlCreateButton("after", 275, 108, 55, 35)
$Text1 = GUICtrlCreateInput("8", 6, 78, 334, 21)
GUICtrlCreateLabel('Ввод данных:', 6, 59, 334, 17)
GUICtrlSetBkColor(-1, 0xfdffae)
GUICtrlSetState($CheckBox1, 1)
GUISetState()
WinSetOnTop ("Записи", "", 0)
GUICtrlSetState($Text1, $GUI_FOCUS)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $last2
GUICtrlSetData($Text1 & " ", GUICtrlRead($last1))
Case $CheckBox1
WinSetOnTop ( "Записи", "", 1)
EndSwitch
WEnd
файл http://leanna1983.narod2.ru/stuff/Kalkulyator.au3
Спасибо за внимание к данному вопросу.