GUICtrlSetOnEvent contextmenu ID - Array

[mod147]

Hi all,

i've made a little handy monitor-ping for our lan.

the script reads a ini file with name and ip of each computer and shows a GUI with name and online or offline status on each comp.<-- works fine

now i want to give each computername, witch is a lable in the GUI, a contextmenu with 3 items. <-- works fine to.

if i click on one of thies item i call a function, but in the function i dont now the Lables index i right clicked.

here a snipet

For $I = 1 To 30
        $comp = IniRead(@ScriptDir & "\Monitor_Kipszer.ini", $I, "Name", "")
        $IP_PING = IniRead(@ScriptDir & "\Monitor_Kipszer.ini", $I, "ip", "")
        $Lable[$I]= GUICtrlCreateLabel($comp, 24, $zeile, 73, 17)
            GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
            GUICtrlSetColor(-1, 0xFFFFFF)
            $Menu[$I] = GUICtrlCreateContextMenu($Lable[$I]);context mneu for a lable
            $MenuItem1[$I] = GUICtrlCreateMenuitem("Explore c$", $Menu[$I]);for the context menu Item1 
            GUICtrlSetOnEvent(-1, "explorec")
            $MenuItem2[$I] = GUICtrlCreateMenuitem("Vnc-dolgoz", $Menu[$I]);for the context menu Item2
            GUICtrlSetOnEvent(-1, "vncdolgoz")
            $MenuItem3[$I] = GUICtrlCreateMenuitem("Vnc-néz", $Menu[$I]);for the context menu Item3
            GUICtrlSetOnEvent(-1, "vncnez")
            $pic[$I] = GUICtrlCreatePic(@ScriptDir&"\btnred.GIF", 120, $zeile, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
        $zeile += 20
    Next

i do not like to write for each lable 3 functions, need it shorter.

can someone give me a hint, pls

cheers zoltan

sorry for my bad english

[martin]

  mod147 said:

Hi all,

i've made a little handy monitor-ping for our lan.

the script reads a ini file with name and ip of each computer and shows a GUI with name and online or offline status on each comp.<-- works fine

now i want to give each computername, witch is a lable in the GUI, a contextmenu with 3 items. <-- works fine to.

if i click on one of thies item i call a function, but in the function i dont now the Lables index i right clicked.

here a snipet

For $I = 1 To 30
        $comp = IniRead(@ScriptDir & "\Monitor_Kipszer.ini", $I, "Name", "")
        $IP_PING = IniRead(@ScriptDir & "\Monitor_Kipszer.ini", $I, "ip", "")
        $Lable[$I]= GUICtrlCreateLabel($comp, 24, $zeile, 73, 17)
            GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
            GUICtrlSetColor(-1, 0xFFFFFF)
            $Menu[$I] = GUICtrlCreateContextMenu($Lable[$I]);context mneu for a lable
            $MenuItem1[$I] = GUICtrlCreateMenuitem("Explore c$", $Menu[$I]);for the context menu Item1 
            GUICtrlSetOnEvent(-1, "explorec")
            $MenuItem2[$I] = GUICtrlCreateMenuitem("Vnc-dolgoz", $Menu[$I]);for the context menu Item2
            GUICtrlSetOnEvent(-1, "vncdolgoz")
            $MenuItem3[$I] = GUICtrlCreateMenuitem("Vnc-néz", $Menu[$I]);for the context menu Item3
            GUICtrlSetOnEvent(-1, "vncnez")
            $pic[$I] = GUICtrlCreatePic(@ScriptDir&"\btnred.GIF", 120, $zeile, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
        $zeile += 20
    Next

i do not like to write for each lable 3 functions, need it shorter.

can someone give me a hint, pls

cheers zoltan

sorry for my bad english

Not tested but hopefully it helps

GUICtrlSetOnEvent(-1, "vncnez")

Func vncnez()
    Local $in, $group

    For $in = 1 To 30
        If $MenuItem3[$in] = @GUI_CtrlId Then
            $group = $in
            ExitLoop
        EndIf
    Next
    ConsoleWrite("the menu is for computer " & $label[$group] & @CRLF)

EndFunc ;==>vncnez

Edited April 18, 2008 by martin

[mod147]

  martin said:

Not tested but hopefully it helps

GUICtrlSetOnEvent(-1, "vncnez")

Func vncnez()
    Local $in, $group

    For $in = 1 To 30
        If $MenuItem3[$in] = @GUI_CtrlId Then
            $group = $in
            ExitLoop
        EndIf
    Next
    ConsoleWrite("the menu is for computer " & $label[$group] & @CRLF)

EndFunc;==>vncnez

Thank you, after i change it to:

Func vncnez()
    Local $in, $group

    For $in = 1 To 30
        If $MenuItem3[$in] = @GUI_CtrlId Then
          MsgBox(0,"IP,Name ",  $IP_PING[$In] & @CRLF & $comp[$in]) 
           ExitLoop
        EndIf
    Next

EndFunc;==>vncnez

i got what i want

thx for your hint