作者 主題: 請問 perl Tk::BrowseEntry如何將下拉式選單內的值送給Entry  (閱讀 1251 次)

0 會員 與 1 訪客 正在閱讀本文。

Infinite

  • 可愛的小學生
  • *
  • 文章數: 1
    • 檢視個人資料
請問各位前輩,我選擇下拉式選單的其中一個項目後,如何將選擇的項目直接顯示再Entry上面呢?
我是在winXP下使用.bat啟動程式,以下是部分程式內容!!

my $frame_2 = $mw -> Frame(-borderwidth => 3, -relief => 'raised') -> pack();
   
my $def_index = "請選擇...";
my $name_be = $frame_2 -> BrowseEntry(-label => "姓名:",-font => ['Arial', '12'],
   -variable => \$def_index,-choices => \@name) -> pack(-side => 'left',-expand => 1);

my $number_label = $frame_2 -> Label(-text => "新號:",-font => ['Arial', '12']) -> pack(-side => 'left',-expand => 1);
my $namber_entry = $frame_2 -> Entry(-font => ['Arial', '12']) -> pack(-side => 'left',-expand => 1);
$namber_entry -> insert('end', $number);