[R] Clic sur un menu fait avec des Assigns

[Bayo]

Bonjour,

Je vous transfert un code que je réalise actuellement, j'ai un souci avec la gestion du clic dans le switch lorsque les menus sont réalisés avec des Assigns. donc j'aimerai gérer le clic sur le menu clic droit d'un PC mais le programme boucle quand j'insère le 2ème morceau de code dans le Switch.Et je ne comprend pas du tout pourquoi, ça doit être tout bête.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <listviewconstants.au3>
#include <GUITreeView.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>

Global $rows, $nbrows, $nbcols, $idTreeView_1, $hTreeView_1, $rows2, $nbrows2, $nbcols2
Global $selection=0
Global $iTreeView_Flag = False

Local $sLocalSQLiteDll = "sqlite3.dll" ; to be change to an existing .dll to have no error

_SQLite_Startup()
$sqlite = _SQLite_Open(@ScriptDir & "\BDD_test.sqlite")
_SQLite_Exec(-1, 'CREATE TABLE IF NOT EXISTS PC(idPC INTEGER PRIMARY KEY AUTOINCREMENT, nomPC TEXT,ipPC TEXT,macPC TEXT,fonctionPC TEXT,versionPC TEXT,datepremierapp TEXT,datedernierapp TEXT,modelePC TEXT);')

_SQLite_Exec(-1, 'INSERT INTO PC VALUES ("1","Test1","10.185.1.109","01:02:03:04:05","STANDARD","2015.2.1.0","17/04/2015 à 10h00","17/04/2015 à 11h30","Dell");')
_SQLite_Exec(-1, 'INSERT INTO PC VALUES ("2","Test2","10.181.1.129","01:02:03:04:05","STANDARD","2015.2.1.0","17/04/2015 à 10h00","17/04/2015 à 11h30","HP");')

Global $iTreeView_Flag = False
#Region - GUI Create
$gui = GUICreate('GUI', 800, 600)
Local $infopc = GUICtrlCreateListView("Information du PC|colonne2", 400, 6, 394, 294, $LVS_NOCOLUMNHEADER, $LVS_EX_GRIDLINES)
_GUICtrlListView_SetColumnWidth(-1, 0, 195)
_GUICtrlListView_SetColumnWidth(-1, 1, 195)
Local $idItem1 = GUICtrlCreateListViewItem("Modèle|", $infopc)

Local $idItem2 = GUICtrlCreateListViewItem("Fonction|", $infopc)
Local $idItem3 = GUICtrlCreateListViewItem("Version|", $infopc)
Local $idItem4 = GUICtrlCreateListViewItem("Adresse IP|", $infopc)
Local $idItem5 = GUICtrlCreateListViewItem("Adresse MAC|", $infopc)
Local $idItem6 = GUICtrlCreateListViewItem("Date première connexion|", $infopc)
Local $idItem7 = GUICtrlCreateListViewItem("Date dernière connexion|", $infopc)
$TreeView1 = GUICtrlCreateTreeView(6, 6, 394, 588, BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT), $WS_EX_CLIENTEDGE)
$hTreeView = GUICtrlGetHandle($TreeView1)

Local $idlieu = GUICtrlCreateTreeViewItem("Lieu", $TreeView1)

Local $idlieu1 = GUICtrlCreateTreeViewItem("Lieu 1", $idlieu)
Local $idlieu2 = GUICtrlCreateTreeViewItem("Lieu 2", $idlieu)

GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 150)

GUISetState()
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
#EndRegion - GUI Create

_SQLite_GetTable2d(-1, "SELECT * FROM PC ORDER BY nomPC;", $rows, $nbrows, $nbcols)

For $i = 1 To $nbrows
    $ipadresse = StringSplit($rows[$i][2], ".")
    Select
        Case $ipadresse[2] = "185"
            Assign("PC" & $rows[$i][1], GUICtrlCreateTreeViewItem($rows[$i][1], $idlieu1))
        Case $ipadresse[2] = "181"
            Assign("PC" & $rows[$i][1], GUICtrlCreateTreeViewItem($rows[$i][1], $idlieu2))
    EndSelect
    Assign("menuPC" & $rows[$i][1], GUICtrlCreateContextMenu(Eval("PC" & $rows[$i][1])))
    Assign("pingPC" & $rows[$i][1], GUICtrlCreateMenuItem("Ping " & $rows[$i][1], Eval("menuPC" & $rows[$i][1])))
Next
GUICtrlSetState($idlieu, $GUI_EXPAND)

;~  GUICtrlSetState($TreeView1,$GUI_HIDE)
#Region - GUI SelectLoop
While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
    If $iTreeView_Flag Then
        $iTreeView_Flag = False
        $selection = _GUICtrlTreeView_GetText($hTreeView, _GUICtrlTreeView_GetSelection($hTreeView))
;~         ConsoleWrite(_GUICtrlTreeView_GetText($hTreeView, _GUICtrlTreeView_GetSelection($hTreeView)) & @CRLF)
        If StringLeft($selection, 1) = "T" And StringLen($selection) = 5 Then
            _SQLite_GetTable2d(-1, "SELECT * FROM PC WHERE nomPC='" & $selection & "'", $rows2, $nbrows2, $nbcols2)
            GUICtrlSetData($idItem4, "|" & $rows2[1][2])
            GUICtrlSetData($idItem5, "|" & $rows2[1][3])
            GUICtrlSetData($idItem2, "|" & $rows2[1][4])
            GUICtrlSetData($idItem3, "|" & $rows2[1][5])
            GUICtrlSetData($idItem6, "|" & $rows2[1][6])
            GUICtrlSetData($idItem7, "|" & $rows2[1][7])
            GUICtrlSetData($idItem1, "|" & $rows2[1][8])

        EndIf

    EndIf

WEnd


;Second Try, it's work for the list view item, and it work for the treeview items too but it returned wrong value :(.
;the value returned is the selected item before new item selected/clicked
;i've checked the $tagNMTREEVIEW, but there isn't same with the $tagNMLISTVIEW, there is no item param.

Func WM_NOTIFY($hWnd, $Msg, $wParam, $lParam)
    Local $tNMHDR, $IdFrom, $iCode

    $tNMHDR = DllStructCreate($tagNMHDR, $lParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $IdFrom = DllStructGetData($tNMHDR, "IdFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
        Case $hTreeView
            Switch $iCode
                Case $NM_CLICK
                    $iTreeView_Flag = True
            EndSwitch
    EndSwitch

    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY

Si je rajoute ça dans le Switch

► Afficher le texte

Case Eval("pingterminal"&$selection)
msgbox(0,"","Ping "&$selection)

merci pour votre aide.

[jchd]

Quelques remarques dans le désordre, qui n'ont pas vraiment de rapport avec ta question d'ailleurs.

Si tu veux vraiment gérer la colonne idPC, passe un entier et non une chaîne. Mais tu ne devrais pas gérer cette colonne toi-même et soit dit au passage, je ne suis pas du tout certain qu'elle te soit utile. L'adresse IP est certainement unique et pourrait être ta clé primaire (dans ce cas, déclare ta table "without rowid").

Les accrobaties employant Assign et Eval me semblent inutilement tortueuses.

Le fait d'avoir le nom de tes établissements (Lieu1, ...) en littéral dans le code me semble douteux. Tu devrais certainement créer une table Lieux et avoir une "foreign key" pour chaque PC vers son lieu.

Le format de tes date/heure n'est pas correct si tu dois un jour lister les machines non connectées depuis 3 mois, par exemple. Emploie le format ISO simple "aaaa-mm-jj hh:mm:ss"

[Bayo]

Merci pour les différents conseils, non je ne gère pas moi même l'idPC, c'est juste la copie des lignes de la base en SQL qui m'a sorti ça. Je verrai en effet pour gérer la clé primaire autrement et une table pour les lieux est en effet beaucoup mieux.
Reste plus que mon problème :p

[jchd]

Essaye avec cette base-là, virer l'extension .txt :

BDD_test.sq3.txt

(13 Kio) Téléchargé 74 fois

et ce code-ci :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <listviewconstants.au3>
#include <GUITreeView.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>

Global $iTreeView_Flag = False
; Local $sLocalSQLiteDll = "sqlite3.dll" ; to be change to an existing .dll to have no error

_SQLite_Startup()
Local $hDB = _SQLite_Open(@ScriptDir & "\BDD_test.sq3")

Global $iTreeView_Flag = False
#Region - GUI Create
Local $gui = GUICreate('GUI', 800, 600)
Local $infopc = GUICtrlCreateListView("Information du PC|colonne2", 400, 6, 394, 294, $LVS_NOCOLUMNHEADER, $LVS_EX_GRIDLINES)
_GUICtrlListView_SetColumnWidth(-1, 0, 195)
_GUICtrlListView_SetColumnWidth(-1, 1, 195)
Local $idItem1 = GUICtrlCreateListViewItem("Modèle|", $infopc)
Local $idItem2 = GUICtrlCreateListViewItem("Fonction|", $infopc)
Local $idItem3 = GUICtrlCreateListViewItem("Version|", $infopc)
Local $idItem4 = GUICtrlCreateListViewItem("Adresse IP|", $infopc)
Local $idItem5 = GUICtrlCreateListViewItem("Adresse MAC|", $infopc)
Local $idItem6 = GUICtrlCreateListViewItem("Date première connexion|", $infopc)
Local $idItem7 = GUICtrlCreateListViewItem("Date dernière connexion|", $infopc)
Local $TreeView1 = GUICtrlCreateTreeView(6, 6, 394, 588, BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT), $WS_EX_CLIENTEDGE)
Local $hTreeView = GUICtrlGetHandle($TreeView1)

Local $idlieu = GUICtrlCreateTreeViewItem("Lieu", $TreeView1)
Global $aIdLieux, $iRows, $iCols
_SQLite_GetTable2d($hDB, "select lieu, iphi, 0 from lieux order by lieu", $aIdLieux, $iRows, $iCols)
For $i = 1 To $iRows
    $aIdLieux[$i][2] = GUICtrlCreateTreeViewItem($aIdLieux[$i][0], $idlieu)
    GUICtrlSetColor(-1, 0xF00000)
Next

GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 150)

GUISetState()
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
#EndRegion - GUI Create

Local $aIdPCs, $aMenuPC
_SQLite_GetTable2d($hDB, "SELECT 0, lieu, iphi || iplo IP, macaddr, nom, modèle, fonction, version, premierapp, dernierapp FROM PC natural join lieux ORDER BY lieu, iphi, nom;", $aIdPCs, $iRows, $iCols)

Local $n
Local $aIdPCs, $aMenuPC[$iRows + 1], $aPingPC[$iRows + 1]
For $i = 1 To $iRows
    $n = _ArraySearch($aIdLieux, $aIdPCs[$i][1], 1)
    $aIdPCs[$i][0] = GUICtrlCreateTreeViewItem($aIdPCs[$i][4], $aIdLieux[$n][2])
    GUICtrlSetColor(-1, 0x0000C0)
    $aMenuPC[$i] = GUICtrlCreateContextMenu($aIdPCs[$i][0])
    $aPingPC[$i] = GUICtrlCreateMenuItem("Ping " & $aIdPCs[$i][2], $aMenuPC[$i])
Next
GUICtrlSetState($idlieu, $GUI_EXPAND)

;~ GUICtrlSetState($TreeView1,$GUI_HIDE)
#Region - GUI SelectLoop
While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
    If $iTreeView_Flag Then
        $iTreeView_Flag = False
        Local $sel =  _GUICtrlTreeView_GetText($hTreeView, _GUICtrlTreeView_GetSelection($hTreeView))
        Local $idx =  _ArraySearch($aIdPCs, $sel, 1, UBound($aIdPCs) - 1, 0, 0, 1, 4)
        If $idx <> -1 Then
            GUICtrlSetData($idItem1, "|" & $aIdPCs[$idx][5])
            GUICtrlSetData($idItem2, "|" & $aIdPCs[$idx][6])
            GUICtrlSetData($idItem4, "|" & $aIdPCs[$idx][2])
            GUICtrlSetData($idItem5, "|" & $aIdPCs[$idx][3])
            GUICtrlSetData($idItem3, "|" & $aIdPCs[$idx][7])
            GUICtrlSetData($idItem6, "|" & $aIdPCs[$idx][8])
            GUICtrlSetData($idItem7, "|" & $aIdPCs[$idx][9])
        Else
            GUICtrlSetData($idItem1, "|")
            GUICtrlSetData($idItem2, "|")
            GUICtrlSetData($idItem4, "|")
            GUICtrlSetData($idItem5, "|")
            GUICtrlSetData($idItem3, "|")
            GUICtrlSetData($idItem6, "|")
            GUICtrlSetData($idItem7, "|")
        EndIf
    EndIf
WEnd
#EndRegion

;Second Try, it's work for the list view item, and it work for the treeview items too but it returned wrong value :(.
;the value returned is the selected item before new item selected/clicked
;i've checked the $tagNMTREEVIEW, but there isn't same with the $tagNMLISTVIEW, there is no item param.

Func WM_NOTIFY($hWnd, $Msg, $wParam, $lParam)
    Local $tNMHDR, $IdFrom, $iCode

    $tNMHDR = DllStructCreate($tagNMHDR, $lParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $IdFrom = DllStructGetData($tNMHDR, "IdFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
        Case $hTreeView
            Switch $iCode
                Case $NM_CLICK
                    $iTreeView_Flag = True
            EndSwitch
    EndSwitch

    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY
 

[Bayo]

Merci pour les améliorations apportées, mais même problème pour moi, je pense faire autrement mais c'est pour apprendre, comment faire pour gérer l'appuie sur le context menu que tu as entré dans le tableau?
Donc quand on fait un clic droit puis PIng on execute un Ping.

Merci

[Bayo]

OK j'y suis arrivé avec GUIOnEventMode, je l'avais jamais utilisé donc j'avais oublié qu'il existait, ça fonctionne merci de ton aide. Je résous

[Bayo]

Ah si, j'ai un petit problème, je laisse résolu en espérant qu'il soit lu.
Lorsque je laisse la sélection sur le début de la TreeView par exemple (Lieu) et que je fais un clic droit sur un pc et que je fais ping, il détecte qu'il est encore sur Lieu et donc y revient.

Voici le code que j'ai pour le moment avec l'événementiel

► Afficher le texte

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <listviewconstants.au3>
#include <GUITreeView.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>

Opt("GUIOnEventMode", 1)


Global $iTreeView_Flag = False
; Local $sLocalSQLiteDll = "sqlite3.dll" ; to be change to an existing .dll to have no error

_SQLite_Startup()
Local $hDB = _SQLite_Open(@ScriptDir & "\BDD_test.sq3")

Global $iTreeView_Flag = False
#Region - GUI Create
Local $gui = GUICreate('GUI', 800, 600)
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "SpecialEvents")
GUISetOnEvent($GUI_EVENT_RESTORE, "SpecialEvents")
Local $TreeView1 = GUICtrlCreateTreeView(6, 6, 394, 588, BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT), $WS_EX_CLIENTEDGE)
Local $hTreeView = GUICtrlGetHandle($TreeView1)
Local $infopc = GUICtrlCreateListView("Information du PC|colonne2", 400, 6, 394, 294, $LVS_NOCOLUMNHEADER, $LVS_EX_GRIDLINES)
_GUICtrlListView_SetColumnWidth(-1, 0, 195)
_GUICtrlListView_SetColumnWidth(-1, 1, 195)
Local $idItem1 = GUICtrlCreateListViewItem("Modèle|", $infopc)
Local $idItem2 = GUICtrlCreateListViewItem("Fonction|", $infopc)
Local $idItem3 = GUICtrlCreateListViewItem("Version|", $infopc)
Local $idItem4 = GUICtrlCreateListViewItem("Adresse IP|", $infopc)
Local $idItem5 = GUICtrlCreateListViewItem("Adresse MAC|", $infopc)
Local $idItem6 = GUICtrlCreateListViewItem("Date première connexion|", $infopc)
Local $idItem7 = GUICtrlCreateListViewItem("Date dernière connexion|", $infopc)


Local $idlieu = GUICtrlCreateTreeViewItem("Lieu", $TreeView1)
Global $aIdLieux, $iRows, $iCols
_SQLite_GetTable2d($hDB, "select lieu, iphi, 0 from lieux order by lieu", $aIdLieux, $iRows, $iCols)
For $i = 1 To $iRows
$aIdLieux[$i][2] = GUICtrlCreateTreeViewItem($aIdLieux[$i][0], $idlieu)
GUICtrlSetColor(-1, 0xF00000)
Next

GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 150)

GUISetState()
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
#EndRegion - GUI Create

Local $aIdPCs, $aMenuPC
_SQLite_GetTable2d($hDB, "SELECT 0, lieu, iphi || iplo IP, macaddr, nom, modèle, fonction, version, premierapp, dernierapp FROM PC natural join lieux ORDER BY lieu, iphi, nom;", $aIdPCs, $iRows, $iCols)

Local $n
Local $aIdPCs, $aMenuPC[$iRows + 1], $aPingPC[$iRows + 1]
For $i = 1 To $iRows
$n = _ArraySearch($aIdLieux, $aIdPCs[$i][1], 1)
$aIdPCs[$i][0] = GUICtrlCreateTreeViewItem($aIdPCs[$i][4], $aIdLieux[$n][2])
GUICtrlSetColor(-1, 0x0000C0)
$aMenuPC[$i] = GUICtrlCreateContextMenu($aIdPCs[$i][0])
$aPingPC[$i] = GUICtrlCreateMenuItem("Ping " & $aIdPCs[$i][2], $aMenuPC[$i])

GUICtrlSetOnEvent(-1, "Pingtest")
Next
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "SpecialEvents")
GUISetOnEvent($GUI_EVENT_RESTORE, "SpecialEvents")
GUICtrlSetState($idlieu, $GUI_EXPAND)
;~ _ArrayDisplay($aPingPC)
;~ _ArrayDisplay($aIdPCs)
;~ GUICtrlSetState($TreeView1,$GUI_HIDE)
#Region - GUI SelectLoop
While 1
If $iTreeView_Flag Then
$iTreeView_Flag = False
Local $sel = _GUICtrlTreeView_GetText($hTreeView, _GUICtrlTreeView_GetSelection($hTreeView))
Global $idx = _ArraySearch($aIdPCs, $sel, 1, UBound($aIdPCs) - 1, 0, 0, 1, 4)

If $idx <> -1 Then
GUICtrlSetData($idItem1, "|" & $aIdPCs[$idx][5])
GUICtrlSetData($idItem2, "|" & $aIdPCs[$idx][6])
GUICtrlSetData($idItem4, "|" & $aIdPCs[$idx][2])
GUICtrlSetData($idItem5, "|" & $aIdPCs[$idx][3])
GUICtrlSetData($idItem3, "|" & $aIdPCs[$idx][7])
GUICtrlSetData($idItem6, "|" & $aIdPCs[$idx][8])
GUICtrlSetData($idItem7, "|" & $aIdPCs[$idx][9])
Else
GUICtrlSetData($idItem1, "|")
GUICtrlSetData($idItem2, "|")
GUICtrlSetData($idItem4, "|")
GUICtrlSetData($idItem5, "|")
GUICtrlSetData($idItem3, "|")
GUICtrlSetData($idItem6, "|")
GUICtrlSetData($idItem7, "|")
EndIf
EndIf

WEnd
#EndRegion - GUI SelectLoop

;Second Try, it's work for the list view item, and it work for the treeview items too but it returned wrong value .
;the value returned is the selected item before new item selected/clicked
;i've checked the $tagNMTREEVIEW, but there isn't same with the $tagNMLISTVIEW, there is no item param.

Func WM_NOTIFY($hWnd, $Msg, $wParam, $lParam)
Local $tNMHDR, $IdFrom, $iCode

$tNMHDR = DllStructCreate($tagNMHDR, $lParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$IdFrom = DllStructGetData($tNMHDR, "IdFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hTreeView
Switch $iCode
Case $NM_CLICK
$iTreeView_Flag = True
Case $NM_RCLICK



EndSwitch
EndSwitch

Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY

Func Pingtest()
Local $sel = _GUICtrlTreeView_GetText($hTreeView, _GUICtrlTreeView_GetSelection($hTreeView))
Local $idx = _ArraySearch($aIdPCs, $sel, 1, UBound($aIdPCs) - 1, 0, 0, 1, 4)
If $idx <> -1 Then
;~ msgbox(0,"",$aIdPCs[$idx][2])
Run("Ping "&$aIdPCs[$idx][2]&" -t")
Endif
EndFunc
Func SpecialEvents()
Select
Case @GUI_CtrlId = $GUI_EVENT_CLOSE

Exit

Case @GUI_CtrlId = $GUI_EVENT_MINIMIZE


Case @GUI_CtrlId = $GUI_EVENT_RESTORE


EndSelect
EndFunc ;==>SpecialEvents