设置内置的文件管理器

我们知道，如果将某列的扩展列类型设置为多文件型，默认会自动打开一个文件管理器，可以通过Col的FileManager属性获得此文件管理器，进行细节设置。

示例

假定员工表的附件列是一个多文件型，我们可以通过下面的代码打开此列的文件管理器，并禁用其文件管理器的“删除”和“清除”两个命令：

做个计划，输入代码

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