TC官方合作论坛

标题: 让消息提示框带有声音 [打印本页]

作者: a837198 时间: 2014-11-14 12:24
标题: 让消息提示框带有声音
大家都知道 tc的辅助.消息框是不带声音的，所以可以用这个
api消息框带返回值
功能消息框(文本,标题="我的软件",提示类型=0,时间=0,&返回值=0,句柄=0)
如果(句柄==0)
      句柄=窗口.自身句柄()
如果结束
如果(时间==0)
      返回值=dllcall("user32.dll", "int","MessageBoxA", "int",句柄,"char *",文本,"char *",标题,"int",提示类型 )
否则
      返回值=dllcall("user32.dll", "int","MessageBoxTimeoutA", "int",句柄,"char *",文本,"char *",标题,"int",提示类型,"int",0,"int",时间 )
如果结束
//'MsgBox类型参数的取值：
//'符号常量             值作用
//'vbOKOnly             0 只显示“确定”按钮
//'vbOKCancel          1 只显示“确定”及“取消”按钮
//'vbAbortRetryIgnore 2 显示“放弃”、“重试”和“忽略”按钮
//'vbYesNoCancel       3 显示“是”、“否”和“取消”按钮
//'vbYesNo             4 显示“是”和“否”按钮
//'vbRetryCancel       5 显示“重试”和“取消”按钮

//'图标样式
//'vbCritical          16 显示系统叉号图标有声音
//'vbQuestion          32 显示系统问号图标
//'vbExclamation       48 显示系统叹号图标有声音
//'vbInformation       64 显示系统信息图标  有声音

//'默认  按钮
//'vbDefaultButton1       0 第一个按钮为默认按钮
//'vbDefaultButton2       256 第二个按钮为默认按钮
//'vbDefaultButton3       512 第三个按钮为默认按钮
//'vbDefaultButton4       768 第四个按钮为默认按钮

//'强制返回
//'vbApplicationModal 0 应用程序强制返回
//'vbSystemModal       4096    系统强制返回

//'MsgBox函数返回值
//'常数       值描述
//'vbOK       1 单击了“确定”按钮。
//'vbCancel 2 单击了“取消”按钮。
//'vbAbort 3 单击了“终止”按钮。
//'vbRetry 4 单击了“重试”按钮。
//'vbIgnore 5 单击了“忽略”按钮。
//'vbYes 6 单击了“是”按钮。
//'vbNo       7 单击了“否”按钮。

功能结束

VBS消息框
功能消息框(消息,标题="我的软件",类型=0)
      vbs路径=辅助.获取资源路径("rc:")&"消息提示.vbs"
      vbs语句="msgbox \""&消息&"\","&类型&",\""&标题&"\""
      如果(文件.是否存在(vbs路径))
            文件.删除(vbs路径)
      如果结束
      文件句柄=文件.创建(vbs路径,"读写")
      文件.关闭(文件句柄)
      文件句柄=文件.打开(vbs路径)
      文件.末尾写入(文件句柄,vbs语句)
      文件.关闭(文件句柄)
      辅助.命令(vbs路径,假)
功能结束

作者: 如此美丽。 时间: 2014-11-14 12:37
赞一个画面太美我不敢看

作者: rainshine 时间: 2014-11-14 12:43
vbs消息框可以用microsoft script 控件实现

作者: ksap787523 时间: 2014-11-14 16:31

rainshine 发表于 2014-11-14 12:43
vbs消息框可以用microsoft script 控件实现

大神网页游戏黑屏有啥指教下吧

作者: 落小雨 时间: 2014-11-15 00:01

ksap787523 发表于 2014-11-14 16:31
大神网页游戏黑屏有啥指教下吧

关了屏幕

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)