以文本方式查看主题

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

--  作者:yifan3429
--  发布时间:2014/9/25 10:51:00
--  控件控制
If User.IsRole("编辑") Then
    Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer7")
    If sp.Panel2.Collapsed = False Then
        sp.Panel2.Collapsed = True
    Else
        sp.Panel2.Collapsed = False
    End If
Else
                  什么也不做的代码是?
End If

--  作者:有点甜
--  发布时间:2014/9/25 10:52:00
--  
If User.IsRole("编辑") Then
    Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer7")
    If sp.Panel2.Collapsed = False Then
        sp.Panel2.Collapsed = True
    Else
        sp.Panel2.Collapsed = False
    End If
End If

--  作者:Bin
--  发布时间:2014/9/25 10:53:00
--  
什么都不做,就什么代码也不写.