这是代码:

Dim s As String =e.Form.Controls("TextBox1").value

Dim s1 As String =e.Form.Controls("ComboBox1").value

Dim s2 As String = e.Form.Controls("TextBox3").value

Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")

Dim ftp1 As new  FTPClient

piv.FTPclient=ftp1

If ftp1.DirExists(s) Then

    ftp1.ChangeDir(s)

    Dim Files As List(of String) = piv.FtpClient.SelectFile()

    For Each File As String In Files

        piv.AddFile(File)

    Next

    Dim s3 As String = piv.SelectedItem

    If s3 IsNot Nothing Then

        s3=s3.trim(".jpg")

        Dim values() As String

        values=s3.split("-")

        For Index As Integer=0 To 1

            s1=value(0)

            s2=value(1)

        End If