robot对DELPHI中GRID控件的识别问题

Dim iResult as Integer

Dim iCount as Integer

Dim ColWidth() as integer

Dim iWidth as Integer

Dim strColPos as Integer

Dim strRowPos as Integer

Dim strCor as String

Dim iTemp as integer

strColPos = 0

strRowPos = 0

iTemp = 0

SQAGetProperty strObject ,"Columns.Count", iCount

if iCount <> 0 then

Redim ColWidth(iCount - 1)

While iTemp < iCount

iResult = SQAGetProperty (strObject, "Columns.Items(" CStr(iTemp) ").Width",iWidth)

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!