遇到了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=>"导出",-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，设置焦点后，我希望光标在“xs”文本框的最后，因为“XS”文本框默然的情况有文字 $txt2？

2，”导出“ 按纽 只能敲回车键盘才可以响应，有鼠标点没有响应了， 我希望既可以用回车键盘又可以用鼠标点？

  谢谢大神