如何在 Perl 中的按钮单击事件后动态更新静态文本标签？答案

【问题标题】：How can I dynamically updatea StaticText label after a button click event in wxPerl?如何在 Perl 中的按钮单击事件后动态更新静态文本标签？
【发布时间】：2013-08-17 03:27:58
【问题描述】：

我有一个显示当前选定文件名的静态文本。我希望每次用户使用“选择文件”按钮选择新文件时更新它。

我已尝试在 EVT_BUTTON 子例程调用中使用 Update() 方法，但不起作用。

下面是我的一段代码。请原谅任何不好的编码实践，相对较新。

      $self->{class_source_txt} = Wx::StaticText->new(
                                 $panel,
                                              1,
               "Classifier Source: $classifier",
                         [-1,-1]);

      $self->{file_select} = Wx::Button->new(
                $panel,
                1,
                "Select Classifier",
               );

      EVT_BUTTON(   
        $self,
        1,
        sub{
        $classifier = FileSelect();
        $self->{class_source_txt}->Update();
            }
                );

具体来说，我想做的是让Classifier Source: $classifier 行显示EVT_BUTTON 创建的$classifier 的新值

【问题讨论】：

标签： perl dynamic wxperl

【解决方案1】：

$self->{class_source_txt}->SetLabel($classifier);

您可以安装Wx::Demo 并从这些示例中学习。

【讨论】：