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

[Jonathan S. <jso...@al...>]

Here is how I did it:

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

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


Then in the subs:

sub FindTabStrip_Click {
   if ($MainWindow->FindTabStrip->SelectedItem =3D=3D 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 =3D=3D 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 =3D=3D 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 w=
ay
i got around it.


Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
jso...@al...


----- Original Message -----
From: <tho...@ba...>
To: <per...@li...>
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 fro=
m 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=FC=DFen/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: tho...@ba...
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>