[PerlChina] Re: 新手问题...关于IF的.

THANKS 一会试下.哈..

On 10月16日, 上午8时53分, Beckheng Lam <bi.ken....@gmail.com> wrote:
> Win32::GUI,我比较喜欢用Perl Loft来做界面。
>
> 你说的TEXT的内容是这样写的：
>
> $_win_main->txt2->Text();
>
>
>
> bio_gzd wrote:
> > 各位高人,我有几个问题想要问问.
> > 1. 有如下程序段.
> > my $new_tid = undef;
> > chomp ($new_tid = <STDIN>);
>
> > if (defined($new_tid)) {
> > print "sucess";
> > } else { print "nothing"; }
>
> > $new_tid = <STDIN>; 这里,我是输入一个空行(只有一个<CR>),但已经被chop掉了,也就是说这里对人来说已经是undef
> > 无意义了,那为什么条件判断那里会返回为真呢?应该用什么方法去写这个条件判断?
>
> > 2. Win32::GUI的控件问题,代码如下:
> > $_win_main->AddTextfield (
> > -name => "txt2",
> > -number => 1, -size => [60,20],
> > -prompt => "NUMBER:",
> > -text => $yct_value,
> > -pos => [185,65],
> > );
> > $_win_main->AddButton (
> > -name => "_chg_term_num",
> > -text => "change",
> > -align => "center", -valign => "center",
> > -size => [100,50], -pos => [(480*0.25),(320-320*0.35)],
> > );
> > 主要是想通过Button的ONCLICK事件来提取Textfield里面的数据,请问如何提取?我翻遍了整个WIN32::GUI的文档库,都没有
> > 找到引用的办法.想过很多,例如: $txt2 这样,又或者像是这样$_win_main->txt2,来引用都是失败的...
>
> --
> Perl乐事 --http://www.perlersh.org
> 我的博客 --http://www.perlersh.org/blog.html
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---