Здравствуйте, возник такой вопрос:
В программе есть несколько кнопок (7)
как изменить их цвет при нажатии кнопки таб
пробовал такой способ не помогло:
целиком функция:
уточняющий вопрос: как изменить цвет именно для определённой кнопки
В программе есть несколько кнопок (7)
Код:
$Start_PG = GUICtrlCreateButton("СТАРТ", 48, 168, 75, 25)
$Button_Start_PG= GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Stop_PG = GUICtrlCreateButton("СТОП", 48, 224, 75, 25)
$Button_Stop_PG= GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Start_EX = GUICtrlCreateButton("СТАРТ", 288, 168, 75, 25)
$Button_Start_EX = GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Stop_EX = GUICtrlCreateButton("СТОП", 288, 224, 75, 25)
$Button_Stop_EX = GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Shut_down_PC = GUICtrlCreateButton("ВЫКЛЮЧЕНИЕ ПК", 248, 256, 139, 33)
$Button_Shut_down_PC = GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Reboot_PC= GUICtrlCreateButton("ПЕРЕЗАГРУЗКА ПК", 16, 256, 139, 33)
$Button_Reboot_PC = GUICtrlSetBkColor(-1, 0xFF0470) ;красный
как изменить их цвет при нажатии кнопки таб
пробовал такой способ не помогло:
Код:
$dll = DllOpen("user32.dll")
If _IsPressed("09", $dll) Then
$P=($P+1)
If $P=1 Then
ToolTip('Button_Start_PG ',0,0)
$Button_Start_PG= GUICtrlSetBkColor(-1, 0x00ff00) ;зелёный
$Button_Stop_PG= GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Start_EX= GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_EX= GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Shut_down_PC= GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Reboot_PC= GUICtrlSetBkColor(-1, 0xFF0470) ;красный
Sleep (300)
EndIf
If $P=2 Then
ToolTip('Button_Stop_PG ',0,0)
$Button_Start_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_PG=GUICtrlSetBkColor(-1, 0x00ff00) ;зелёный
$Button_Start_EX =GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_EX=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Shut_down_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Reboot_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
Sleep (300)
EndIf
If $P=3 Then
ToolTip('Button_Start_EX ',0,0)
$Button_Start_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Start_EX =GUICtrlSetBkColor(-1, 0x00ff00) ;зелёный
$Button_Stop_EX=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Shut_down_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Reboot_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
Sleep (300)
EndIf
If $P=4 Then
ToolTip('Button_Stop_EX ',0,0)
$Button_Start_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Start_EX =GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_EX=GUICtrlSetBkColor(-1, 0x00ff00) ;зелёный
$Button_Shut_down_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Reboot_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
Sleep (300)
EndIf
If $P=5 Then
ToolTip('Shut_down_PC ',0,0)
$Button_Start_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Start_EX =GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_EX=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Shut_down_PC=GUICtrlSetBkColor(-1, 0x00ff00) ;зелёный
$Button_Reboot_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
Sleep (300)
EndIf
If $P=6 Then
ToolTip('Reboot_PC ',0,0)
$Button_Start_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Start_EX =GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_EX=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Shut_down_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Reboot_PC=GUICtrlSetBkColor(-1, 0x00ff00) ;зелёный
Sleep (300)
EndIf
If $P=7 Then
ToolTip('Невидимая клавиша ',0,0)
$Button_Start_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Start_EX =GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_EX=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Shut_down_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Reboot_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
Sleep (300)
$P=0
EndIf
EndIf
целиком функция:
Код:
Func menu()
If $work = 1 Then
GUIDelete($AUTENTIFICATION)
EndIf
$TERM = GUICreate("Выбор", 413, 305, 300, 202)
$Label1 = GUICtrlCreateLabel("ВЫБЕРИТЕ действие:", 72, 48, 281, 33)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Для 1-го окна", 248, 120, 150, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Для 2-го окна", 8, 120, 185, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Inviz = GUICtrlCreateButton("Button2", 48, 100, 1, 1)
$Start_PG = GUICtrlCreateButton("СТАРТ", 48, 168, 75, 25)
$Button_Start_PG= GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Stop_PG = GUICtrlCreateButton("СТОП", 48, 224, 75, 25)
$Button_Stop_PG= GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Start_EX = GUICtrlCreateButton("СТАРТ", 288, 168, 75, 25)
$Button_Start_EX = GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Stop_EX = GUICtrlCreateButton("СТОП", 288, 224, 75, 25)
$Button_Stop_EX = GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Shut_down_PC = GUICtrlCreateButton("ВЫКЛЮЧЕНИЕ ПК", 248, 256, 139, 33)
$Button_Shut_down_PC = GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Reboot_PC= GUICtrlCreateButton("ПЕРЕЗАГРУЗКА ПК", 16, 256, 139, 33)
$Button_Reboot_PC = GUICtrlSetBkColor(-1, 0xFF0470) ;красный
;GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
While 1
$dll = DllOpen("user32.dll")
If _IsPressed("09", $dll) Then
$P=($P+1)
If $P=1 Then
ToolTip('Button_Start_PG ',0,0)
$Button_Start_PG= GUICtrlSetBkColor(-1, 0x00ff00) ;зелёный
$Button_Stop_PG= GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Start_EX= GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_EX= GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Shut_down_PC= GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Reboot_PC= GUICtrlSetBkColor(-1, 0xFF0470) ;красный
Sleep (300)
EndIf
If $P=2 Then
ToolTip('Button_Stop_PG ',0,0)
$Button_Start_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_PG=GUICtrlSetBkColor(-1, 0x00ff00) ;зелёный
$Button_Start_EX =GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_EX=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Shut_down_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Reboot_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
Sleep (300)
EndIf
If $P=3 Then
ToolTip('Button_Start_EX ',0,0)
$Button_Start_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Start_EX =GUICtrlSetBkColor(-1, 0x00ff00) ;зелёный
$Button_Stop_EX=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Shut_down_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Reboot_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
Sleep (300)
EndIf
If $P=4 Then
ToolTip('Button_Stop_EX ',0,0)
$Button_Start_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Start_EX =GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_EX=GUICtrlSetBkColor(-1, 0x00ff00) ;зелёный
$Button_Shut_down_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Reboot_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
Sleep (300)
EndIf
If $P=5 Then
ToolTip('Shut_down_PC ',0,0)
$Button_Start_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Start_EX =GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_EX=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Shut_down_PC=GUICtrlSetBkColor(-1, 0x00ff00) ;зелёный
$Button_Reboot_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
Sleep (300)
EndIf
If $P=6 Then
ToolTip('Reboot_PC ',0,0)
$Button_Start_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Start_EX =GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_EX=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Shut_down_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Reboot_PC=GUICtrlSetBkColor(-1, 0x00ff00) ;зелёный
Sleep (300)
EndIf
If $P=7 Then
ToolTip('Невидимая клавиша ',0,0)
$Button_Start_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_PG=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Start_EX =GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Stop_EX=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Shut_down_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
$Button_Reboot_PC=GUICtrlSetBkColor(-1, 0xFF0470) ;красный
Sleep (300)
$P=0
EndIf
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
;ShutdownMachine()
Case $Start_PG
Start_PG()
Case $Stop_PG
Stop_PG()
Case $Start_EX
Start_EX()
Case $Stop_EX
Stop_EX()
Case $Shut_down_PC
ShutdownMachine()
Case $Reboot_PC
Reboot()
EndSwitch
DllClose($dll)
WEnd
EndFunc
уточняющий вопрос: как изменить цвет именно для определённой кнопки