TC 好像不能通过键盘命令 关掉自己的消息框

pop_tiger

如题，代码如下：功能 测试()
    消息框("登录成功","提示")
    等待(1000)
    键盘按键(13)
    退出()

结束

cjxdn

xiong5523 发表于 2016-10-17 14:05
因为 消息框("登录成功","提示") 这一句 不点消息框上面的确定 就不会执行下面的步骤
怎么解决我也不知道:~ ...

解决办法就是你楼下的方法
自己新建1个子界面
当做消息框

winbei2010

自己绘制个界面mes ，用的时候

function msgbox2(hd,text)
    var hwnd=controlopenwindow("mes",true)
    staticsettext("static45",text,"mes")
    windowactivate(hwnd)
end

cjxdn

功能 关闭消息框()
    等待(3000)//线程开启等待3秒后寻找消息框标题
    变量 窗口句柄=窗口查找("消息框标题")
    调试输出(窗口句柄)
    如果(窗口句柄!=0)//窗口句柄不等于0,就是找到窗口,进行关闭窗口
        窗口关闭(窗口句柄)
    结束
结束
功能 按钮0_点击()
    线程开启("关闭消息框","")//先开启线程等待消息框出现
    消息框("消息框内容","消息框标题")//弹出消息框
结束

xiong5523

因为 消息框("登录成功","提示") 这一句 不点消息框上面的确定 就不会执行下面的步骤
怎么解决我也不知道

mycodeis0000

1. 功能 测试_点击()
   
2.     //这里添加你要执行的代码
   
3.    
   
4.    
   
5.     var 线程句柄=线程开启("窗口关闭测试","")
   
6.    
   
7.     消息框("测试窗口关闭")
   
8.    
   
9.     线程关闭(线程句柄)
   
10. 
    
11. 结束
    
12. 
    
13. 功能 窗口关闭测试()
    
14.    
    
15.     循环(真)
    
16.         
    
17.         等待(2000)
    
18.         
    
19.         var hwnd1=窗口查找("TC")                //根据标题查找
    
20.         
    
21.         如果(hwnd1>0)
    
22.             
    
23.             窗口关闭(hwnd1)
    
24.             跳出
    
25.             
    
26.         结束
    
27.         
    
28.     结束
    
29. 
    
30. 结束

复制代码

直接把代码粘贴上去，调试下就知道了

mycodeis0000

1. 功能 测试_点击()
   
2.     //这里添加你要执行的代码
   
3.     var 线程句柄=线程开启("窗口关闭测试","")
   
4.    
   
5.     消息框("测试窗口关闭")
   
6.    
   
7.     线程关闭(线程句柄)
   
8. 
   
9. 结束
   
10. 
    
11. 功能 窗口关闭测试()
    
12.     循环(真)
    
13.         
    
14.         等待(2000)
    
15.         
    
16.         var hwnd1=窗口查找("TC")                //根据标题查找
    
17.         
    
18.         如果(hwnd1>0)
    
19.             
    
20.             窗口关闭(hwnd1)
    
21.             
    
22.             跳出
    
23.             
    
24.         结束
    
25.         
    
26.     结束
    
27. 
    
28. 结束

复制代码

复制代码调试下

pop_tiger

谢谢回复！测试可行。

pop_tiger

mycodeis0000 发表于 2016-10-17 16:05
复制代码调试下

谢谢回复！测试可行。