以下是引用douglas738888在2018/3/1 15:06:00的发言:
老师,这样写,系统全部都执行这个命令了,如果其他的表要保留删除这个功能,是否只能使用FileManager控件或者是单独设计管理器了?
加一个全局变量进行控制,不就好了?
CellButtonClick 事件
vars("隐藏") = true
2楼代码,这样改
If vars("隐藏") = True Then
Dim frm = windows.forms.form.activeform
If frm IsNot Nothing Then
If frm.Text = "文件管理器" Then
vars("隐藏") = False
Dim obj = frm.Controls("FileManager").Controls("SplitContainer1").panel2.Controls("FlowLayoutPanel1")
obj.controls("Manager").Visible = False
'Add
'Folder
'Open
'Delete
'Clear
'Manager
'SaveAs
'Connect
'FullView
End If
End If
End If