论坛 › 已解决问题区 › 新人发问-----Error:解析函数Call错误

xiaohang 发表于 2009-4-28 11:45:44

新人发问-----Error:解析函数Call错误

本帖最后由 xiaohang 于 2009-5-2 14:44 编辑

代码如下，请高手帮帮忙指点下，可能是小问题，但我不知如何解决........
........
.......
While 1;;主程序

        If WinActive("考工总") Then
                $var1=StringLeft(ControlGetText("考工总","","Edit1"),14)
                _SingleForm_QuestionAnswer($var1)
                Sleep(3000)
        EndIf
        If TimerDiff($T) >=100000 Then;;
                ExitLoop
        EndIf
WEnd

Func _SingleForm_QuestionAnswer($AnswerSingle)
Select
                        Case $AnswerSingle =StringLeft("在C语言中在C语言中在C在C在C",14)
                       $temS = "B"
                       _Lable_Changevisible($temS)
                        Case $AnswerSingle =StringLeft("SQL数据库中主数据文件的扩展名",14)
                       $temS = "B"
                       _Lable_Changevisible($temS)
                                             ...........
                                             ...省略....
                                             ............
                EndSelect
EndFunc
........
.......

运行后如果窗口("考工总","","Edit1")的内容字数少于14个的话就会出错


如果不加StringLeft 不会出错的 为什么呢？？？

pusofalse 发表于 2009-4-28 13:43:10

看错了... - -||| sorry.

查看完整版本: 新人发问-----Error:解析函数Call错误