以文本方式查看主题

-  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=54952)

--  作者:fubblyc
--  发布时间:2014/8/7 21:39:00
--  先进入界面,再检查更新。。。

各位老师好,我在用户登录的界面  登录 按钮 写如下代码:

 

(想实现 进入 界面 之后 才检查版本新旧,但是发现,点 登录 按钮后,没有先出来界面,还是先执行了检查版本新旧的代码。。。。)

 

If e.Form.Controls("PassWord").Value = dr("登录密码") Then

    Forms("界面窗口").show
    Forms("我的导航").show
    e.Form.Close


    \'检查版本新旧----------------------------------------


    Application.DoEvents()   用了这个暂停下面的代码,让上面的Forms("界面窗口").show先执行,也是没有效果。

    forms("检查更新").Open
    
    \'定义变量--------------------
    Dim ename As String = "软件.exe" \'管理系统运行文件名
....
    
    Dim ftp As New FTPClient
    ftp.Host = 
    ftp.Account = 
    ftp.Password = 
    ftp.Port = "21"
    ftp.RootDir = "\\fox\\ty\\Update" \'如果升级所需文件刚好放置在FTP的根目录下,可以不用设置此属性;否则需要设置目录路径.
 
    
    Dim zip As New ZipFile
   
    \'连接FTP服务器--------------------
    If ftp.Connected = False \'如果FTP没有连接
        If ftp.Connect Then \'连接FTP
            \'     MessageBox.Show("FTP服务器连接成功!")
        Else
            forms("进入窗口").close
            MessageBox.Show("FTP服务器连接失败!")
           
            Return
        End If
    End If

不知道怎样才能实现:先进入 界面 之后 再检查版本新旧


--  作者:有点甜
--  发布时间:2014/8/7 21:44:00
--  

Forms("界面窗口").show
Forms("我的导航").show
e.Form.Close

MyTimers("计划1").Enabled = True

 

后面的代码,找一个合适的事件写进去,比如,可以放在一个计划管理那里,设置10秒启动,启动一次,就关闭

 

MyTimers("计划1").Enabled = False