如何实现 信息框弹出，马上能自动关闭

bailang121

.子程序 _复制D_被单击
.局部变量 a, 整数型, 静态
.如果真 (a ＝ 0)
    a ＝ a ＋ 1
    置剪辑板文本 (编辑框D.内容 ＋ 超级编辑框1.内容)
    记事本1.内容 ＝ 到文本 (编辑框D.内容 ＋ 超级编辑框1.内容)
    信息框 (“1”, 0, )
    返回 ()

类似于上述代码中，点击按钮后弹出一个信息框“1”         如何能让信息框弹出1秒钟 立马自动关闭  不需要我们去手动点击“确定”按钮！

挥剑い为红颜

1. .版本 2
   
2. 
   
3. .DLL命令 MessageBoxTimeout, 整数型, "user32.dll", "MessageBoxTimeoutA"
   
4. .参数 hwnd, 整数型
   
5. .参数 lpText, 文本型
   
6. .参数 lpCaption, 文本型
   
7. .参数 uType, 整数型
   
8. .参数 wlange, 整数型
   
9. .参数 dwTimeout, 整数型
   
10. 
    
11. .程序集 窗口程序集1
    
12. 
    
13. .子程序 _按钮1_被单击
    
14. 
    
15. MessageBoxTimeout (0, “5秒种后自动关闭”, “自动关闭信息框例程”, 64, 0, 5000)
    
16. 
    

复制代码

5秒自动关闭信息框例程在这里  求最佳。。
自动关闭信息框架例程.rar (961 Bytes, 下载次数: 1005)

2012-11-8 15:33 上传

点击文件名下载附件

红颜似水

那就不要加信息框 加个窗口提示，然后把窗口提示上加个标签倒数3秒自动关闭。你看如何？

吾愛じ啃飯團ジ

Messagebox API可以试试看

bailang121

紅顏じ亦祸水ジ 发表于 2012-11-8 15:30
那就不要加信息框 加个窗口提示，然后把窗口提示上加个标签倒数3秒自动关闭。你看如何？

API信息框能实现吗？  写个代码看下吧   就是弹出信息框比较多 有5.6个   所以 用窗口提示的话是不是要做好多个窗口  比较麻烦的吧？

特思软件

.版本 2

.子程序 关闭信息框

.如果真 (窗口_取句柄 (, , , “2222222222222”) ≠ 0)
    窗口_关闭 (窗口_取句柄 (, , , “2222222222222”))
    时钟_销毁 (取窗口句柄 (), “kdsjgksdfjg”)
.如果真结束


.子程序 _按钮1_被单击

时钟_创建 (取窗口句柄 (), “kdsjgksdfjg”, 1000, &关闭信息框)
信息框 (“11111111”, 0, “2222222222222”)

红颜似水

bailang121 发表于 2012-11-8 15:35
API信息框能实现吗？  写个代码看下吧   就是弹出信息框比较多 有5.6个   所以 用窗口提示的话是不是要做 ...

一个窗口就可以了。。窗口里的提示信息可以随着你要弹的信息改变，比较简单！api的我不会