以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口工具栏分层显示导致其它操作出错问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105703)
--  作者：有点甜
--  发布时间：2017/8/24 15:50:00
--  

 这个是菜单本身的【bug】，这个是无法处理的。

 

 你调用控件的时候，先判断是否存在呗。

 

If e.form.controls.contains("button2") Then
   
End If
--  作者：有点甜
--  发布时间：2017/8/24 16:31:00
--  
For Each a As OBJECT In Tables("表A").grid.Parent.controls
    For Each b As OBJECT In a.controls
        If B.text = "加载树" Then
            b.AutoHiding = True
            \'b.CanCloseTabs = False
            \'b.CanAutoHide = False
        End If
    Next
Next
--  作者：逛逛
--  发布时间：2017/8/25 10:25:00
--  
不要溢出，换行
--  作者：有点甜
--  发布时间：2017/8/25 10:36:00
--  
以下是引用逛逛在2017/8/25 10:25:00的发言：
不要溢出，换行

 

5楼的意思是下面的代码。

 

Dim b = e.Form.Strips("工具栏1").basecontrol
b.CanOverFlow = False
--  作者：逛逛
--  发布时间：2017/8/25 10:41:00
--  
可以这样
Dim b = e.Form.Strips("工具栏1").basecontrol
b.LayoutStyle = 3