- 论坛徽章:
- 0
|
本帖最后由 lpnueg4 于 2011-08-03 14:00 编辑
是这样的, 我想让 window 随着 scroll 的移动而移动,但是怎么都弄不出来。指点一下,谢谢
就是当 scroll 下滑的时候 这个 button 应该移动到上面。- use Win32::GUI();
- my $main = Win32::GUI::Window->new(
- -name => 'Main',
- -text => 'Perl',
- -pos => [100, 100],
- -width => 320,
- -height => 555,
- -hscroll => 1,
- -vscroll => 1,
- -onScroll => \&Scroll,
- );
- $main->AddButton (
- -name => "FindDlg_Find",
- -text => "&Find",
- -pos => [10, 10],
- -size => [75 , 20],
- );
- $main->Show();
- Win32::GUI::Dialog();
- sub Main_Terminate {
- -1;
- }
- sub Scroll {
- }
复制代码 这个 sub Scroll 应该怎么写呢? |
|