以文本方式查看主题

-  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=158491)
--  作者：lgz518
--  发布时间：2020/11/21 16:06:00
--  如何实现窗口打开不显示？
老师，下面报错：未知编译

1，需求是：

窗口C上有“按键AC”，\'按键BC"，"标题" ，

如果单击窗口A的"按键A"，打开窗口C上显示"按键AC"可编辑，“按键BC”为不可编辑，“标题” 为“应用一”，

如果单击窗口B“按键B”，打开窗口C上显示"按键AC"为不可编辑，“按键BC”为可编辑，“标题” 为“应用二”，

下面窗口C的代码：

Select Case e.Sender.Name
    Case   Forms("窗口A").Controls("按键A")                                 
        e.Form.Controls("按键AC").Enabled = True      
        e.Form.Controls("按键BC").Enabled = False      
        e.Form.标题 = \'  应用一  \'    

    
    Case  Forms("窗口B").Controls("按键B")                                 
        e.Form.Controls("按键AC").Enabled = False      
        e.Form.Controls("按键BC").Enabled = True     
        e.Form.标题 = \'  应用二  \'   
        
End Select
--  作者：有点蓝
--  发布时间：2020/11/21 16:24:00
--  
窗口A的"按键A"

Forms("窗口C").open
Forms("窗口C").Controls("按键AC").Enabled = True      
Forms("窗口C").Controls("按键BC").Enabled = False      
Forms("窗口C").标题 = \'  应用一  \'   

窗口B的"按键B"
Forms("窗口C").open
Forms("窗口C").Controls("按键AC").Enabled = False      
Forms("窗口C").Controls("按键BC").Enabled = True     
Forms("窗口C").标题 = \'  应用二  \'