|
Public Function HandleNoticeDialog(dialog)
If Not dialog.Exist(5) Then
Call WriteLog(4, "指定对话框不存在,退出函数HandleNoticeDialog!")
Exit Function
End If
Dim childType, childObjArray, childCount
childType = "JavaTable"
childCount = GetChildObject(dialog, childType, childObjArray)
If childCount>0 Then
Dim table, row, col,i, j, tempstr
Set table = childObjArray(0)
Call CreateTableHandle(table)
For i = 0 to table.GetROProperty("rows")-1
tempstr = ""
For j = 0 to table.GetROProperty("cols")-1
tempstr = tempstr & table.GetCellData(i,j)& " "
Next
Call WriteLog(3,tempstr)
Next
Set table = nothing
End If
childType = "JavaEdit"
childCount = GetChildObject(dialog, childType, childObjArray)
If childCount>0 Then
For i = 0 to childCount-1
Call WriteLog(3,childObjArray(i).GetROProperty("value"))
Next
End If
dialog.close
End Function
这个函数是处理弹出的提示对话框的,dialog是弹出对话框对象,使用描述性编程编写 |
|