TA的每日心情 | 无聊 2015-3-12 14:20 |
---|
签到天数: 1 天 连续签到: 1 天 [LV.1]测试小兵
|
ActiveX Environment
Display all Properties and Values for all Objects Matching a Given DescriptionSub GetTOProperties_Example2()
'The following example returns a Property collection containing
'the test object description (properties and values) for the
'Calendar ActiveX object, and then displays the property name and
'value of each property in the returned collection.
Set theTestObject = Window("Date").ActiveX("Calendar")
Set Props = theTestObject.GetTOProperties
PropsCount = Props.Count
For i = 0 To PropsCount - 1
PropName = Props(i).Name
PropValue = Props(i).Value
MsgBox PropName & " = " & PropValue
Next
End Sub
qtp的帮助里就有,多查查帮助吧 |
|