| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 远程文件管理器中文件夹上方原来的一个返回箭头不见了 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126452) |
| -- 作者：aza520 -- 发布时间：2018/10/22 11:56:00 -- 远程文件管理器中文件夹上方原来的一个返回箭头不见了 计划管理设了以下代码，为什么原来远程文件管理器中文件夹上方原来的一个返回箭头不见了 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 End If |
| -- 作者：有点甜 -- 发布时间：2018/10/22 12:00:00 -- 这个代码删除即可
If tb.Rows(1)(0) = ".." Then
tb.Rows(1).visible = False
End If
|