以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  循环判断的问题。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=55072)

--  作者:qianqian1530
--  发布时间:2014/8/10 11:54:00
--  循环判断的问题。
 我的问题是, 当 没有打开成功的时候, 返回上一个 Case  ,不行么?  自己测试 不行.. 没反应..无法 循环 打开-判断-没打开- 打开   这种循环

 Public lb As String
Select Case lb \'分别根据LB标志的值来执行不同的操作

    Case "打开"
        Sendkeys.Send("%(o)") \'发送打开信息
        
    Case "程序"
        
        If FileIsOpened(file.FullName)= True Then \'判断文件是否已经打开
            ShowAppWindow("yahoo_quantity[1].csv",5) \'关闭文件
        Else
            lb="打开"
        End If
    End If
End Select


--  作者:有点甜
--  发布时间:2014/8/10 11:56:00
--  
 无法返回上一个case,你必须把代码写在下面。
--  作者:有点甜
--  发布时间:2014/8/10 13:53:00
--  

http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54957&page=1&star=2