- 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp)
-- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5)
---- 请高手赐教如何使用MessageBoxEx外部对象 (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=33814)
-- 发布时间：2012/12/20 10:50:39
-- 请高手赐教如何使用MessageBoxEx外部对象
请高手赐教关于MessageBoxEx和InputBoxEx 外部对象的具体用法示例！
-- 发布时间：2012/12/21 1:11:52
--
MessageBoxEx 的范例
Sub Test()
Dim d \'创建一个变量
Set d = CreateObject("WWSCommon.MessageBoxEx")
d.Button = 3\'显示是、否和取消按钮
result = d.DoModal("你愿意给我点钱吗","提问")
if result = 6 then
Msgbox "谢谢你太大方了"
end if
End Sub
InputBoxEx 的范例
Sub Test()
Dim d \'创建一个变量
Set d = CreateObject("WWSCommon.InputBoxEx")
d.Title = "阿拉贡"
d.Description = "请输入要给我转帐的金额"
d.Type=0\'普通文本框
result = d.DoModal
if result = 1 then
msgbox "谢谢你这么大方给我转帐"&d.text&"元"
end if
End Sub
[此贴子已经被作者于2012-12-21 1:12:23编辑过]
-- 发布时间：2012/12/21 12:12:57
--
万分感谢