QTP中常用的VBS函数

 

QTP中常用的VBS函数

 
CStr 函数
返回表达式，该表达式已被转换为 String 子类型的 Variant。
CStr(expression)
expression 参数是任意有效的表达式。
说明
通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。例如，使用 CStr 强制将结果表示为 String。
CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。
expression 根据下表决定返回的数据：

如果 expression 为        CStr 返回          
Boolean        字符串，包含 True 或 False。          
Date        字符串，包含系统的短日期格式日期。          
Null        运行时错误。          
Empty        零长度字符串 ("")。          
Error        字符串，包含跟随有错误号码的单词 Error。          
其他数值        字符串，包含此数字。        
下面的示例利用 CStr 函数把数字转换为 String:
Dim MyDouble, MyString
MyDouble = 437.324         ' MyDouble 是双精度值。
MyString = CStr(MyDouble)  ' MyString 包含 "437.324"。

LCase 函数
返回字符串的小写形式。
LCase(string)
string 参数是任意有效的字符串表达式。如果 string 参数中包含 Null，则返回 Null。
说明
仅大写字母转换成小写字母；所有小写字母和非字母字符保持不变。

下面的示例利用 LCase 函数把大写字母转换为小写字母：
Dim MyString
Dim LCaseString
MyString = "VBSCript"
LCaseString = LCase(MyString)   ' LCaseString 包含 "vbscript"。
UCase 函数
返回字符串的大写形式。
UCase(string)
string 参数是任意有效的字符串表达式。如果 string 参数中包含 Null，则返回 Null。
说明
只有小写字母被转换成大写字母；所有大写字母和非字母字符均保持不变。
下面的示例利用 UCase 函数返回字符串的大写形式：
Dim MyWord
MyWord = UCase("Hello World")   ' 返回"HELLO WORLD"。

MsgBox 函数
在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮。
MsgBox(prompt[, buttons][, title][, helpfile, context])
参数
prompt
作为消息显示在对话框中的字符串表达式。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 分隔各行。
Buttons
数值表达式，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和。有关数值，请参阅“设置”部分。如果省略，则 buttons 的默认值为 0。
Title
显示在对话框标题栏中的字符串表达式。如果省略 title，则将应用程序的名称显示在标题栏中。
Helpfile
字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。如果已提供 helpfile，则必须提供 context。在 16 位系统平台上不可用。
Context
数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供 context，则必须提供 helpfile。在 16 位系统平台上不可用。
设置
buttons 参数可以有以下值：

常数        值        描述          
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        系统模式：在用户响应消息框前，所有应用程序都被挂起。        
第一组值 (0 - 5) 用于描述对话框中显示的按钮类型与数目；第二组值 (16, 32, 48, 64) 用于描述图标的样式；第三组值 (0, 256, 512) 用于确定默认按钮；而第四组值 (0, 4096) 则决定消息框的样式。在将这些数字相加以生成 buttons 参数值时，只能从每组值中取用一个数字。
返回值
MsgBox 函数有以下返回值：

常数        值        按钮          
vbOK        1        确定          
vbCancel        2        取消          
vbAbort        3        放弃          
vbRetry        4        重试          
vbIgnore        5        忽略          
vbYes        6        是          
vbNo        7        否        
说明
如果同时提供了 helpfile 和 context，则用户可以按 F1 键以查看与上下文相对应的帮助主题。
如果对话框显示取消按钮，则按 ESC 键与单击取消的效果相同。如果对话框包含帮助按钮，则有为对话框提供的上下文相关帮助。但是在单击其他按钮之前，不会返回任何值。
当MicroSoft Internet Explorer使用MsgBox函数时，任何对话框的标题总是包含"VBScript",以便于将其与标准对话框区别开来。
下面的例子演示了 MsgBox 函数的用法：
Dim MyVar
MyVar = MsgBox ("Hello World!", 65, "MsgBox Example")
   ' MyVar 包含 1 或 2，这取决于单击的是哪个按钮。