- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 设置内置的文件管理器的代码写在哪个位置（没有设置窗口，都是表操作），来设置”删除或清除”等按钮不可用？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121279)
-- 发布时间：2018/7/3 10:05:00
-- 设置内置的文件管理器的代码写在哪个位置（没有设置窗口，都是表操作），来设置”删除或清除”等按钮不可用？
设置内置的文件管理器
我们知道，如果将某列的扩展列类型设置为多文件型，默认会自动打开一个文件管理器，可以通过Col的FileManager属性获得此文件管理器，进行细节设置。
示例
假定员工表的附件列是一个多文件型，我们可以通过下面的代码打开此列的文件管理器，并禁用其文件管理器的“删除”和“清除”两个命令：
Tables("员工").Cols("附件").OpenWindow()
Dim fl As WinForm.FileManager = Tables("员工").Cols("附件").FileManager
fl.DeleteCommand.Enabled = False
fl.ClearCommand.Enabled =
False
-- 发布时间：2018/7/3 10:31:00
--
做个计划，输入代码
http://www.foxtable.com/webhelp/scr/0657.htm
如果是文件管理器
Dim frm = windows.forms.form.activeform
If frm IsNot Nothing Then
If frm.Text = "文件管理器" Then
Dim obj = frm.Controls("FileManager").Controls("SplitContainer1").panel2.Controls("FlowLayoutPanel1")
obj.controls("Manager").Visible = False
obj.controls("Add").visible = False
\'Folder
\'Open
\'Delete
\'Clear
\'Manager
\'SaveAs
\'Connect
\'FullView
End If
End If
如果是图片管理器，参考
Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
If frm.Name = Nothing AndAlso frm.text = "图片管理器" Then
Dim lbs = frm.Controls(0).controls(0).panel2.controls(0)
lbs.controls("Add").visible = False
lbs.controls("Open").visible = False
\'Add
\'Open
\'Delete
\'Clear
\'NextRecord
\'PrevRecord
\'Manager
\'Full
\'Stretch
\'SaveAs
\'lblConnect
\'lblUpdate
End If
End If
-- 发布时间：2023/6/2 10:33:00
--
会提示这个异常
此主题相关图片如下：微信截图_20230602103117.png
-- 发布时间：2023/6/2 10:41:00
--
新版本不再支持这种用法
-- 发布时间：2023/6/2 10:49:00
--
请问下，还有什么方法可以禁用删除、清除、另存这几个功能呢？
-- 发布时间：2023/6/2 11:02:00
--
没有办法。只能是设计自己的窗口，使用文件管理器控件，取代自带的文件管理器窗口