[R] Retirer la surbrillance d'une ligne (GUIListViewEx.au3)
Posté : sam. 13 janv. 2024 19:42
par Anthony
Bonjour à tous,
Voici mon problème, je souhaite qu'une ligne sélectionnée en surbrillance puisse être non sélectionnée automatiquement au bout d'une seconde.
J'ai tenté beaucoup de chose et à part un contrôle clic
... là je bloque...
Merci d'avance
PS: La fonction en question est
EDIT : Résolu ici
viewtopic.php?p=108274#p108274
Voici mon problème, je souhaite qu'une ligne sélectionnée en surbrillance puisse être non sélectionnée automatiquement au bout d'une seconde.
J'ai tenté beaucoup de chose et à part un contrôle clic
... là je bloque...Merci d'avance
PS: La fonction en question est
Code : Tout sélectionner
_UnSet()► Afficher le texte
Code : Tout sélectionner
#include <GuiListBox.au3> #include <Date.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <AutoItConstants.au3> #include <StaticConstants.au3> #include <UpDownConstants.au3> #include <EditConstants.au3> #include <File.au3> #include <Misc.au3> #include <String.au3> #include <Array.au3> #include "GUIListViewEx.au3" Global $iYellow = "0xFFFF00", _ $iLtBlue = "0xCCCCFF", _ $iGreen = "0x00FF00", _ $iBlack = "0x000000", _ $iRed = "0xFF0000", _ $iBlue = "0x0000FF", _ $iWhite = "0xFFFFFF" Global $sRet, $aRetMem $hGUI = GUICreate("Coloured ListView Example_6 Light", 500, 330) ; Create ListView GUICtrlCreateLabel("Full row select - right click item for colour options", 10, 10, 400, 20) $cLV_1 = GUICtrlCreateListView("Zero Column|One Column|Two Column|Three Column", 10, 30, 480, 260, BitOR($LVS_SINGLESEL, $LVS_SHOWSELALWAYS)) _GUICtrlListView_SetExtendedListViewStyle($cLV_1, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_HEADERDRAGDROP)) For $i = 0 To 3 _GUICtrlListView_SetColumnWidth($cLV_1, $i, 100) Next ; Create Cols & Rows Global $vCols = 6, $vRows = 4 ; Create array and fill listview Global $aLVArray_1[$vCols][$vRows] For $i = 0 To $vCols - 1 ; 5 $sData = "Item " & $i & "-0" $aLVArray_1[$i][0] = $sData For $j = 1 To $vRows - 1 ; 3 $sData &= "|SubItem " & $i & "-" & $j $aLVArray_1[$i][$j] = "SubItem " & $i & "-" & $j Next GUICtrlCreateListViewItem($sData, $cLV_1) Next ; Initiate ListView = sort on column click - editable headers - header colours - user colours $iLVIndex_1 = _GUIListViewEx_Init($cLV_1, $aLVArray_1, 0, 0, True, 1 + 8 + 32) ; + 16 ; Set column edit status _GUIListViewEx_SetEditStatus($iLVIndex_1, "0;1") ; Default = standard text edit "0;1" La colonne 0 et 1 sont éditables _GUIListViewEx_SetEditStatus($iLVIndex_1, 2, 2, "1|2|3|4|5|6|7|8|9", 1) ; Colone 2, 2 = Read-only combo _GUIListViewEx_SetEditStatus($iLVIndex_1, 3, 3) ; Colone 3, 3 = DTP (Calendrier) ; Create colour array - 0-based to fit ListView content Global $aLVCol_1[$vCols][$vRows] = [ _ [$iYellow & ";" & $iBlue] , _ ; Format TxtCol;BkCol ["" , ";" & $iGreen , $iRed & ";"] , _ ; Use leading/trailing ; to indicate if single colour is TxtCol or BkCol [";" , "" , $iWhite & ";" & $iBlack] _ ] ; Default (or no change) can be ";" or "" ; Load colour array into ListView _GUIListViewEx_LoadColour($iLVIndex_1, $aLVCol_1) ;~ _ArrayDisplay($aLVCol_1, "Returned") ; Create context menu for native ListView $mContextmenu = GUICtrlCreateContextMenu($cLV_1) GUICtrlCreateMenuItem("", $mContextmenu) $mLineGrnFld = GUICtrlCreateMenuItem("Line Green field", $mContextmenu) $cContent = GUICtrlCreateButton("Content", 100, 295, 80, 30) $cColour = GUICtrlCreateButton("Colour", 200, 295, 80, 30) $cHeaders = GUICtrlCreateButton("Headers", 300, 295, 80, 30) ; If colours used then this function must be run BEFORE GUISetState _GUIListViewEx_MsgRegister() GUISetState() While 1 $iMsg = GUIGetMsg() Switch $iMsg Case $GUI_EVENT_CLOSE Exit Case $cContent $aRet = _GUIListViewEx_ReturnArray($iLVIndex_1) _ArrayDisplay($aRet, "", Default, 8) Case $cColour $aRet = _GUIListViewEx_ReturnArray($iLVIndex_1, 2) _ArrayDisplay($aRet, "", Default, 8) Case $cHeaders $aRet = _GUIListViewEx_ReturnArray($iLVIndex_1, 4) _ArrayDisplay($aRet, "", Default, 8) Case $mLineGrnFld ; Check context menu items _SetColour($iMsg) EndSwitch $vRet = _GUIListViewEx_EventMonitor() If @error Then MsgBox($MB_SYSTEMMODAL, "Error", "Event error: " & @error) EndIf Switch @extended Case 0 ; No event detected Case 1 If $vRet = "" Then MsgBox($MB_SYSTEMMODAL, "Edit", "Edit aborted" & @CRLF) Else _ArrayDisplay($vRet, "ListView " & _GUIListViewEx_GetActive() & " content edited", Default, 8) EndIf Case 2 If $vRet = "" Then MsgBox($MB_SYSTEMMODAL, "Header edit", "Header edit aborted" & @CRLF) Else _ArrayDisplay($vRet, "ListView " & _GUIListViewEx_GetActive() & " header edited", Default, 8) EndIf Case 3 MsgBox($MB_SYSTEMMODAL, "Sorted", "ListView: " & $vRet & @CRLF) Case 4 Local $aRet = StringSplit($vRet, ":") MsgBox($MB_SYSTEMMODAL, "Dragged", "From ListView " & $aRet[1] & @CRLF & "To ListView " & $aRet[2]) EndSwitch _UnSet() WEnd Func _UnSet() $aRet = _GUIListViewEx_GetLastSelItem() If $aRet <> $aRetMem Then $aRetMem = $aRet ConsoleWrite( "Line=" & @ScriptLineNumber & @TAB & "$aRet = " &$aRet& ", la ligne est en surbrillance, " &_NowTime() & @CRLF) Sleep(1000) ;~ _GUICtrlListView_SetItemSelected( $cLV_1, -1, False) ;~ _GUIListViewEx_SetActive(-1) ;~ _GUICtrlListView_SetItemSelected( GUICtrlGetHandle( $cLV_1), "-1", False) _GUICtrlListBox_SetCurSel( $cLV_1, -1) ConsoleWrite( "Line=" & @ScriptLineNumber & @TAB & "$aRet = " &$aRet& ", la ligne n'est plus en surbrillance, " &_NowTime() & @CRLF) EndIf EndFunc Func _SetColour($iCID) ; Get information on where last right click occurred within ListView Local $aContext = _GUIListViewEx_ContextPos() If @error Then Return EndIf ; Set new colour required Local $sColSet = "", $aColArray, $aSplit, $fDef = False Switch $iCID Case $mLineGrnFld $sColSet = ";" & $iGreen For $i = 0 To $vRows ; $vCols = 6, $vRows = 4 _GUIListViewEx_SetColour(1, $sColSet, 3, $i) Next EndSwitch EndFunc
viewtopic.php?p=108274#p108274
mal appliqué oui, mais toujours aucun effet 
