以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  麻烦帮忙看看代码错在哪里?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99807)

--  作者:10059
--  发布时间:2017/4/27 9:49:00
--  麻烦帮忙看看代码错在哪里?
老师,将下面的代码写在LoadUserSetting事件中,为甚么只出现提示“0”,提示“2”都没出现??

msgbox(00)
If Forms("主界面").opened() AndAlso user.name = "开发者" Then
    Forms("主界面").Controls("Button1").Visible = True
    Forms("主界面").Controls("Button2").Visible = True
msgbox(11)
Else
    Forms("主界面").Controls("Button1").Visible = False
    Forms("主界面").Controls("Button2").Visible = False
End If
msgbox(22)

--  作者:有点色
--  发布时间:2017/4/27 9:54:00
--  
执行下面的代码,看提示什么
 
msgbox(00)
If Forms("主界面").opened
    If user.name = "开发者" Then
        Forms("主界面").Controls("Button1").Visible = True
        Forms("主界面").Controls("Button2").Visible = True
        msgbox(11)
    Else
        Forms("主界面").Controls("Button1").Visible = False
        Forms("主界面").Controls("Button2").Visible = False
    End If
    msgbox(333)
End If
msgbox(22)

--  作者:10059
--  发布时间:2017/4/27 10:01:00
--  
提示“0”、“2”
--  作者:有点色
--  发布时间:2017/4/27 10:02:00
--  
那说明你的主窗口没有打开。
--  作者:有点色
--  发布时间:2017/4/27 10:02:00
--  
要记得 LoadUserSetting是比AfterOpenProject 先执行的。
--  作者:10059
--  发布时间:2017/4/27 10:08:00
--  
好的,谢谢老师