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

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 访问该论坛
-~----------~----~----~----~------~----~------~--~---