51Testing软件测试论坛

标题: 怎么让msgbox分行显示 [打印本页]

作者: jlxie2008 时间: 2008-9-1 11:28
标题: 怎么让msgbox分行显示
怎么让msgbox分行显示。
如：
Dim nowdate,arydate
'获取系统日期
nowdate=date()
arydate=split(nowdate,"-")
MsgBox("当前时间为："&arydate(0)&"年"&arydate(1)&"月"&arydate(2)&"日"&Time)
怎么让日期和时间分行显示？

作者: lingxin5013 时间: 2008-9-1 11:34
Dim nowdate,arydate
'获取系统日期
nowdate=date()
arydate=split(nowdate,"-")
MsgBox("当前时间为："&arydate(0)&"年"&arydate(1)&"月"&arydate(2)&"日"&vbnewline&Time)
'运行下自己看效果吧，希望对你有帮助

作者: jlxie2008 时间: 2008-9-1 11:41
可以了，谢谢“lingxin5013”

作者: jlxie2008 时间: 2008-9-1 11:53
补充一下：（以方便可能用到的时候不出错）

若要在消息中强制换行，可在文本中使用vbCrLf(或vbNewLine)常量，用&加空格与字符隔开。如

Dim nowdate,arydate
'获取系统日期
nowdate=date()
arydate=split(nowdate,"-")
MsgBox("当前日期为："&arydate(0)&"年"&arydate(1)&"月"&arydate(2)&"日" & vbCrLf & "当前时间为："&Time)

'如果强制换行不加后面那个“&”，QTP会报错。

作者: lingxin5013 时间: 2008-9-1 12:01
非常感谢ＬＳ　学习了　共同学习　共同提高！

作者: zte_boy 时间: 2008-9-1 12:02
回车换行符就可以了，vbCrLf

作者: mayuping0516 时间: 2008-9-3 10:22
为什么执行的时候有错误

索引值超出范围
为什么阿

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)