在窗口中动态设置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
加好友 
发短信
Post By：2016/5/26 13:50:00 [只看该作者]
