计算器一位数相加源码。加msgbox后经有时运行成功，有时不能成功。

babel

以下为从文本读一位数相加的代码
'Option explicit
Dim Fso,TheFile,ReadString
Dim TestNumberOne,TestNumberTwo
Dim ipos,iLen

Const ForReading=1

Set Fso=createobject("Scripting.FileSystemObject")
Set TheFile= Fso.OpenTextFile("F:\test\VB calc\testNumber.txt",ForReading,False)

Do while TheFile.atendofline<>true

        ReadString=TheFile.ReadLine

    ipos=instr(1,ReadString,",",1)
        iLen=Len(ReadString)
       
        TestNumberOne=Left(ReadString,ipos-1)
        TestNumberTwo=Right(ReadString,iLen-ipos)

        msgbox "TestNumberOne=" & TestNumberOne
        msgbox "TestNumberTwo=" & TestNumberTwo

           Window("计算器").WinButton(TestNumberOne).Click
                Window("计算器").WinButton("+").Click
                Window("计算器").WinButton(TestNumberTwo).Click
                Window("计算器").WinButton("=").Click
   
       
Loop

TheFile.close
Set TheFile=nothing
Set Fso=nothing

去掉msgbox可正常运运，但加上后，却时而能运行，时而不能运行。是什么原因？

pcl2004_27

看着代码这么熟悉呢。。。。呵呵
不知道错误原因是什么，但是从你代码来看代码数据类型转换有问题，
msgbox "TestNumberOne=" & TestNumberOne
        msgbox "TestNumberTwo=" & TestNumberTwo
需要 修改为
msgbox "TestNumberOne=" & CStr(TestNumberOne)
        msgbox "TestNumberTwo=" & CStr(TestNumberTwo)

xiaonan

不能运行是报什么错?

babel

呵呵，那个就是梁老师讲课时的范例啊

babel

问题还是一样的呢
有时候可以很顺得的一次通过，有时候服‘Object not visible',Details'Line (24): "Window("计算器").WinButton(TestNumberOne).Click". '
去掉msgbox还是执行得挺顺的。
在中间加入6秒延迟也没问题。