Win32::GUI问题

mysqllog

#程序上的某一个按钮

1. $btn_zzplay = $main->AddButton(
   
2.   -name => zzplay,
   
3.   -text =>'官网',
   
4.   -pos => [ 0, 20 ],
   
5.   -size => [ $w, 30 ],
   
6.   -default => 1,
   
7.   -ok => 1,
   
8. );
   

复制代码

#按钮上的单击事件

1. sub zzplay_Click{
   
2.   $Rightwin->Show();
   
3.   $btn_name = $main->zzplay->Text(); #得到按钮上的文字
   
4. }
   

复制代码

#在另一个窗口上显示我单击了那个按钮

1. $InfoFont = Win32::GUI::Font->new(-name => '宋体',-size => 10,-bold => 1);
   
2. $RightInfo = $Rightwin->AddLabel(
   
3.   -name => Info,
   
4.   -align => left,
   
5.   -pos => [ 5, 5 ],
   
6.   -size  => [ 498, 60 ],
   
7.   -text => "当前论坛>$btn_name" , #我要把上面按钮上的文字显示出来，但就是不行(但通过print到终端却可以)。
   
8.   -font => $InfoFont,
   
9.   -foreground => [0,0,0],
   
10. );
    

复制代码

请知道的告知下，谢谢。

rubyish

可以试试看:
use Encode qw/decode/;
my $str = decode("utf-8", "当前论坛>$btn_name");

mysqllog

回复 2# rubyish


    不是编码问题
当前论坛这几字能正常显示，但$btn_name似乎是个空值，所以不显示。

rubyish

但通过print到终端却可以？
所以不是个空值。

iamlimeng

在zzplay_Click最后加：

$Rightwin->Info->Change(-text => "当前论坛>$btn_name");

mysqllog

回复 5# iamlimeng


    OK了，其实我就是等着您或者flw来帮我看看 谢谢了