- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- ftp选择远程文件窗口，能否禁用“上传文件”和“新建目录”按钮，以及代码如何实现ftp的刷新！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85084)
-- 发布时间：2016/5/17 13:02:00
-- ftp选择远程文件窗口，能否禁用“上传文件”和“新建目录”按钮，以及代码如何实现ftp的刷新！
1、ftp选择远程文件窗口（说明：不是ftp文件管理器窗口），能否禁用“上传文件”和“新建目录”按钮，仅留下“刷新”和“确认”、“取消”按钮！
2、代码调用ftp后，有时候，ftp选择文件窗口不显示刚刚上传的新文件，能否用代码实现ftp的刷新，实时显示最新文件目录！
-- 发布时间：2016/5/17 13:12:00
--
1、参考
| 下载信息 [文件大小：312.0 KB 下载次数：7] | |
 点击浏览该文件:动态修改foxtable窗口_例子.table |
2、截图说明哪里？不是有刷新按钮么？
-- 发布时间：2016/5/17 13:23:00
--
想通过代码方式刷新。
-- 发布时间：2016/5/17 13:28:00
--
你可以在计划管理那里执行代码
控件.PerFormClick
前提是你先看懂2楼的例子。
-- 发布时间：2016/5/17 14:07:00
--
Dim frm As Object = windows.Forms.Form.activeform
If frm IsNot Nothing Then
If frm.name = "Class235" Then
frm.controls("Button1").PerFormClick \'刷新按钮执行
End If
End If
但是，计划是按时间间隔执行的。如何只让它在打开远程文件选择窗口就是“class235”后执行一次就ok了。
-- 发布时间：2016/5/17 14:48:00
--
版主能否帮忙回答一下。
-- 发布时间：2016/5/17 14:57:00
--
参考代码
static pfrm As object = windows.Forms.Form.activeform
Dim frm As Object = windows.Forms.Form.activeform
If frm IsNot Nothing Then
If frm.name = "Class235" Then
frm.tag = Rand.NextDouble
If pfrm.tag <> frm.tag Then
msgbox(1)
frm.controls("Button1").PerFormClick \'刷新按钮执行
pfrm = frm
End If
End If
End If
-- 发布时间：2016/5/17 18:51:00
--
谢谢，可以实现。
-- 发布时间：2016/5/17 20:56:00
--
如何 隐藏 ftp选择远程文件窗口 中列出的 文件夹，只显示 文件？
-- 发布时间：2016/5/17 21:13:00
--
Dim frm As Object = windows.Forms.Form.activeform
If frm IsNot Nothing Then
If frm.name = "Class235" Then
Dim g As object = frm.controls("C1FlexGrid1")
For i As Integer = g.rows.count-1 To 0 Step -1
If g.rows(i)(2) = Nothing Then
g.rows(i).visible = False
End If
Next
End If
End If
[此贴子已经被作者于2016/5/17 21:14:32编辑过]