专家坐堂-远程文件管理器中文件夹上方原来的一个返回箭头不见了Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim frm As Object = windows.Forms.Form.activeform

If frm IsNot Nothing Then

\'output.show(frm.name & "dd" & frm.text)

If frm.name = "Class235" Then

\'For Each c As object In frm.Controls

\' output.show(c.name)

\'Next

Dim tb = frm.Controls("C1FlexGrid1")

If tb.Rows(1)(0) = ".." Then

tb.Rows(1).visible = False

End If

\'frm.controls("Button1").Visible = False

\'frm.controls("Button2").Visible = False

\'frm.controls("Button3").Visible = False

\'frm.controls("cmbFTPPath").Visible = False

\'frm.controls("Label1").Visible = False

\'frm.controls("TextBox1").Visible = False

\'frm.controls("C1FlexGrid1").height = 380

Else If frm.name = "Class234" Then

Dim tb = frm.Controls("C1FlexGrid1")

If tb.Rows(1)(0) = ".." Then

tb.Rows(1).visible = False

End If

\'frm.controls("cmbFTPPath").Visible = False

\'frm.controls("Label2").Visible = False

\'frm.controls("cmbFTPPath").Visible = False

\'frm.controls("btnOpen").Visible = False

\'frm.controls("btnOpenLocFolder").Visible = False

\'frm.controls("Label1").Visible = False

\'frm.controls("btnRefresh").Visible = False

\'frm.controls("btnUpload").Visible = False

\'frm.controls("btnDownload").Visible = False

\'frm.controls("btnMakeDir").Visible = False

\'frm.controls("btnRename").Visible = False

frm.controls("btnDelete").Visible = False

\'frm.controls("C1FlexGrid2").Visible = False

\'frm.controls("C1FlexGrid1").top = 10

\'frm.height = 380

End If