使用在一个方法中从另一方法创建的类实例

Question

我现在在这里忙于WinSCP几天了，而我所缺少的只是正确地“打开会话”。

在此Session被初始化。

Private Sub Loginbutton_Click(sender As Object, e As EventArgs) Handles Loginbutton.Click
    mySession = New Session()
    Dim mySessionOptions As New SessionOptions
    With mySessionOptions
        .Protocol = Protocol.Sftp
        .HostName = "192.168.0.247"
        .UserName = "usr"
        .Password = "pw"
        .SshHostKeyFingerprint = "ssh-rsa KEY"
    End With
    Using mySession As Session = New Session
        mySession.Open(mySessionOptions)
    End Using
    Form1.Show()

    Me.Close()
End Sub

在以下表单上，我需要再次使用Session ，在这里我使用了

Public Sub Open(ByVal sessionOptions As SessionOptions)
    Me.Show()

    For Each i As RemoteFileInfo In mySession.ListDirectory("/Database/").Files
        Objectlist1.Items.Add(i.Name)
    Next
    Objectlist1.Refresh()
End Sub

此权限在这里有效。 这似乎可以按要求打开会话。 但是我的问题出在哪里，我需要在同一窗体中多次打开会话，因为即使可能的话，它也不会保持打开状态。

我在应用程序中需要执行的其他任何操作均无法打开会话，因为我无法在线下进行多个“公共子打开”操作。 如果这里有WinSCP人员，我可以使会话保持活动状态，直到关闭应用程序吗？ 在同一表格上多次“打开会话”的聪明方法吗？

我很难解释。

例：
我有一个自动收录器/计时器，它刷新了位于表格1（Objectlist1）上的列表
它每5秒滴答一次。

这是使用的代码：

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick

    Objectlist1.Clear()
    For Each i As RemoteFileInfo In mySession.ListDirectory("/Database").Files
        Objectlist1.Items.Add(i.Name)
    Next
End Sub

问题是，当它打勾时，我得到Session未打开， System.InvalidOperationException基本上是.. Session未打开..现在，由于它以表格的形式进一步打开，我显然需要再次打开它？ 还是可以更改Public Sub Open(ByVal sessionOptions As SessionOptions)中的Public Sub Open(ByVal sessionOptions As SessionOptions) ，使其能够在整个表单中保持活动状态，或者？

有什么建议吗？

Answer 1

首先，您正在初始化一个大概是全局变量或类字段mySession ，正如您在Initialize Global Variable .Net中所建议的那样：

    mySession = New Session()

但是，然后您声明一个具有相同名称的局部变量（对于其余作用域隐藏了全局变量）：

    Using mySession As Session = New Session     

然后打开本地的 ：

        mySession.Open(mySessionOptions)

并立即关闭它 ：

    End Using

全局mySession 从未打开。

您需要做：

    mySession = New Session()

    mySession.Open(mySessionOptions)