我叫陈永达，欢迎来到我的51testing空间！ 才开始使用，想把关于软件测试的一些资料和心得保存于此。 欢迎大家多来参观，多提宝贵意见！

【QTP】函数指针的应用

上一篇 / 下一篇  2012-10-23 16:55:42 / 个人分类：QTP

查看( 609 ) / 评论( 0 ) / 评分( 0 / 0 )

使用这个方法，能将新的函数名指向一个函数

Dim new_aa
Set new_aa = GetRef("aa")     '使变量new_aa指向aa函数
Call new_aa()                         '这样new_aa就有了aa的功能

Function aa()
       msgbox "我是aa"
End Function

我的用法是，改写一些系统自带的函数

比如print，之前的print，只是打印在QTP自带的LOG里

用这个方法，可以将print改为msgbox的形式。

Dim print
Set print = GetRef("my_Print")
print "1234567"

Function my_Print(oSth)
       msgbox oSth
End Function






收藏 举报

TAG: 软件测试 QTP 陈永达 函数指针

 

评分：0

我来说两句

Open Toolbar