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

stop

strCor = "Coords=" & strColPos &"," CStr(strRowPos 24)

GenericObject Click, strObject, strCor

End Sub

上编写的还有很多疏漏的地方，对于浮动文本框赋值成功，却无法改动tdbgrid中的值没有深入研究，该函数在实际应用中还有个小问题，没有做到很完全“周到“ ，下回有时间改正。

备注：

最后我把代码进行优化和扩展，开发了针对grid的相关函数，下边是其中之一

//得到列数

Function GetColCount(sGridRecogStr as String) as Integer

Dim Result as Integer

Dim vValue as Variant

Dim sLogMessage as String

Dim sErrorMessage as String

grdGetRowCount = -1

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