Приветствую всех.
Есть форма, на ней кнопки. Клавишами "UP", "DOWN" передвигаясь по кнопкам, выделяем их. И при выделении кнопки должны менять цвет как в меню, а при нажатии выполнять свои действия. Трудность создает кнопки созданные массивом. Вот здесь Yashied привел пример.Но дальше я не смог . http://autoit-script.ru/index.php/topic,3892.msg28441.html#msg28441
Может поможете. За ранее спасибо.
Есть форма, на ней кнопки. Клавишами "UP", "DOWN" передвигаясь по кнопкам, выделяем их. И при выделении кнопки должны менять цвет как в меню, а при нажатии выполнять свои действия. Трудность создает кнопки созданные массивом. Вот здесь Yashied привел пример.Но дальше я не смог . http://autoit-script.ru/index.php/topic,3892.msg28441.html#msg28441
Может поможете. За ранее спасибо.
Код:
#include <GUIConstantsEx.au3>
#Include <ButtonConstants.au3>
#Include <WindowsConstants.au3>
Dim $aButton[7] = [6]
Global $iIndex
$hGui=GUICreate('Test', 160, 220)
For $i = 1 To $aButton[0]
$aButton[$i] = GUICtrlCreateButton('Button ' & $i, 20, 5 + ($i - 1) * 25, 120, 25, $BS_NOTIFY)
Next
GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
Switch $hWnd
Case $hGui
Switch BitShift($wParam, 16)
Case $BN_SETFOCUS
Switch BitAND($wParam, 0xFFFF)
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Case $aButton[1] To $aButton[$aButton[0]]
GUICtrlSetBkColor($aButton[$iIndex][0],0xFFFF00)
GUICtrlSetColor($aButton[$iIndex][0],0x000000)
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
EndSwitch
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND