inververs
AutoIT Гуру
- Сообщения
- 2,135
- Репутация
- 465
Маленький фреймворк который может устанавливать данные в контролы и менять им цвет.
Он скромный, но с большим потенциалом для развития.
Вот вариант синтаксиса:
Подключаем фреймворк:
Устанавливаем свойства для контрола $label1
или так, т.к порядок не имеет никакого значение, выбираются только необходимые свойства.
Вот так можно задать события для контролов:
Код фреймворка:
Небольшая демонстрация
Как вам идея? Можно сообществом сделать из этого что то серьезное.
Он скромный, но с большим потенциалом для развития.
Вот вариант синтаксиса:
Подключаем фреймворк:
Код:
#include 'framework.au3'
Устанавливаем свойства для контрола $label1
Код:
GUI($Label1,array('data','AutoIT','color',0xFF0000))
или так, т.к порядок не имеет никакого значение, выбираются только необходимые свойства.
Код:
GUI($Label1,array('color',0xFF0000,'data','AutoIT'))
Вот так можно задать события для контролов:
Код:
GUI($Label1,array('data','Нажмите для выхода','onclick',__labelClick)) ;Требуется бета версия AutoIT, иначе заключить в ковычки '__labelClick'
Func __labelClick()
Exit
EndFunc
Код фреймворка:
Код:
#include-once
Opt('GUIOnEventMode',1)
Func GUI($v1 = 0,$v2 = 0,$v3 = 0)
For $i = 0 To UBound($v2) - 1
Switch StringLower($v2[$i][0])
Case 'data'
GUICtrlSetData($v1,$v2[$i][1])
Case 'color'
GUICtrlSetColor($v1,$v2[$i][1])
Case 'onclick'
GUICtrlSetOnEvent($v1,$v2[$i][1])
EndSwitch
Next
EndFunc
Func array($v1 = 0, $v2 = 0,$v3 = 0,$v4 = 0)
Local $at[2][2]
$at[0][0] = $v1
$at[0][1] = $v2
$at[1][0] = $v3
$at[1][1] = $v4
Return $at
EndFunc
Небольшая демонстрация
Код:
$Form1 = GUICreate("Framework Test", 212, 116, 192, 124)
$Label1 = GUICtrlCreateLabel("Label1", 24, 8, 172, 17)
GUISetState(@SW_SHOW)
#include 'framework.au3'
GUI($Label1,array('data','Нажмите для выхода','onclick',__labelClick))
Func __labelClick()
ConsoleWrite('Кликнули Выходим' & @LF)
Exit
EndFunc
While 1
Sleep(100)
WEnd
Как вам идея? Можно сообществом сделать из этого что то серьезное.