Voici mon problème du jour : J'ai un Treeview que je remplie d'après un tableau et j'aimerai au clic sur un des item ouvrir le fichier associé.
Voici mon code :
#include <GuiTreeView.au3>
Dim $tab_treeview[4][3]
$tab_treeview[0][0]="CAT"
$tab_treeview[0][1]="LIBELE"
$tab_treeview[0][2]="FICHIER"
$tab_treeview[1][0]="CONTRATS"
$tab_treeview[1][1]="Contrat 001"
$tab_treeview[1][2]=@ScriptDir & "\contrat001.txt"
$tab_treeview[1][0]="CONTRATS"
$tab_treeview[1][1]="Contrat 002"
$tab_treeview[1][2]=@ScriptDir & "\contrat002.txt"
$tab_treeview[2][0]="CONTRATS"
$tab_treeview[2][1]="Contrat 003"
$tab_treeview[2][2]=@ScriptDir & "\contrat003.txt"
$tab_treeview[3][0]="CONSIGNES"
$tab_treeview[3][1]="Consignes 001"
$tab_treeview[3][2]=@ScriptDir & "\consignes.txt"
;_ArrayDisplay($tab_treeview,"$tab_treeview " & @ScriptLineNumber)
#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 615, 437, 192, 124)
Global $TreeView1 = GUICtrlCreateTreeView(40, 48, 425, 217)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
f_generertreeview()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func f_generertreeview()
$ged_cat_ex=""
$TreeView1_menu_item=0
Global $aItem[UBound($tab_treeview)]
For $i = 1 To UBound($tab_treeview)-1
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $tab_treeview[$i][0] = ' & $tab_treeview[$i][0] & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
$ged_cat="DOCS " & $tab_treeview[$i][0]
If $ged_cat<>$ged_cat_ex Then
$aItem[$i]=_GUICtrlTreeView_Add($TreeView1,0,$ged_cat)
$ged_cat_ex=$ged_cat
$TreeView1_menu_item=$aItem[$i]
EndIf
_GUICtrlTreeView_AddChild($TreeView1,$TreeView1_menu_item, $tab_treeview[$i][1])
Next
_GUICtrlTreeView_EndUpdate($TreeView1)
EndFunc
Quelqu'un aurait il la solution svp ?
Merci à tous et prenez soin de vous.
Amicalement.
BM