在afterLoad事件统一执行下面的代码,如
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")piv.FTPclient = vars("myFtp")
在afterOpenProject事件,执行下面代码
Dim ftp As New FTPClientftp.host="192.168.128.143"ftp.Account = "yinsha"ftp.password = "128168909"
vars("myFtp") = ftp