免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1867 | 回复: 1

Win32::MsgBox弹出框总是被压在程序主窗口下面,怎么办? [复制链接]

论坛徽章:
0
发表于 2012-12-21 13:47 |显示全部楼层
  1. sub error_box {

  2.     use Win32;

  3.     my $Message = "格式错误,重新输入";

  4.     my $Result = Win32::MsgBox( $Message , 16+4 ,"输入格式判断" );

  5.     ( $Result == 6) ? &INPUT_JUDGE : exit;  #结果为真则调用子函数&INPUT_JUDGE

  6. }
复制代码
程序中有这么一段关于用户输入格式判断的弹出框子函数代码,程序运行后该弹出框总是被压在主程序窗口下面,不容易发现。怎么才能让它跳到主窗口前面来呢?

论坛徽章:
0
发表于 2012-12-24 17:32 |显示全部楼层
use Win32::GuiTest qw(FindWindowLike SetForegroundWindow);
my @windows = FindWindowLike(0, "信号", "");
        foreach(@windows){
                SetForegroundWindow($_);
                }
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP