Re: Enumerate a Win32 Treeview

[BrowserUk]

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

[slloyd]

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?

[BrowserUk]

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.

[slloyd]

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;
    }