Chinaunix

标题: 请教Tk中如何指定创建窗口在屏幕中的位置？ [打印本页]
作者: hztj2005    时间: 2018-11-13 22:15
标题: 请教Tk中如何指定创建窗口在屏幕中的位置？
本帖最后由 hztj2005 于 2018-11-15 20:39 编辑
  1. use Tk;
  2. require Tk::TList;
  3. require Tk::ItemStyle;

  5. my $txt = "test";

  7. $mw = MainWindow->new(-title => 'TList');

  9. <div>#$mw->geometry("600x400");     </div><div>
  10. </div><div>#设置方法</div><div>
  11. </div><div>$mw->geometry('600x200+800+400'); #宽600 高200  左起800  从上往下400
  12. </div>     
  13. my $button_frame = $mw->Frame()->pack(-side => "bottom");
  14. $button_frame->Button(-text => "Ok",
  15.                       -command => \&show_cwd)->pack(-side => "left");
  16. $button_frame->Button(-text => "Exit",
  17.                       -command => sub{exit})->pack(-side => "left");

  19. sub show_cwd {
  20.   $mw->messageBox(-message => "Directory Selected: $CWD", -type => "ok");
  21. }

  23. MainLoop;
复制代码
这段代码可以创建一个窗口，我需要指定
窗口在屏幕中的位置，不知道用什么方法。

请指教，谢谢！

已经解决了。


作者: hztj2005    时间: 2018-11-13 23:09
  1. se Tk;

  3. $mw = MainWindow->new(-title => 'TList');

  5. $mw->geometry('600x200+800+400');        #宽600 高200  左起800  从上往下400

  7. $mw->Button(-text => "Ok",
  8.                       -command => \&show_cwd)->pack(-side => "top");       
  9.                      

  11. sub show_cwd {
  12.   $mw->messageBox(-message => "Directory Selected: $CWD", -type => "ok");
  13. }

  15. MainLoop;
复制代码




欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2