'***********************************************************'
'脚本名称:自定义Class类注入测试对象
'脚本功能:归类SwfTable对象常用基本方法
'编写日期:2014/01/10
'***********************************************************'
Class customSwfTable
Private oSwfTable,rowNum,columnNum
Public property set item(pObject)
Set oSwfTable=pObject
End Property
Public property let item(pObject)
Set item=oSwfTable
End Property
'取Text属性
Function GetText()
GetText=oSwfTable.GetROProperty("text")
End Function
'取hwnd属性
Function GetHWND()
GetHWND=oSwfTable.GetROProperty("hwnd")
End Function
'取visible属性
Function GetVisible()
GetVisible=oSwfTable.GetROProperty("visible")
End Function
'取height属性
Function GetHeight()
GetHeight=oSwfTable.GetROProperty("height")
End Function
'取width属性
Function GetWidth()
GetWidth=oSwfTable.GetROProperty("width")
End Function
'取focused属性
Function GetFocused()
GetFocused=oSwfTable.GetROProperty("focused")
End Function
'取abs_y属性
Function GetAbs_y()
GetAbs_y=oSwfTable.GetROProperty("abs_y")
End Function
'取abs_x属性
Function GetAbs_x()
GetAbs_x=oSwfTable.GetROProperty("abs_x")
End Function
'取x属性
Function GetX()
GetX=oSwfTable.GetROProperty("x")
End Function
'取y属性
Function GetY()
GetY=oSwfTable.GetROProperty("y")
End Function
'取FocusedRow
Function GetFocusedRow()
GetFocusedRow=oSwfTable.Object.FocusedView.FocusedRowHandle
End Function
'取RowCount
Function GetRowCount()
GetRowCount=oSwfTable.RowCount
End Function
'表示Menu
Function ShowMenu()
oSwfTable.Click 1,1,micRightBtn
End Function
'SelectRow
Function SelectRow(rowNum)
oSwfTable.SetView ""
oSwfTable.SelectCell rowNum,1
End Function
'表示指定Cell的Menu
Function ShowCellMenu(rowNum,columnNum)
oSwfTable.SetView ""
oSwfTable.SelectCell rowNum,1
WaitCursorDefault oSwfTable
Dim x,y
x=oSwfTable.GetCellProperty(rowNum,columnNum,"x")
y=oSwfTable.GetCellProperty(rowNum,columnNum,"y")
oSwfTable.Click x,y, micRightBtn
End Function
End Class
Function cSwfTable(pObject)
Set cSwfTable=nothing
Set cSwfTable=new customSwfTable
Set cSwfTable.item=pObject
End Function
RegisterUserFunc "SwfTable", "Extend", "cSwfTable", True