遇到了2個問題，希望大神幫忙！

zhangfenyun

$main->AddLabel(-text =>$txt,-width=>1000,-left=>50,-top=>10,-font=>$font1,-foreground=>[250, 0, 80],);
$main->AddTextfield(-name=>'LTstep',-readonly=>1,-left=>70,-top=>60,-prompt=>['JOB:',30],-size=>[180,30],-font=>$font2,-text =>uc($JOB),-foreground=>0x0000DD);
$main->AddLabel(-text =>$txt1,-width=>1000,-left=>20,-top=>150,-font=>$font1,-foreground=>[250, 0, 80],);
$main->AddTextfield(-name=>'xs',-readonly=>0,-left=>120,-top=>150,-size=>[100,30],-font=>$font2,-text =>$txt2,-foreground=>0x0000DD,-onKeyUp  => sub{$main->cp1->SetFocus,if($_[2] == 13)});
$main->AddButton(-name=>'cp1',-text=>"導(dǎo)出",-width=>75,-left=>50,-top=>200,-font=>$font2,-onKeyUp  => sub{if($_[2] == 13){&cp1_Click;}});
$main->AddButton(-name=>'cp2',-text=>"退出",-width=>75,-left=>170,-top=>200,-font=>$font2,-onClick=>sub{exit(0)});
$main->Center;
$main->Show();
$main->xs->SetFocus;
Win32::GUI:ialog();


問t代碼如果上，遇到了2個問題!   perl-win32gui

1，設(shè)置焦點后，我希望光標(biāo)在“xs”文本框的最后，因為“XS”文本框默然的情況有文字 $txt2？

2，”導(dǎo)出“ 按紐 只能敲回車鍵盤才可以響應(yīng)，有鼠標(biāo)點沒有響應(yīng)了， 我希望既可以用回車鍵盤又可以用鼠標(biāo)點？

  謝謝大神