Luigi

[SOLVED] Help with context menu on listview

12 posts in this topic

#1 ·  Posted (edited)

Greetings forum,

Hi develop this script, to use context menu with listview.

It's work fine, run and click with left or right mouse button, you see on Console the id from item.

If you click none, the id is -1, like this:

$NM_RCLICK[-1]
$NM_RCLICK[-1]
$NM_RCLICK[2]
$NM_RCLICK[1]
$NM_RCLICK[0]
$NM_RCLICK[1]

That is correct.

But if you uncoment the line:

GUIRegisterMsg($WM_CONTEXTMENU, "WM_CONTEXTMENU")

You have to click with left button (over item or none) and after click with right button.

LeftButton is to update $HOSTS_INDEX.

RightButton is to open ContextMenu.

 

Exist another way to update $HOSTS_INDEX?

Example:

Call WM_NOTIFY every time WM_CONTEXTMENU is called?

I ask this, becouse i cant understanding why $HOSTS_INDEX is not updated when WM_CONTEXTMENU is uncomented.

Someone can explain or help me?

 

Best regards.

;~ #AutoIt3Wrapper_AU3Check_Parameters= -q -d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7
;~ #Tidy_Parameters=/sf

#include-once
#include-once
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiMenu.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <SendMessage.au3>

#include <Timers.au3>
#include <AutoItConstants.au3>
#include <EditConstants.au3>
#include <File.au3>
#include <FontConstants.au3>
#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiTreeView.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <TreeViewConstants.au3>
#include <String.au3>


OnAutoItExitRegister("OnExit")

Opt("GUIOnEventMode", 1)
Opt("GUIEventOptions", 1)
Opt("MustDeclareVars", 1)

Global Enum $eCREATE = 1000, $eUPDATE, $eDELETE, $eICON_TABLE, $eDEFAULT, $eEXPORT_HTML
Global Const $EMPTY = -1

Global $HOSTS_INDEX = -1
Global $HOST_Host

Global $aGuiSize[2] = [800, 600]
Global $sGuiTitle = "GuiTitle"
Global $hGui
Global $iList, $hList

$hGui = GUICreate($sGuiTitle, $aGuiSize[0], $aGuiSize[1])
GUISetOnEvent($GUI_EVENT_CLOSE, "Quit")

$iList = GUICtrlCreateListView("nome", 20, 50, 240, 490)
$hList = GUICtrlGetHandle($iList)
_GUICtrlListView_SetColumnWidth($hList, 0, 236)

Populate()

GUISetState(@SW_SHOW, $hGui)

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
;~ GUIRegisterMsg($WM_CONTEXTMENU, "WM_CONTEXTMENU")

While Sleep(25)
WEnd

Func OnExit()
    GUISetState($hGui, @SW_HIDE)
    GUIDelete($hGui)
EndFunc   ;==>OnExit

Func Quit()
    Exit
EndFunc   ;==>Quit

Func Populate()
    Local $arr[4] = [3, "nome 1", "nome 2", "nome 3"]
    _GUICtrlListView_BeginUpdate($hList)
    _GUICtrlListView_DeleteAllItems($hList)
    For $ii = 1 To $arr[0]
        _GUICtrlListView_AddItem($hList, $arr[$ii])
    Next
    _GUICtrlListView_SetItemSelected($hList, 0, True, True)
    _GUICtrlListView_EndUpdate($hList)
EndFunc   ;==>Populate

Func WM_CONTEXTMENU($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg, $wParam, $lParam
    ConsoleWrite("WM_CONTEXTMENU..( $hWnd=" & $hWnd & ", $iMsg=" & $iMsg & ", $wParam=" & $wParam & ", $lParam=" & $lParam & " )" & @LF)

    Local $exec = 0
    Local $hMenu
    Switch $wParam
        Case $hList
            Local $TRY_ID = _GUICtrlListView_GetHotItem($hList)
            If Not ($TRY_ID = $HOSTS_INDEX) Then $HOSTS_INDEX = $TRY_ID

            Local $aOrigin = _GUICtrlListView_GetOrigin($hList)

            ConsoleWrite("WM_CONTEXTMENU $HOSTS_INDEX[" & $HOSTS_INDEX & "] $aOrigin[" & _GUICtrlListView_GetOriginX($iList) & "]" & @LF)
            $hMenu = _GUICtrlMenu_CreatePopup()
            If $HOSTS_INDEX = $EMPTY Then
                _GUICtrlMenu_InsertMenuItem($hMenu, 0, "Add", $eCREATE)
            Else
                _GUICtrlMenu_InsertMenuItem($hMenu, 0, "Rename", $eUPDATE)
                _GUICtrlMenu_InsertMenuItem($hMenu, 1, "Del", $eDELETE)

            EndIf

            _GUICtrlMenu_SetMenu($hGui, $hMenu)
            $exec = _GUICtrlMenu_TrackPopupMenu($hMenu, $wParam, -1, -1, 1, 1, 2, 1)
            _GUICtrlMenu_DestroyMenu($hMenu)
    EndSwitch

    Return True
EndFunc   ;==>WM_CONTEXTMENU


Func WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg, $wParam, $lParam
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $tInfo

    $tNMHDR = DllStructCreate($tagNMHDR, $lParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Local $TRY_ID

    Switch $hWndFrom
        Case $hList
            $TRY_ID = _GUICtrlListView_GetHotItem($hList)
            If Not ($TRY_ID = $HOSTS_INDEX) Then $HOSTS_INDEX = $TRY_ID
            Switch $iCode
                Case $NM_CLICK
                    ConsoleWrite("$NM_CLICK[" & $TRY_ID & "]" & @LF)
                    If $HOSTS_INDEX = $EMPTY Or $HOST_Host Then
;~                      HOSTS_Clear()
;~                      HOSTS_ListView_ItemCancel()
;~                      GUICtrlSetState($HOSTS_ITEM_DEL, $GUI_DISABLE)
;~                      GUICtrlSetState($HOSTS_ITEM_UPD, $GUI_DISABLE)
                    Else
                        Local $name = _GUICtrlListView_GetItemText($hList, $HOSTS_INDEX)
;~                      HOSTS_FieldLoad($name)
;~                      GUICtrlSetState($HOSTS_ITEM_DEL, $GUI_ENABLE)
;~                      GUICtrlSetState($HOSTS_ITEM_UPD, $GUI_ENABLE)
                    EndIf
                    Return 0 ; allow the default processing
                Case $NM_RCLICK
                    ConsoleWrite("$NM_RCLICK[" & $TRY_ID & "]" & @LF)
                    Return 0 ; allow the default processing
            EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY

 

Edited by Luigi

Visit my repository

Share this post


Link to post
Share on other sites



#2 ·  Posted

What is wrong with GUICtrlCreateContextMenu?


Spoiler

Paster - Main function is to paste text, but has more functions.

OpenW - Open With... alternative, Open any file with any application, set it's icon, set application as default.

Renamer - Rename files and folders, remove portions of text from the filename etc.

BeatsPlayer - Music player.

Params Tool - Right click an exe to see it's parameters or execute them.

Regedit Control - Registry browsing history, quickly jump into any saved key.

Time4Shutdown - Write the time for shutdown in minutes.

Power Profiles Tool - Set a profile as active, delete, duplicate, export and import.

Firefox Profile Backup - Backup/restore previously saved profile.

Finished Task Shutdown - Shuts down pc when specified window/Wndl/process closes.

NetworkSpeedShutdown - Shuts down pc if download speed goes under "X" Kb/s.

IUIAutomation - Topic with framework and examples

Au3Record.exe

Share this post


Link to post
Share on other sites

#3 ·  Posted

Greetings @careca,

GUICtrlCreateContextMenu does not work with GuiCtrlCreateListView (or I do not know how to do).

The requirement is, click with right buttom mouse over ListView, and it open a custom Contextmenu, if:

a) is over item, show: edit, delete

b] none item, show: add

 

With the example script, I can do this, but... is not perfect.

I need to improve the detection of the item with the right mouse button.


Visit my repository

Share this post


Link to post
Share on other sites

#4 ·  Posted

This works for me.

 

#include <GuiMenu.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>

; ========================================================================
; Global variables
; ========================================================================

Global Enum $idEdit = 1000, $idDelete, $idAdd

; ========================================================================
; Main
; ========================================================================

$hGUI = GUICreate('Context Menu Demo (Right Click)', 400, 300)
$hListView = _GUICtrlListView_Create($hGUI, "", 2, 2, 394, 268)
_GUICtrlListView_SetExtendedListViewStyle($hListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES))
GUISetState()

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

; Load images
$hImage = _GUIImageList_Create()
_GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0xFF0000, 16, 16))
_GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x00FF00, 16, 16))
_GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x0000FF, 16, 16))
_GUICtrlListView_SetImageList($hListView, $hImage, 1)

; Add columns
_GUICtrlListView_InsertColumn($hListView, 0, "Column 1", 200)


; Add items
_GUICtrlListView_AddItem($hListView, "Row 1: Col 1", 0)
_GUICtrlListView_AddItem($hListView, "Row 2: Col 1", 1)
_GUICtrlListView_AddItem($hListView, "Row 3: Col 1", 2)

GUISetState()

; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Func ListView_RClick()
    Local $aHit

    $aHit = _GUICtrlListView_SubItemHitTest($hListView)
    If ($aHit[0] <> -1) Then
        ; Create a standard popup menu
        ; -------------------- To Do --------------------
        $hMenu = _GUICtrlMenu_CreatePopup()
        _GUICtrlMenu_AddMenuItem($hMenu, "Edit", $idEdit)
        _GUICtrlMenu_AddMenuItem($hMenu, "Delete", $idDelete)
        ; ========================================================================
        ; Shows how to capture the context menu selections
        ; ========================================================================
        Switch _GUICtrlMenu_TrackPopupMenu($hMenu, $hListView, -1, -1, 1, 1, 2)
            Case $idEdit
                _DebugPrint("Edit: " & StringFormat("Item, SubItem [%d, %d]", $aHit[0], $aHit[1]))
            Case $idDelete
                _DebugPrint("Delete: " & StringFormat("Item, SubItem [%d, %d]", $aHit[0], $aHit[1]))
        EndSwitch
        _GUICtrlMenu_DestroyMenu($hMenu)
    Else
        ; Create a standard popup menu
        ; -------------------- To Do --------------------
        $hMenu = _GUICtrlMenu_CreatePopup()
        _GUICtrlMenu_AddMenuItem($hMenu, "Add", $idAdd)
        ; ========================================================================
        ; Shows how to capture the context menu selections
        ; ========================================================================
        Switch _GUICtrlMenu_TrackPopupMenu($hMenu, $hListView, -1, -1, 1, 1, 2)
            Case $idAdd
                _DebugPrint("Add a New Item.")
        EndSwitch
        _GUICtrlMenu_DestroyMenu($hMenu)

    EndIf
EndFunc   ;==>ListView_RClick


Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $tInfo
    $hWndListView = $hListView
    If Not IsHWnd($hListView) Then $hWndListView = GUICtrlGetHandle($hListView)

    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    ;$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
        Case $hWndListView
            Switch $iCode
                Case $NM_RCLICK ; Sent by a list-view control when the user clicks an item with the left mouse button
                    ListView_RClick()
                    Return 0
            EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY

Func _DebugPrint($s_text, $line = @ScriptLineNumber)
    ConsoleWrite( _
            "!===========================================================" & @LF & _
            "+======================================================" & @LF & _
            "-->Line(" & StringFormat("%04d", $line) & "):" & @TAB & $s_text & @LF & _
            "+======================================================" & @LF)
EndFunc   ;==>_DebugPrint

Saludos

1 person likes this

Share this post


Link to post
Share on other sites

#5 ·  Posted

@Danyfirex, thank you for your reply!

 

I made one simple change...

If you only move the mouse over listview, you see:

-1 to none item

0,1 or 2 to any item

Use the right mouse and click over any item... and them... click over another item with right mouse button...

I expected the id's item was change, you can see in gui title and context menu "Edit[id item]", but, i my opnion, miss a code to handle this...

If you click with right mouse button, close the context menu, and click in another item, is perfect!

The problem is: if you not close the context menu...the id's item ( _GUICtrlListView_GetHotItem($hListView) ) was not change! It need close/destroy the context menu.
 

Maybe I use the wrong function (_GUICtrlListView_GetHotItem).

In the visual, you see the right mouse change the focus for other item (line), and you expected the code reflect the new ID.

But not work. the code to operate this, is wrong or missing, for this point.

Best regards.

#include <GuiMenu.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>

Global Enum $idEdit = 1000, $idDelete, $idAdd


Global $hGui = GUICreate('Context Menu Demo (Right Click)', 400, 300)
Global $hListView = _GUICtrlListView_Create($hGui, "", 2, 2, 394, 268)
_GUICtrlListView_SetExtendedListViewStyle($hListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES))
GUISetState(@SW_SHOW, $hGui)

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

; Load images
Global $hImage = _GUIImageList_Create()
_GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0xFF0000, 16, 16))
_GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x00FF00, 16, 16))
_GUIImageList_Add($hImage, _GUICtrlListView_CreateSolidBitMap($hListView, 0x0000FF, 16, 16))
_GUICtrlListView_SetImageList($hListView, $hImage, 1)

; Add columns
_GUICtrlListView_InsertColumn($hListView, 0, "Column 1", 200)


; Add items
_GUICtrlListView_AddItem($hListView, "Row 1: Col 1", 0)
_GUICtrlListView_AddItem($hListView, "Row 2: Col 1", 1)
_GUICtrlListView_AddItem($hListView, "Row 3: Col 1", 2)

GUISetState()

While Sleep(25) And GUIGetMsg() <> $GUI_EVENT_CLOSE
WEnd

Func ListView_RClick()
    Local $aHit

    $aHit = _GUICtrlListView_SubItemHitTest($hListView)
    If ($aHit[0] <> -1) Then
        Local $TRY_ID = _GUICtrlListView_GetHotItem($hListView)
        ; Create a standard popup menu
        ; -------------------- To Do --------------------
        $hMenu = _GUICtrlMenu_CreatePopup()
        _GUICtrlMenu_AddMenuItem($hMenu, "Edit[" & $TRY_ID & "]", $idEdit)
        _GUICtrlMenu_AddMenuItem($hMenu, "Delete", $idDelete)
        ; ========================================================================
        ; Shows how to capture the context menu selections
        ; ========================================================================
        Switch _GUICtrlMenu_TrackPopupMenu($hMenu, $hListView, -1, -1, 1, 1, 2)
            Case $idEdit
                _DebugPrint("Edit: " & StringFormat("Item, SubItem [%d, %d]", $aHit[0], $aHit[1]))
            Case $idDelete
                _DebugPrint("Delete: " & StringFormat("Item, SubItem [%d, %d]", $aHit[0], $aHit[1]))
        EndSwitch
        _GUICtrlMenu_DestroyMenu($hMenu)
    Else
        ; Create a standard popup menu
        ; -------------------- To Do --------------------
        $hMenu = _GUICtrlMenu_CreatePopup()
        _GUICtrlMenu_AddMenuItem($hMenu, "Add", $idAdd)
        ; ========================================================================
        ; Shows how to capture the context menu selections
        ; ========================================================================
        Switch _GUICtrlMenu_TrackPopupMenu($hMenu, $hListView, -1, -1, 1, 1, 2)
            Case $idAdd
                _DebugPrint("Add a New Item.")
        EndSwitch
        _GUICtrlMenu_DestroyMenu($hMenu)

    EndIf
EndFunc   ;==>ListView_RClick


Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $tInfo
    $hWndListView = $hListView
    If Not IsHWnd($hListView) Then $hWndListView = GUICtrlGetHandle($hListView)

    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    ;$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
        Case $hWndListView
            WinSetTitle($hGui, "", _GUICtrlListView_GetHotItem($hListView))
            Switch $iCode
                Case $NM_RCLICK ; Sent by a list-view control when the user clicks an item with the left mouse button
                    ListView_RClick()
                    Return 0
            EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY

Func _DebugPrint($s_text, $line = @ScriptLineNumber)
    ConsoleWrite( _
            "!===========================================================" & @LF & _
            "+======================================================" & @LF & _
            "-->Line(" & StringFormat("%04d", $line) & "):" & @TAB & $s_text & @LF & _
            "+======================================================" & @LF)
EndFunc   ;==>_DebugPrint

 


Visit my repository

Share this post


Link to post
Share on other sites

#6 ·  Posted

Use  Local $TRY_ID = $aHit[0]   instead  this Local $TRY_ID = _GUICtrlListView_GetHotItem($hListView)

 

Saludos

1 person likes this

Share this post


Link to post
Share on other sites

#7 ·  Posted

I simply make a menu and then check the item inside the function associated.

;=========================================================================
$ContextMenu = GUICtrlCreateContextMenu($cListView)
GUICtrlCreateMenuItem("Copy to Desktop", $ContextMenu, 1)
GUICtrlSetOnEvent(-1, "Copy2Dsktp")
;=============================================================================
Func Copy2Dsktp()
    $GetLTLV = _GUICtrlListView_GetNextItem($cListView, -1, 0, 8) ;This is the one that finds it
    $SubTextFolder = _GUICtrlListView_GetItemText($cListView, $GetLTLV, 1)
    $SubTextFile = _GUICtrlListView_GetItemText($cListView, $GetLTLV, 2)
    FileCopy($SubTextFolder & $SubTextFile, @DesktopDir, 1)
    MsgBox(64, 'Info', 'Copied to desktop: ' & $SubTextFolder & $SubTextFile)
EndFunc   ;==>Copy2Dsktp
;=============================================================================

 


Spoiler

Paster - Main function is to paste text, but has more functions.

OpenW - Open With... alternative, Open any file with any application, set it's icon, set application as default.

Renamer - Rename files and folders, remove portions of text from the filename etc.

BeatsPlayer - Music player.

Params Tool - Right click an exe to see it's parameters or execute them.

Regedit Control - Registry browsing history, quickly jump into any saved key.

Time4Shutdown - Write the time for shutdown in minutes.

Power Profiles Tool - Set a profile as active, delete, duplicate, export and import.

Firefox Profile Backup - Backup/restore previously saved profile.

Finished Task Shutdown - Shuts down pc when specified window/Wndl/process closes.

NetworkSpeedShutdown - Shuts down pc if download speed goes under "X" Kb/s.

IUIAutomation - Topic with framework and examples

Au3Record.exe

Share this post


Link to post
Share on other sites

#8 ·  Posted

@Danyfirex, thank you!

Local $TRY_ID = $aHit[0]

Work fine!

 

@careca, thank you too, I will study your code.


Visit my repository

Share this post


Link to post
Share on other sites

#9 ·  Posted

Hello,

I update an exemple. It's work fine.

Thanks to @Danyfirex and @careca.

 

;~ What is wrong with GUICtrlCreateContextMenu?

;~ #AutoIt3Wrapper_AU3Check_Parameters= -q -d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7
;~ #Tidy_Parameters=/sf

#include-once
#include-once
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiMenu.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <SendMessage.au3>

#include <Timers.au3>
#include <AutoItConstants.au3>
#include <EditConstants.au3>
#include <File.au3>
#include <FontConstants.au3>
#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiTreeView.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <TreeViewConstants.au3>
#include <String.au3>


OnAutoItExitRegister("OnExit")

Opt("GUIOnEventMode", 1)
Opt("GUIEventOptions", 1)
Opt("MustDeclareVars", 1)

Global Enum $eCREATE = 1000, $eUPDATE, $eDELETE, $eICON_TABLE, $eDEFAULT, $eEXPORT_HTML
Global Const $EMPTY = -1

Global $HOSTS_INDEX = -1
Global $HOST_Host

Global $aGuiSize[2] = [800, 600]
Global $sGuiTitle = "GuiTitle"
Global $hGui
Global $iList, $hList

$hGui = GUICreate($sGuiTitle, $aGuiSize[0], $aGuiSize[1])
GUISetOnEvent($GUI_EVENT_CLOSE, "Quit")

$iList = GUICtrlCreateListView("nome", 20, 50, 240, 490)
$hList = GUICtrlGetHandle($iList)
_GUICtrlListView_SetColumnWidth($hList, 0, 236)


Populate()

GUISetState(@SW_SHOW, $hGui)

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
GUIRegisterMsg($WM_CONTEXTMENU, "WM_CONTEXTMENU")

While Sleep(25)
WEnd

Func OnExit()
    GUISetState($hGui, @SW_HIDE)
    GUIDelete($hGui)
EndFunc   ;==>OnExit

Func Quit()
    Exit
EndFunc   ;==>Quit

Func Populate()
    Local $arr[4] = [3, "nome 1", "nome 2", "nome 3"]
    _GUICtrlListView_BeginUpdate($hList)
    _GUICtrlListView_DeleteAllItems($hList)
    For $ii = 1 To $arr[0]
        _GUICtrlListView_AddItem($hList, $arr[$ii])
    Next
    _GUICtrlListView_SetItemSelected($hList, 0, True, True)
    _GUICtrlListView_EndUpdate($hList)
EndFunc   ;==>Populate

Func WM_CONTEXTMENU($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg, $wParam, $lParam
    ConsoleWrite("WM_CONTEXTMENU..( $hWnd=" & $hWnd & ", $iMsg=" & $iMsg & ", $wParam=" & $wParam & ", $lParam=" & $lParam & " )" & @LF)

    Local $exec = 0
    Local $hMenu
    Switch $wParam
        Case $hList
            Local $aHit = _GUICtrlListView_SubItemHitTest($hList)
            If Not ($aHit[0] = $HOSTS_INDEX) Then $HOSTS_INDEX = $aHit[0]

            $hMenu = _GUICtrlMenu_CreatePopup()
            If $aHit[0] = $EMPTY Then
                _GUICtrlMenu_InsertMenuItem($hMenu, 0, "Add", $eCREATE)
            Else
                _GUICtrlMenu_InsertMenuItem($hMenu, 0, "Rename", $eUPDATE)
                _GUICtrlMenu_InsertMenuItem($hMenu, 1, "Del", $eDELETE)

            EndIf

            _GUICtrlMenu_SetMenu($hGui, $hMenu)
            $exec = _GUICtrlMenu_TrackPopupMenu($hMenu, $wParam, -1, -1, 1, 1, 2, 1)
            _GUICtrlMenu_DestroyMenu($hMenu)
    EndSwitch

    Return True
EndFunc   ;==>WM_CONTEXTMENU


Func WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg, $wParam, $lParam
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $tInfo

    $tNMHDR = DllStructCreate($tagNMHDR, $lParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Local $TRY_ID

    Switch $hWndFrom
        Case $hList
            $TRY_ID = _GUICtrlListView_GetHotItem($hList)
            If Not ($TRY_ID = $HOSTS_INDEX) Then $HOSTS_INDEX = $TRY_ID
            Switch $iCode
                Case $NM_CLICK
                    ConsoleWrite("$NM_CLICK[" & $TRY_ID & "]" & @LF)
                    If $HOSTS_INDEX = $EMPTY Or $HOST_Host Then
;~                      HOSTS_Clear()
;~                      HOSTS_ListView_ItemCancel()
;~                      GUICtrlSetState($HOSTS_ITEM_DEL, $GUI_DISABLE)
;~                      GUICtrlSetState($HOSTS_ITEM_UPD, $GUI_DISABLE)
                    Else
                        Local $name = _GUICtrlListView_GetItemText($hList, $HOSTS_INDEX)
;~                      HOSTS_FieldLoad($name)
;~                      GUICtrlSetState($HOSTS_ITEM_DEL, $GUI_ENABLE)
;~                      GUICtrlSetState($HOSTS_ITEM_UPD, $GUI_ENABLE)
                    EndIf
                    Return 0 ; allow the default processing
                Case $NM_RCLICK
                    ConsoleWrite("$NM_RCLICK[" & $TRY_ID & "]" & @LF)
                    Return 0 ; allow the default processing
            EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY

 


Visit my repository

Share this post


Link to post
Share on other sites

#10 ·  Posted

;~ #AutoIt3Wrapper_AU3Check_Parameters= -q -d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7
;~ #Tidy_Parameters=/sf

#include-once
#include-once
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiMenu.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <SendMessage.au3>

#include <Timers.au3>
#include <AutoItConstants.au3>
#include <EditConstants.au3>
#include <File.au3>
#include <FontConstants.au3>
#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiTreeView.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <TreeViewConstants.au3>
#include <String.au3>


OnAutoItExitRegister("OnExit")

Opt("GUIOnEventMode", 1)
Opt("GUIEventOptions", 1)
Opt("MustDeclareVars", 1)

Global Enum $eCREATE = 1000, $eUPDATE, $eDELETE, $eICON_TABLE, $eDEFAULT, $eEXPORT_HTML
Global Const $EMPTY = -1

Global $HOSTS_INDEX = -1
Global $HOST_Host

Global $aGuiSize[2] = [800, 600]
Global $sGuiTitle = "GuiTitle"
Global $hGui
Global $iList, $hList

$hGui = GUICreate($sGuiTitle, $aGuiSize[0], $aGuiSize[1])
GUISetOnEvent($GUI_EVENT_CLOSE, "Quit")

$iList = GUICtrlCreateListView("nome", 20, 50, 240, 490)
$hList = GUICtrlGetHandle($iList)
_GUICtrlListView_SetColumnWidth($hList, 0, 236)

;=========================================================================
Global $ContextMenu = GUICtrlCreateContextMenu($iList)
GUICtrlCreateMenuItem("Rename", $ContextMenu, 1)
GUICtrlSetOnEvent(-1, "Rename")
GUICtrlCreateMenuItem("Del", $ContextMenu, 2)
GUICtrlSetOnEvent(-1, "Del")
;=============================================================================

Populate()

GUISetState(@SW_SHOW, $hGui)

While 1
Sleep(100)
WEnd

;=============================================================================
Func Rename()
   Local $GetLTLV = _GUICtrlListView_GetNextItem($iList, -1, 0, 8) ;This is the one that finds it
   Local $SubText = _GUICtrlListView_GetItemText($iList, $GetLTLV, 0)
    Local $inputb = InputBox('Rename', '')
    If not @error Then
        _GUICtrlListView_SetItem($iList, $inputb, $GetLTLV, 0)
    EndIf
EndFunc   ;==>Copy2Dsktp
;=============================================================================
Func Del()
   Local $GetLTLV = _GUICtrlListView_GetNextItem($iList, -1, 0, 8) ;This is the one that finds it
   Local $SubText = _GUICtrlListView_GetItemText($iList, $GetLTLV, 0)
   _GUICtrlListView_DeleteItem ($iList, $GetLTLV)
EndFunc   ;==>Copy2Dsktp
;=============================================================================

Func OnExit()
    GUISetState($hGui, @SW_HIDE)
    GUIDelete($hGui)
EndFunc   ;==>OnExit

Func Quit()
    Exit
EndFunc   ;==>Quit

Func Populate()
    Local $arr[4] = [3, "nome 1", "nome 2", "nome 3"]
    _GUICtrlListView_BeginUpdate($hList)
    _GUICtrlListView_DeleteAllItems($hList)
    For $ii = 1 To $arr[0]
        _GUICtrlListView_AddItem($hList, $arr[$ii])
    Next
    _GUICtrlListView_SetItemSelected($hList, 0, True, True)
    _GUICtrlListView_EndUpdate($hList)
EndFunc   ;==>Populate

Another, simpler way in my view.


Spoiler

Paster - Main function is to paste text, but has more functions.

OpenW - Open With... alternative, Open any file with any application, set it's icon, set application as default.

Renamer - Rename files and folders, remove portions of text from the filename etc.

BeatsPlayer - Music player.

Params Tool - Right click an exe to see it's parameters or execute them.

Regedit Control - Registry browsing history, quickly jump into any saved key.

Time4Shutdown - Write the time for shutdown in minutes.

Power Profiles Tool - Set a profile as active, delete, duplicate, export and import.

Firefox Profile Backup - Backup/restore previously saved profile.

Finished Task Shutdown - Shuts down pc when specified window/Wndl/process closes.

NetworkSpeedShutdown - Shuts down pc if download speed goes under "X" Kb/s.

IUIAutomation - Topic with framework and examples

Au3Record.exe

Share this post


Link to post
Share on other sites

#11 ·  Posted

@careca your example does not show add when you click where there are not items.

 

Saludos

Share this post


Link to post
Share on other sites

#12 ·  Posted

hmmm

 

#include-once
#include <Array.au3>
#include <GuiListView.au3>
#include <GuiMenu.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <SendMessage.au3>
#include <GUIConstantsEx.au3>
#include <Timers.au3>
#include <AutoItConstants.au3>
#include <EditConstants.au3>
#include <File.au3>
#include <Misc.au3>
#include <FontConstants.au3>
#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiTreeView.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <TreeViewConstants.au3>
#include <String.au3>


OnAutoItExitRegister("OnExit")

Opt("GUIOnEventMode", 1)
Opt("GUIEventOptions", 1)
Opt("MustDeclareVars", 1)

Global $aGuiSize[2] = [800, 600]
Global $sGuiTitle = "GuiTitle"
Global $hGui, $CursorInfo
Global $iList, $hList, $GetLTLV

$hGui = GUICreate($sGuiTitle, $aGuiSize[0], $aGuiSize[1])
GUISetOnEvent($GUI_EVENT_CLOSE, "Quit")
GUISetState(@SW_SHOW, $hGui)
$iList = GUICtrlCreateListView("nome", 20, 50, 240, 490, -1, $LVS_EX_TRACKSELECT)
$hList = GUICtrlGetHandle($iList)
_GUICtrlListView_SetColumnWidth($hList, 0, 236)

;=========================================================================
Global $ContextMenu = GUICtrlCreateContextMenu($iList)
Local $Ren = GUICtrlCreateMenuItem("Rename", $ContextMenu, 1)
GUICtrlSetOnEvent(-1, "Rename")
Local $Del = GUICtrlCreateMenuItem("Del", $ContextMenu, 2)
GUICtrlSetOnEvent(-1, "Del")
Local $AddCtx = GUICtrlCreateMenuItem("Add", $ContextMenu, 3)
GUICtrlSetOnEvent(-1, "Add")
GUICtrlSetState($AddCtx, $GUI_DISABLE)
;=============================================================================

Populate()

While 1
    $CursorInfo = GUIGetCursorInfo($hGui)
    ConsoleWrite($CursorInfo[4] &' - '&@MSEC&@CRLF)
    If $CursorInfo[4] = 3 Then
                ;If _IsPressed("02") Then
                _GUICtrlListView_SetHoverTime ( $iList, 50 )
                    $GetLTLV = _GUICtrlListView_GetNextItem($iList, -1, 0, 8)
                    ConsoleWrite('$GetLTLV '&$GetLTLV&@CRLF)
                    If $GetLTLV = -1 Then
                        GUICtrlSetState($AddCtx, $GUI_ENABLE)
                        GUICtrlSetState($Ren, $GUI_DISABLE)
                        GUICtrlSetState($Del, $GUI_DISABLE)
                    Else
                        GUICtrlSetState($AddCtx, $GUI_DISABLE)
                        GUICtrlSetState($Ren, $GUI_ENABLE)
                        GUICtrlSetState($Del, $GUI_ENABLE)
                    EndIf
                ;EndIf
    EndIf
Sleep(100)
WEnd

;=============================================================================
Func Rename()
   Local $GetLTLV = _GUICtrlListView_GetNextItem($iList, -1, 0, 8) ;This is the one that finds it
   Local $SubText = _GUICtrlListView_GetItemText($iList, $GetLTLV, 0)
    Local $inputb = InputBox('Rename', '')
    If not @error Then
        _GUICtrlListView_SetItem($iList, $inputb, $GetLTLV, 0)
    EndIf
EndFunc   ;==>Copy2Dsktp
;=============================================================================
Func Del()
   Local $GetLTLV = _GUICtrlListView_GetNextItem($iList, -1, 0, 8) ;This is the one that finds it
   Local $SubText = _GUICtrlListView_GetItemText($iList, $GetLTLV, 0)
   _GUICtrlListView_DeleteItem ($iList, $GetLTLV)
EndFunc   ;==>Copy2Dsktp
;=============================================================================
Func Add()
   _GUICtrlListView_AddItem ($iList, '123')
EndFunc   ;==>Copy2Dsktp
;=============================================================================

Func OnExit()
    GUISetState($hGui, @SW_HIDE)
    GUIDelete($hGui)
EndFunc   ;==>OnExit

Func Quit()
    Exit
EndFunc   ;==>Quit

Func Populate()
    Local $arr[4] = [3, "nome 1", "nome 2", "nome 3"]
    _GUICtrlListView_BeginUpdate($hList)
    _GUICtrlListView_DeleteAllItems($hList)
    For $ii = 1 To $arr[0]
        _GUICtrlListView_AddItem($hList, $arr[$ii])
    Next
    _GUICtrlListView_SetItemSelected($hList, 0, True, True)
    _GUICtrlListView_EndUpdate($hList)
EndFunc   ;==>Populate

 


Spoiler

Paster - Main function is to paste text, but has more functions.

OpenW - Open With... alternative, Open any file with any application, set it's icon, set application as default.

Renamer - Rename files and folders, remove portions of text from the filename etc.

BeatsPlayer - Music player.

Params Tool - Right click an exe to see it's parameters or execute them.

Regedit Control - Registry browsing history, quickly jump into any saved key.

Time4Shutdown - Write the time for shutdown in minutes.

Power Profiles Tool - Set a profile as active, delete, duplicate, export and import.

Firefox Profile Backup - Backup/restore previously saved profile.

Finished Task Shutdown - Shuts down pc when specified window/Wndl/process closes.

NetworkSpeedShutdown - Shuts down pc if download speed goes under "X" Kb/s.

IUIAutomation - Topic with framework and examples

Au3Record.exe

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now

  • Similar Content

    • buymeapc
      By buymeapc
      Hi all,
      I'm trying to create a listview with subitem icons and I achieved this by simply rearranging the order of the columns, so that the first column is in the middle, thus appearing as a subitem with an icon - this method prevents the "icon clipping" that happens when using subitem icons in a listview. My issue is that when I select a row that does not have an icon, the space where the icon would be is white. Is there a way to make this transparent, so it looks like the entire row is selected?
      Here's an example - click the second listview item/row to see a blank space where the icon would be.
      #include <GuiConstantsEx.au3> #include <GuiListView.au3> #include <GuiImageList.au3> #include <WindowsConstants.au3> _Main() Func _Main() Local $hGui, $listview, $hImage Local $iLV_EXStyle_NoChecks = BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES, $LVS_EX_DOUBLEBUFFER, $LVS_EX_HEADERDRAGDROP) $hGui = GUICreate("Listview Test With Icons", 400, 300) $listview = GUICtrlCreateListView("Col 1|Col 2|Col 3", 2, 2, 394, 268, BitOR($LVS_REPORT, $LVS_SHAREIMAGELISTS)) _GUICtrlListView_SetExtendedListViewStyle($listview, $iLV_EXStyle_NoChecks) GUISetState() ; Create the image list $hImage = _GUIImageList_Create(16, 16, 5, 3) _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 165) _GUICtrlListView_SetImageList($listview, $hImage, 1) ; Set the order so the first column is moved to the middle, ; acting like a subitem with an icon _GUICtrlListView_SetColumnOrder($listview, "1|0|2") ; Add the items GUICtrlCreateListViewItem("Item1|Item2|Item3", $listview) GUICtrlCreateListViewItem("Item4|Item5|Item6", $listview) ; Set an icon for just the first item _GUICtrlListView_SetItemImage($listview, 0, 0) Do Until GUIGetMsg() = $GUI_EVENT_CLOSE GUIDelete() EndFunc ;==>_Main  
    • amphoric
      By amphoric
      Hi,
      I am struggling converting my 1D array to a 2D array and then showing that in my List View. Below is my current code, where I would like to take the array from the input box, and have that displayed as a list within the list view this is a list of computer names, and then update the 2nd column of each line once I have ran a ping and a registry change on each computer name, with either 'Completed' and 'Failed'
      I have checked out the AutoIt Arrays page here: https://www.autoitscript.com/wiki/Arrays , but unfortunately I cannot get my head around it. Any help would be greatly appreciated.
      I hope this makes sense.
      Thanks
       
      #include <Date.au3> #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Array.au3> #include <MsgBoxConstants.au3> #include <GUIListBox.au3> #include <GuiListView.au3> #Region ### $Form1 = GUICreate("Title", 515, 533, -1, -1) GUISetBkColor(0xFFFFFF) $Pic2 = GUICtrlCreatePic("Images\pic.jpg", 16, 16, 212, 28) $Label1 = GUICtrlCreateLabel("Label", 240, 16, 271, 33, $SS_CENTER) GUICtrlSetFont(-1, 17, 800, 0, "") $Combo1 = GUICtrlCreateCombo("", 256, 406, 241, 25, BitOR($GUI_SS_DEFAULT_COMBO,$CBS_SIMPLE)) $Label2 = GUICtrlCreateLabel("Please select the location", 45, 401, 210, 20, $SS_CENTER) GUICtrlSetFont(-1, 10, 800, 0, "") $ChangeButton = GUICtrlCreateButton("Change", 286, 487, 75, 25) $RePromptButton = GUICtrlCreateButton("Re-prompt User", 366, 487, 139, 25) $Checkbox1 = GUICtrlCreateCheckbox("I have ensured that my selection is correct.", 10, 487, 273, 25) GUICtrlSetFont(-1, 10, 400, 0, "") $ManLocation = GUICtrlCreateLabel("Please enter the location:", 59, 448, 189, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 800, 0, "") GUICtrlSetState(-1, $GUI_HIDE) $ManLocInput = GUICtrlCreateInput("", 256, 445, 241, 24) GUICtrlSetState(-1, $GUI_HIDE) $Label5 = GUICtrlCreateLabel("for this device:", 138, 418, 109, 20, $SS_CENTER) GUICtrlSetFont(-1, 10, 800, 0, "") $Label3 = GUICtrlCreateLabel("Asset Number:", 98, 72, 107, 20, $SS_CENTER) GUICtrlSetFont(-1, 10, 800, 0, "") $Input1 = GUICtrlCreateInput("", 215, 69, 241, 24) $AddMulti = GUICtrlCreateLabel("Add Multiple Assets", 356, 55, 98, 13, $SS_RIGHT) GUICtrlSetFont(-1, 8, 400, 6, "") GUICtrlSetColor(-1, 0x808080) GUICtrlSetCursor (-1, 0) $List1 = GUICtrlCreateListView("", 16, 104, 481, 278) $Add = GUICtrlCreateButton("Add", 461, 68, 35, 25) GUISetState(@SW_SHOW) #EndRegion ### ;### StartForm ### $FormaMultiple = GUICreate("Title", 277, 418, -1, -1) GUISetBkColor(0xFFFFFF) $Label1 = GUICtrlCreateLabel("Please add 1 asset number per line.", 8, 11, 253, 20, $SS_CENTER) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $OK = GUICtrlCreateButton("OK", 56, 375, 75, 25) $Edit1 = GUICtrlCreateEdit("", 20, 40, 233, 329) $Cancel = GUICtrlCreateButton("Cancel", 136, 375, 75, 25) GUISetState(@SW_HIDE) ;### EndForm ### ;### Add List View Columns START ### ;### Add List View Columns END ### ;### Read Locations START ### ;Read the LOCAL ini file SECTIONS Global $aSections = IniReadSectionNames("Locations.ini") ;If the above succeeded, convert the array to a string with each item separated by a | (pipe) and set the default selected item to $aSections[1] If(Not @Error) Then GUICtrlSetData($Combo1, _ArraytoString($aSections, "|", 1), $aSections[1]) ;### Read Locations END ### ;### Require Admin START ### ;#RequireAdmin ;### Require Admin END ### While 1 $nMsg = GUIGetMsg() ;### Data Validation START ### ;Set Checkbox = ENABLE/DISABLE if not GUICtrlRead($Combo1) = "" AND GUICtrlRead($Combo1) = "Not In List" then if not GUICtrlRead($ManLocInput) = "" Then If not ControlCommand($Form1, "", $Checkbox1, "IsEnabled") Then GUICtrlSetState($Checkbox1, $GUI_ENABLE) Else If ControlCommand($Form1, "", $Checkbox1, "IsEnabled") Then GUICtrlSetState($Checkbox1, $GUI_DISABLE) EndIf Else if GUICtrlRead($Combo1) = "" Then If ControlCommand($Form1, "", $Checkbox1, "IsEnabled") Then GUICtrlSetState($Checkbox1, $GUI_DISABLE) Else If not ControlCommand($Form1, "", $Checkbox1, "IsEnabled") Then GUICtrlSetState($Checkbox1, $GUI_ENABLE) EndIf EndIf ;Set Button = ENABLE/DISABLE If GUICtrlRead($Checkbox1) = 1 Then If Not ControlCommand($Form1, "", $ChangeButton, "IsEnabled") Then GUICtrlSetState($ChangeButton, $GUI_ENABLE) Else If ControlCommand($Form1, "", $ChangeButton, "IsEnabled") Then GUICtrlSetState($ChangeButton, $GUI_DISABLE) EndIf ;### Data Validation END ### Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $Add Case $AddMulti GUISetState(@SW_SHOW, $FormaMultiple) Case $Cancel GUISetState(@SW_HIDE, $FormaMultiple) Case $OK $sText = GUICtrlRead($Edit1) $aText = StringSplit($sText, @CRLF, 1) $bText = _ArrayToString($aText, ";", 1, -1) $cText = StringStripWS($bText, $STR_STRIPALL ) $dText = StringReplace($cText,";;",";") GUICtrlSetData($Input1, $dText) GUICtrlSetData($Edit1, "") GUISetState(@SW_HIDE, $FormaMultiple) For $i = 1 To $aText[0] Next Case $Combo1 ; If the combo is actioned Switch GUICtrlRead($Combo1) Case "Not In List" ; Show the manual input controls GUICtrlSetState($ManLocation, $GUI_SHOW) GUICtrlSetState($ManLocInput, $GUI_SHOW) if ControlCommand($Form1, "", $Checkbox1, "IsChecked") then ControlCommand($Form1, "", $Checkbox1, "Uncheck") GUICtrlSetData($ManLocInput, "") Case Else ; Hide them GUICtrlSetState($ManLocation, $GUI_HIDE) GUICtrlSetState($ManLocInput, $GUI_HIDE) if ControlCommand($Form1, "", $Checkbox1, "IsChecked") then ControlCommand($Form1, "", $Checkbox1, "Uncheck") GUICtrlSetData($ManLocInput, "") EndSwitch Case $ChangeButton ChangeReg() Case $RePromptButton RemoveReg() EndSwitch WEnd Func ChangeReg() $MultiAssets = StringSplit(GUICtrlRead($Input1), ";", 1) For $i = 1 To $MultiAssets[0] ; Ping with a timeout of 250ms. Local $iPing = Ping($MultiAssets[$i], 250) If $iPing Then ; If a value greater than 0 was returned then do the following: if not GUICtrlRead($ManLocInput) = "" Then RegWrite("\\" & $MultiAssets[$i] & "\HKLM\SOFTWARE\Location", "Location", "REG_SZ", "# - " & GUICtrlRead($ManLocInput)) RegWrite("\\" & $MultiAssets[$i] & "\HKLM64\SOFTWARE\Location", "Location", "REG_SZ", "# - " & GUICtrlRead($ManLocInput)) RegWrite("\\" & $MultiAssets[$i] & "\HKLM\SOFTWARE\Location", "LocationLog", "REG_SZ", @MDAY & "/" & @MON & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC) RegWrite("\\" & $MultiAssets[$i] & "\HKLM64\SOFTWARE\Location", "LocationLog", "REG_SZ", @MDAY & "/" & @MON & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC) MsgBox($MB_SYSTEMMODAL, "Completed", "Completed") Else If not GUICtrlRead($Input1) = "" Then RegWrite("\\" & $MultiAssets[$i] & "\HKLM\SOFTWARE\Location", "Location", "REG_SZ", GUICtrlRead($Combo1)) RegWrite("\\" & $MultiAssets[$i] & "\HKLM64\SOFTWARE\Location", "Location", "REG_SZ", GUICtrlRead($Combo1)) RegWrite("\\" & $MultiAssets[$i] & "\HKLM\SOFTWARE\Location", "LocationLog", "REG_SZ", @MDAY & "/" & @MON & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC) RegWrite("\\" & $MultiAssets[$i] & "\HKLM64\SOFTWARE\Location", "LocationLog", "REG_SZ", @MDAY & "/" & @MON & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC) MsgBox($MB_SYSTEMMODAL, "Completed", $MultiAssets[$i] & @CRLF & " Changed to: " & GUICtrlRead($Combo1)) Else MsgBox($MB_SYSTEMMODAL, "Error", "Please ensure all boxes are completed") EndIf EndIf Else MsgBox($MB_SYSTEMMODAL, "Error", "This asset may be OFFLINE, unable to complete") EndIf Next EndFunc ;==>PingReg Func RemoveReg() $MultiAssets = StringSplit(GUICtrlRead($Input1), ";", 1) For $i = 1 To $MultiAssets[0] ; Ping with a timeout of 250ms. Local $iPing = Ping($MultiAssets[$i], 250) If $iPing Then ; If a value greater than 0 was returned then do the following: if not GUICtrlRead($ManLocInput) = "" Then RegWrite("\\" & $MultiAssets[$i] & "\HKLM\SOFTWARE\Location", "Location", "REG_SZ", "") RegWrite("\\" & $MultiAssets[$i] & "\HKLM64\SOFTWARE\Location", "Location", "REG_SZ", "") RegWrite("\\" & $MultiAssets[$i] & "\HKLM\SOFTWARE\Location", "LocationLog", "REG_SZ", "") RegWrite("\\" & $MultiAssets[$i] & "\HKLM64\SOFTWARE\Location", "LocationLog", "REG_SZ", "") MsgBox($MB_SYSTEMMODAL, "Completed", "Completed") Else If not GUICtrlRead($Input1) = "" Then RegWrite("\\" & $MultiAssets[$i] & "\HKLM\SOFTWARE\Location", "Location", "REG_SZ", "") RegWrite("\\" & $MultiAssets[$i] & "\HKLM64\SOFTWARE\Location", "Location", "REG_SZ", "") RegWrite("\\" & $MultiAssets[$i] & "\HKLM\SOFTWARE\Location", "LocationLog", "REG_SZ", "") RegWrite("\\" & $MultiAssets[$i] & "\HKLM64\SOFTWARE\Location", "LocationLog", "REG_SZ", "") MsgBox($MB_SYSTEMMODAL, "Completed", $MultiAssets[$i] & @CRLF & "CLEARED") Else MsgBox($MB_SYSTEMMODAL, "Error", "Please ensure all boxes are completed") EndIf EndIf Else MsgBox($MB_SYSTEMMODAL, "Error", "This asset may be OFFLINE, unable to complete") EndIf Next EndFunc ;==>PingReg1  
    • Monica
      By Monica
      Hi guys!! I'm going crazy... please help me -.-
      First, open the attached screenshot. Second: I'd like to grab info from external window. The program is "Metatrader4", a tool for trading and charts analysis.
      The function _GUICtrlListView_GetItemText() return an empty string! I tried to change the index $index (the second parameter) into Number($index), as recommended by other similar posts in this forum, but this did not solve my problem 
      Well, why I'm going mad? Because in my mind an UDF approach works great or it does not work at all; instead, in my code something works and something else does not. I really don't understand why... and you?
      THXX!!!!  
      $handle=ControlGetHandle("Expert - "&$expertname,"",1383);List: Variable|Value For $i=0 To _GUICtrlListView_GetItemCount($handle)-1;WORKS!!! $temp=_GUICtrlListView_GetItemText($handle,0+$i);RETURN EMPTY STRING :-( MsgBox(0, "", $temp) $temp = _GUICtrlListView_GetItemSelected($handle,$i);WORKS!!! MsgBox(0, "", $temp) Next  

    • mLipok
      By mLipok
      I was not lucky to find the right function so I created it by my self:
      _GUICtrlListView_GetColumnID_ByName()
      Example:
       
      #include <GUIConstantsEx.au3> #include <GuiListView.au3> #include <MsgBoxConstants.au3> Example() Func Example() GUICreate("ListView Get Column ID", 400, 300) Local $idListview = GUICtrlCreateListView("Alfa|Beta|Gama", 2, 2, 394, 268) GUISetState(@SW_SHOW) _GUICtrlListView_SetColumnOrder($idListview, "2|0|1") MsgBox($MB_SYSTEMMODAL, "Information", "Column ID: " & _GUICtrlListView_GetColumnID_ByName($idListview, 'Gama')) ; Loop until the user exits. Do Until GUIGetMsg() = $GUI_EVENT_CLOSE GUIDelete() EndFunc ;==>Example Func _GUICtrlListView_GetColumnID_ByName($hListView, $sColumnToFind) Local $iColumn_Count = _GUICtrlListView_GetColumnCount($hListView) Local $aColumns For $iColumn_idx = 0 To $iColumn_Count - 1 $aColumns = _GUICtrlListView_GetColumn($hListView, $iColumn_idx) If $aColumns[5] = $sColumnToFind Then Return $iColumn_idx EndIf Next Return SetError(1, 0, -1) EndFunc ;==>_GUICtrlListView_GetColumnID_ByName  
    • UEZ
      By UEZ
      Here a small tool I wrote to update my Sysinternal tools collection without the need to download always the whole package or visiting the site to check for updates. I know that there are several tools available (also some tools written in AutoIt) but here another one for the collection. It was good exercise for me to code it.
       
       
        
       
       
      Some files from cannot be downloaded although they are visible on the web site!
       
      Here the download link of the source code only: AutoIt Sysinternal Tools Synchronizer v0.99.1 build 2017-10-23 beta.7z  (1353 downloads previously)
      -=> Requires AutoIt version 3.3.13.20 or higher / tested on Win8.1 real machine and some VMs: Win7 / Vista / Win10
       
      Compiled exe only: @MediaFire
       
      Just select the Sysinternal Tools folder or create one and press the synchronize button to download the selected items. Click on AutoIt label (near to left upper corner) to open menu.
       
      Special thanks to LarsJ, Melba23 and mesale0077 for their help. 
       
      I've still some ideas to implement which are more gimmick related, so it is not finished yet...
      If you want to add your language please check out #Region Language. Thanks. 
       
      Please report any bug or if you have any suggestions.
       
      The language of the tool tip from each of the executable in the left list view were automatically created using Google translator and weren't checked for correctness.
       
      Br,
      UEZ