Re: [perl-win32-gui-users] Tabstrips

[Jonathan Southwick]

Here is how I did it:

$MainWindow->AddTabStrip(
 -name   => "FindTabStrip",
 -left   => 10,
 -top    => 10,
 -width  => $MainWindow->ScaleWidth - 250,
 -height => 175,
 -hottrack => 1,
);

$MainWindow->FindTabStrip->InsertItem(-text => "Name");
$MainWindow->FindTabStrip->InsertItem(-text => "Building");
$MainWindow->FindTabStrip->InsertItem(-text => "Adapter Address");


Then in the subs:

sub FindTabStrip_Click {
   if ($MainWindow->FindTabStrip->SelectedItem == 0) {
      $MainMenu->{FindName}->Checked(1);
      $MainMenu->{FindBuilding}->Checked(0);
      $MainMenu->{FindAdapter}->Checked(0);
      $MainWindow->Bld_Label->Hide();
      $Building->Hide();
      $MainWindow->SelectFromList->Hide();
      $BuildingList->Hide();
      $MainWindow->Adapt_Label->Hide();
      $Adapter->Hide();
      $MainWindow->FN_Label->Show();
      $FirstName->Show();
      $MainWindow->LN_Label->Show();
      $LastName->Show();
      $FirstName->SetFocus();
   }
   if ($MainWindow->FindTabStrip->SelectedItem == 1) {
      $MainMenu->{FindName}->Checked(0);
      $MainMenu->{FindBuilding}->Checked(1);
      $MainMenu->{FindAdapter}->Checked(0);
      $MainWindow->FN_Label->Hide();
      $FirstName->Hide();
      $MainWindow->LN_Label->Hide();
      $LastName->Hide();
      $MainWindow->Adapt_Label->Hide();
      $Adapter->Hide();
      $MainWindow->Bld_Label->Show();
      $Building->Show();
      $MainWindow->SelectFromList->Show();
      $Building->SetFocus();
   }
   if ($MainWindow->FindTabStrip->SelectedItem == 2) {
      $MainMenu->{FindName}->Checked(0);
      $MainMenu->{FindBuilding}->Checked(0);
      $MainMenu->{FindAdapter}->Checked(1);
      $MainWindow->FN_Label->Hide();
      $FirstName->Hide();
      $MainWindow->LN_Label->Hide();
      $LastName->Hide();
      $MainWindow->Bld_Label->Hide();
      $Building->Hide();
      $MainWindow->SelectFromList->Hide();
      $BuildingList->Hide();
      $MainWindow->Adapt_Label->Show();
      $Adapter->Show();
      $Adapter->SetFocus();
   }
   return;
}


maybe there is an easier way but I didn't know about it so that was the way
i got around it.


Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
[EMAIL PROTECTED]


----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Sent: Wednesday, January 31, 2001 10:42 AM
Subject: [perl-win32-gui-users] Tabstrips


> Hello,
>
> might be a silly question but anyway: How can I remove all Elements from a
> Window in case a different Tab on a Tabstrip is
> clicked and different Elements should be displayed on the Window
accordingly?
> Or can I define separate "Panels" with
> different Elements for each Tab?
>
> mit freundlichen Grüßen/with best regards
> Thomas Emde
> nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn
> nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn
>
> BAYER AG
> IS-CT DPN
> D-51386 Leverkusen
> Fon: +49 (0) 214/30-81513
> Fax: +49 (0) 214/30-31737
> E-Mail: [EMAIL PROTECTED]
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>