No llama al evento - Help me
Publicado: 22 Jul 2014, 22:35
Buen día con todos, sucede que en este pequeño ejemplo no me respone al evento despues de ocultar la ventana y luego restablecerla, pero mientras está visible cuando se ejecuta por primera vez el boton si da respuesta pero luego ya no, como que no hace caso al evento.
Por favor si alguien puede ayudarme...
Por favor si alguien puede ayudarme...
Código: Seleccionar todo
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
Opt("GUIOnEventMode", 1)
Global $verificarActivacion, $Input1, $TrayItemMostrar, $TrayItemSalir
$interfaz = GUICreate("Form2", 218, 289, 202, 201)
GUISetOnEvent($GUI_EVENT_CLOSE, "cerrarInterfaz")
$verificarActivacion = GUICtrlCreateButton("Verificar Activacion", 24, 152, 155, 25)
GUICtrlSetOnEvent(-1, "accionVerificar")
$Input1 = GUICtrlCreateInput("", 40, 112, 121, 21)
GUISetState(@SW_SHOW)
$TrayItemMostrar = TrayCreateItem("Abrir ventana")
TrayItemSetOnEvent(-1, "abrirVentana")
TrayCreateItem(""); crea una linea separadora
$TrayItemSalir = TrayCreateItem("Salir")
TrayItemSetOnEvent(-1, "ExitEvent")
gui()
Func gui()
While 1
Sleep(100)
WEnd
EndFunc ;==>gui
Func tray()
Opt("TrayMenuMode", 1)
Opt("GUIOnEventMode", 0)
Opt("TrayOnEventMode", 1)
Opt("TrayIconHide", 0)
TraySetClick(16)
TraySetState()
While 1
Sleep(10)
WEnd
EndFunc ;==>tray
Func abrirVentana()
GUISetState(@SW_SHOW, $interfaz)
Opt("TrayIconHide", 1)
gui()
EndFunc ;==>abrirVentana
Func ExitEvent()
Exit
EndFunc ;==>ExitEvent
Func accionVerificar()
GUICtrlSetData($Input1, "estoy activo, ")
Sleep(1000)
GUICtrlSetData($Input1, "")
EndFunc ;==>accionVerificar
Func cerrarInterfaz()
GUISetState(@SW_HIDE, $interfaz)
tray()
EndFunc ;==>Form2Close