以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  动态设置PictureViewer中的当前路径出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85467)
--  作者：kao_go
--  发布时间：2016/5/26 13:50:00
--  动态设置PictureViewer中的当前路径出错
在窗口中动态设置PictureViewer的当前路径，窗口中显示是正常的，可是通过【管理】打开ftp远程文件管理的时候，始终显示窗口第一次打开的路径，不会切换成设置的当前路径
    Dim tupian As WinForm.PictureViewer = e.Form.Controls("tupian")
    Dim fujian As WinForm.FileManager = e.Form.Controls("fujian")

   Dim ftp As New FTPClient
    ftp.host=dizhi  \'ftp服务器地址
    ftp.Account = yonghu \'ftp服务器登陆用户名
    ftp.password = mima \'ftp服务器登陆密码
    ftp.Port= duankou \'ftp服务器端口号
    ftp.TimeOut = cssj      \'连接超时时间
    ftp.UTF8  = utf8
    tupian.AutoCopyAttachFile   = zdfz
    tupian.AutoDeleteAttachFile   = zdsc
    tupian.AutoUpdate = zdgx
    fujian.AutoCopyAttachFile   = zdfz
    fujian.AutoDeleteAttachFile   = zdsc
    fujian.AutoUpdate = zdgx

    If ftp.DirExists("/"+mulu) = False Then \'新增目录
        ftp.MakeDir("/"+mulu)    \'新增目录
        ftp.RootDir=("/"+mulu)    \'设置根目录
        ftp.ChangeDir("/"+mulu)   \'设置当前目录
    Else
        ftp.RootDir=("/"+mulu)    \'设置根目录
        ftp.ChangeDir("/"+mulu)    \'设置当前目录
    End If
    If ftp.Connect Then \'连接FTP
        tupian.FTPclient = ftp \'如果连接成功,打开FTP客户端ftp.OpenManager() ,这里只赋值 就好了,通过图片和文件浏览器浏览文件
        fujian.FTPclient = ftp \'如果连接成功,打开FTP客户端ftp.OpenManager() ,这里只赋值 就好了,通过图片和文件浏览器浏览文件
    Else
        Messagebox.show("连接FTP失败,图片和文档无法打开,请联系管理员!","警 告",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    End If
--  作者：大红袍
--  发布时间：2016/5/26 14:45:00
--  

这个是bug，把管理按钮隐藏掉，然后你单独做一个管理按钮吧。

 

如果要把管理按钮弄在控件里面，也可以，参考

 

Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
pv.ManagerCommand.Visible = False

Dim lbl As New Windows.Forms.LinkLabel
lbl.Text = "管理"
lbl.ForeColor = Color.Blue
lbl.Font = New Font("宋体",9,FontStyle.Underline)
lbl.dock = 1
Dim obj As object = e.Form.Controls("PictureViewer1").basecontrol.Controls(0)
obj.panel2.controls("FlowLayoutPanel2").Controls.Add(lbl)

 

绑定事件参考　http://www.foxtable.com/help/topics/2374.htm