Re: [perl-win32-gui-users] SelectedItems method

[Jeremy B. <sco...@ya...>]

Well, I don't know if this will actually fix your
problem, but you should definitely be using
"$index[0]" instead of "@index[0]".

Just my 2 cents,
jb


--- "Erick J. Bourgeois" <er...@e-...> wrote:
> I'm trying to test if any items have been selected
> in a
> listview with a button event and I have used the
> -singlesel
> option on the listview. So, therefore, if the user
> clicks
> the button without selecting anything, I would like
> to have
> a MsgBox, else take the value of the the choosen
> selection
> and do some computation.
> 
> $MainWin->AddListView(
>         -name          => "ListView",
>         -pos           => [85, 100],
>         -size          => [$MainWin->ScaleWidth-160,
> $MainWin->ScaleHeight-170],
>         -style         => WS_CHILD | WS_VISIBLE | 1
> |
> WS_HSCROLL | WS_VSCROLL,
>         -fullrowselect => -1,
>         -gridlines     => 0,
>         -hottrack      => 0,
>         -visible       => 0,
>         -view          => 1,
>         -tabstop       => 4,
>         -singlesel     => 1,
>     );
>     $width = $MainWin->ListView->ScaleWidth;
>     $MainWin->ListView->InsertColumn(
>         -index   => 0,
>         -subitem => 0,
>         -width   => $width-15,
>         -text    => "Column",
>     );
>     for (sort keys %SomeHash) {
>         $MainWin->ListView->InsertItem(-text=>[$_]);
>     }
> $MainWin->AddButton(
>         -name       => "Button",
>         -text       => "&Ok",
>         -pos        => [347, 350],
>         -height     => 20,
>  );
> 
> sub Button_Click {
>     my @index = $MainWin->ListView->SelectedItems();
>     if (@index[0] >= 0) { #I need the zero because
> of the
> zero-based index
>         #do something...
>     } else {
>         Win32::MsgBox(...);
> }
> 
> When "Button" is pressed it always falls through the
> if
> statement. Even in the case of no selection it falls
> through
> because @index[0], in this case, is undef. I know
> undef is
> the same as 0, but how could I get around this?
> 
> erick
> never stop questioning
> www.jeb.ca
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail - only $35 
a year!  http://personal.mail.yahoo.com/