这是代码:
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
加好友 
发短信
Post By：2013/9/9 16:36:00 [显示全部帖子]
Post By：2013/9/9 16:57:00 [显示全部帖子]
