ok, I was just trying to become familiar with the tabstrip not using any kind of wrapper like tabframe or tabstripgroup. I thought it would be a good idea but things are getting worse. When I run the code below and hit tab, it takes me to currently selected tab label/button and does not tab between the textfields. What am I doing wrong here??
#!c:\perl\bin\wperl.exe
use strict;
use Win32::GUI;
my $mainform;
$mainform = Win32::GUI::Window->new(-name=>'main',-text=>'tabstrip tes
+t',-width=>800,-height=>600,-dialogui=>1);
$mainform->AddTabStrip(-name=>"tab",-width=>770,-height=>550,-left=>10
+,-top=>10);
$mainform->tab->InsertItem(-name=>'Tab1',-text=>" Tab1 ",-border=>0,to
+p=>10,-addstyle=>WS_TABSTOP);
$mainform->tab->AddTextfield(-name=>'text1',-top=>50,-left=>50,-text=>
+"text #1",-addstyle=>WS_TABSTOP,-width=>150,-height=>20);
$mainform->tab->AddTextfield(-name=>'text2',-top=>80,-left=>50,-text=>
+"text #2",-addstyle=>WS_TABSTOP,-width=>150,-height=>20);
$mainform->tab->AddTextfield(-name=>'text3',-top=>110,-left=>50,-text=
+>"text #3",-addstyle=>WS_TABSTOP,-width=>150,-height=>20);
$mainform->tab->AddTextfield(-name=>'text4',-top=>140,-left=>50,-text=
+>"text #4",-addstyle=>WS_TABSTOP,-width=>150,-height=>20);
$mainform->tab->InsertItem(-name=>'Tab2',-text=>" Tab2 ",-border=>0,to
+p=>10,-addstyle=>WS_TABSTOP);
$mainform->tab->InsertItem(-name=>'Tab3',-text=>" Tab3 ",-border=>0,to
+p=>10,-addstyle=>WS_TABSTOP);
$mainform->Show();
Win32::GUI::Dialog();
exit;
main_Terminate
{
$mainform->Hide();
return -1;
}
|