Gui, Add, DropDownList, vMyList, Item1||Item2|Item3
Gui, Show
F10::
GuiControlGet, MyList
MsgBox, % MyList
Return...когда ты выбираешь что то в DropDownList она сразу активируется...
Метку убрать - вопрос решён. Зачем городить лишнее?
]]>SetWorkingDir %A_ScriptDir%
SetBatchLines -1
IniRead, Key,data/test2.egl, USER, Key
Gui Font, s9, Segoe UI
Gui Add, DropDownList, x8 y8 w218 gVib,Test|Test1|
Gui Add, Hotkey, x8 y40 w218 h23 vKey,%Key%
Gui Add, Button, x8 y68 w218 h23 gSave, &Save
Gui Show, w230 h100, Test
Return
GuiEscape:
GuiClose:
ExitApp
Save:
Gui, submit, nohide
IniWrite, %Key%,data/test2.egl, USER, Key
HotKey, %Key%, Off, UseErrorLevel
Gui, Submit, NoHide,
HotKey, %Key%, Activate, On, UseErrorLevel
Return
Vib:
if A_GuiControl = Test
Goto Ac1
if A_GuiControl = Test1
Goto Ac2
Return
Ac1:
Loop, 5
{
MsgBox, tyda11
Sleep 1500
}
Return
Ac2:
Loop, 5
{
MsgBox, tyda12
Sleep 1500
}
Return
SetWorkingDir %A_ScriptDir%
SetBatchLines -1
IniRead, Key,data/test2.egl, USER, Key
Gui Font, s9, Segoe UI
Gui Add, DropDownList, x8 y8 w218 gVib,Test|Test1|Test2|Test3[/color]
GuiControl, ChooseString, Vib, %Vib%
Gui Add, Hotkey, x8 y40 w218 h23 vKey,%Key%
Gui Add, Button, x8 y68 w218 h23 gSave, &Save
Gui Show, w230 h100, Test
Return
GuiEscape:
GuiClose:
ExitApp
Save:
Gui, submit, nohide
IniWrite, %Key%,data/test2.egl, USER, Key
HotKey, %Key%, Off, UseErrorLevel
Gui, Submit, NoHide,
HotKey, %Key%, Activate, On, UseErrorLevel
Return
Vib:
if A_GuiControl = Test
Goto Ac1
if A_GuiControl = Test1
Goto Ac2
if A_GuiControl = Test2
Goto Ac3
if A_GuiControl = Test3
Goto Ac4
Return
Ac1:
Loop, 5
{
MsgBox, tyda11
Sleep 1500
}
Return
Ac2:
Loop, 5
{
MsgBox, tyda12
Sleep 1500
}
Return
Ac3:
Loop, 5
{
MsgBox, tyda13
Sleep 1500
}
Return
Ac4:
Loop, 5
{
MsgBox, tyda14
Sleep 1500
}
Return