#include <GuiConstants.au3>
#include <AU3_INTERACT.au3>
#Region _AutoItSetInteraction() Part
Dim $aFunctions[3][3]
$aFunctions[0][0] = 1001
$aFunctions[0][1] = "My_Function_1"
$aFunctions[0][2] = "Some Param 1"
$aFunctions[1][0] = 1002
$aFunctions[1][1] = "My_Function_2"
$aFunctions[1][2] = "Some Param 2"
$aFunctions[2][0] = 1003
$aFunctions[2][1] = "My_Function_3"
$aFunctions[2][2] = "Some Param 3"
_AutoItSetInteraction("_MYAPP_", $aFunctions)
#EndRegion _AutoItSetInteraction() Part
;
$hGUI = GUICreate("_AutoItSetInteraction() Demo", 400, 200, -1, -1, -1, $WS_EX_TOPMOST)
$Edit = GUICtrlCreateEdit("", 10, 10, 380, 180)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func My_Function_1($vParam)
GUICtrlSetData($Edit, "Function 1 Fired: " & $vParam & @CRLF, 1)
EndFunc
Func My_Function_2()
GUICtrlSetData($Edit, "Function 2 Fired!" & @CRLF, 1)
EndFunc
Func My_Function_3()
GUICtrlSetData($Edit, "Function 3 Fired!" & @CRLF, 1)
MsgBox(262144+64, "", "Function 3 Fired!")
EndFunc |
