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: <[email protected]>
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
> [email protected]
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
