[原创]RegisterUserFunction的妙用

写好了,fish你来吧！

各位：51Testing软件测试网(q@{&ibGI

  都知道WinEdit没有复制方法吧？不信你点一下，我看看！好我们给他实现一下，并且然后实现智能代码感51Testing软件测试网p_V[*}1p1O5C W

HV7EAZ0知，就是说在WinEdit后.一下就会出Copy来，酷吧！看我来实现！！

*c Xz!?,Y7v0注：本节不是主要讲实现编辑框的复制，主要教你怎么给Qtp挂上自己的智能感知!51Testing软件测试网W;XxP4@
51Testing软件测试网/`oD;X(P

mK!q^M7fi8g)d'z0使用小飞机程序作例子，代码如下：

RegisterUserFunc "WinEdit", "Copy", "EditCopy" ,True51Testing软件测试网^:dd.y8bxF
{4u

b(HcAY0Sub EditCopy ()
4CEn*C,YV:i0 Set TestEdit = Dialog("Login").WinEdit("Agent Name:")51Testing软件测试网1~mM O5l
 51Testing软件测试网)E P~x'RN5g.~h z
 With TestEdit
3E\(p eOy0  .SetSelection 0,Len(TestEdit.GetROProperty("text"))51Testing软件测试网!dnf
m,n:C T;{"x c
  
][gl[X9W1y0  .Type micCtrlDwn + "c" + micCtrlUp
|;pE(h%u1s!n0  51Testing软件测试网
W9VU&pbo'{eu E
 End with
^RPPiIna3uH0 
Xw B jO\0End Sub

+P9l VQI0SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"

Dialog("Login").WinEdit("Agent Name:").Set "kakamissyou"51Testing软件测试网}{'E#B!x;x j
Dialog("Login").WinEdit("Agent Name:").Copy

$O!_7a,uX%cp'N0UnRegisterUserFunc "WinEdit","Copy"

*j#M8Hz LR[?1U!z0Dialog("Login").WinEdit("Agent Name:").Copy
S:wrOV9EMN0 'If you used the copy method  after unregister it,you would get a  error message about that  object doesn't support the copy method.51Testing软件测试网 r I/@^:C3e)`

msgbox "stop here!"

d4{.D8j9_&zc#D^m0先来看看效果：51Testing软件测试网g l[B{)M
d]

nu V.qR \){_051Testing软件测试网Zj B7j(@9?a

2~@7t'yD!c/B0那是怎么实现的呢？主要靠这个RegisterUserFunc "WinEdit", "Copy", "EditCopy" ,True这句。51Testing软件测试网'K?qG~

WinEdit是要挂接的对象类，EditCopy是我们制作的Function,Copy则是你在WinEdit后面。一下出来的方

法！如果你要注册的方法，如本例的Copy没有在WinEdit类中存在的话就会给新加上一个。就像本例！

如果这个方法已经存在的话就会替换到原来的方法，从而可以实现重写原来的方法！

\ w}kS?EP7G0总结：

1.用这种方法可以实现继承，网上有人叫重载，我真不知道他们怎么读，是他们错了，还是我错了？

onn P&sL+?i)Dpp%M0  具体请查看帮助！相当于调用此类的父类的方法！

*\7oD4d
nDj5ig02.用这种方法可以实现重写原来的方法。51Testing软件测试网3A DXZ%w%kl(Q;r:m

1]/P,S!iig:g+f03.用这种方法可以实现继承并且原来的基础上添加一些功能。以简化开发。王道！

-S]-c N~kI9E1P051Testing软件测试网1KLs/Ye2Y