|
3#
楼主 |
发表于 2011-5-18 09:22:12
|
只看该作者
恩,以上在debug的时候发现了。现在就是想知道她实现描述性编程的原理。
昨天晚上我又看了下FrameworkManager.chm,看见这么一段- If InStr(Me.Properties("DPID"), "%") > 0 Then
- 'Get the reference from a custom function
- On Error Resume Next
- sIDString = Replace(Me.Properties("DPID"), "%", "")
- Execute "Set oRef = " & sIDString & "(" & Chr(34) & FullName & Chr(34) & ")"
- If Err.Number <> 0 Then
- Set oRef = Nothing
- End If
- On Error Goto 0
-
- Set LoadQTPObject = oRef
- Exit Function
- End If
复制代码
这段代码是在 Private Function LoadQTPObject 中的,其中 Execute "Set oRef = " & sIDString & "(" & Chr(34) & FullName & Chr(34) & ")"
应该就是描述性编程中的 Set XXX= Window("Text:="HyperSna"") 这个格式
然后递归往上加节点(猜测....还没具体看)。
希望有了解的能给予指导。
同时谢谢楼上的解释~ |
|