隐藏文件管理器按键的代码失效了? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

原来写在计划任务里的隐藏文件管理器按键的代码失效了?

Dim frm = windows.forms.form.activeform ''(报错,加system.后面报错--)

If frm IsNot Nothing Then

If frm.Text = "文件管理器" Then

Dim obj = frm.Controls("FileManager").Controls("SplitContainer1").panel2.Controls("FlowLayoutPanel1")

' PopMessage(1,"ti",PopIconEnum.Alert,1)

obj.controls("Manager").Visible = False

obj.controls("Add").visible = False

obj.controls("Delete").visible = False

'obj.controls("open").visible = False

obj.controls("Folder").visible = False

obj.controls("Clear").visible = False

obj.controls("SaveAs").visible = False

obj.controls("Connect").visible = False

obj.controls("FullView").visible = False

Open

End If

求更新代码.谢谢老师

主题：隐藏文件管理器按键的代码失效了?