Question

我是Perl / Tk的新手，只是想知道如何在基于Perl / Tk的GUI中使用下拉菜单以及如何填充它？有人可以帮我解决这个问题吗？

Answer 1

每个Perl / Tk安装都安装了widget演示程序。跑吧;你会在“菜单”部分找到一些菜单演示。我在这里推荐第二项（标题为“如上所述，但使用Perl / Tk -menuitems”）。所有演示都有一个“查看代码”按钮，用于显示源代码。

Answer 2

这是一段代码片段（source）：

use Tk;
use Tk::Optionmenu;

# have some variables
my ($var, $tvar);

# create a drop down menu
my $opt = $mw->Optionmenu(
-options => [[jan=>1], [feb=>2], [mar=>3], [apr=>4]],
-command => sub { print "got: ", shift, "\n" },
-variable => \$var,
-textvariable => \$tvar
)->pack(-side => 'left', -anchor => 'n',);

# populate with some values unless done during initialisation
$opt->addOptions([may=>5],[jun=>6],[jul=>7],[aug=>8]);

Answer 3

TkDocs有一个不错的Menus部分（这不是 Tk ，但 Tkx 代码，但这应该有帮助）

使用Perl / Tk代码下拉菜单？

3 个答案: