in reply to Enumerate a Win32 Treeview

This should help. It sounds like TVM_GETNEXTITEM with the various flags are what you need.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
"Science is about questioning the status quo. Questioning authority".
The "good enough" maybe good enough for the now, and perfection maybe unobtainable, but that should not preclude us from striving for perfection, when time, circumstance or desire allow.

Replies are listed 'Best First'.
Re^2: Enumerate a Win32 Treeview
by slloyd (Hermit) on Jul 25, 2005 at 22:07 UTC
    Can I access Macros with Win32::API? What dll do I reference? I am not sure how to access a Win32 macro via Perl. Any ideas?

    http://www.basgetti.com
[reply]

      No, you cannot use the macros, but you should be able to use the Win32::GUI sendmsg() call to send TVM_GETNEXTITEM messages to iterate the contents of the treeview control.

      I don't think that there is an Win32 API call for retrieving that information.

      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
      "Science is about questioning the status quo. Questioning authority".
      The "good enough" maybe good enough for the now, and perfection maybe unobtainable, but that should not preclude us from striving for perfection, when time, circumstance or desire allow.
[reply]
[d/l]
        ok, still cannot get it to return anything.. 
        ###############
sub getListviewItems{
    my $hwnd = shift || return "No treeview handle";
    #if no result send a WM_GetText message to the window
    $WmSendMessage ||= new Win32::API("user32", "SendMessageA", [N, N,
+ N, P],'N') || return "SendMessageA Error";
    my $TV_FIRST=4352;
    my $TVM_GETNEXTITEM=$TV_FIRST+10;
    my $text = " " x 2048;
    my $textLen = 2048;
    my @items=();
    print "calling $hwnd with  $TVM_GETNEXTITEM\n";
    while(my $result = $WmSendMessage->Call($hwnd,$TVM_GETNEXTITEM, $t
+extLen, $text)){
        my $item=substr($text, 0, $result);
        print "getListviewItems: [$item]\n";
        push(@items,$item);
        }
    return @items;
    }

        [download]

        http://www.basgetti.com
[reply]
[d/l]

In Section Seekers of Perl Wisdom