甜甜帮帮忙 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

application.Doevents

Dim pb As WinForm.PictureBox

Dim ftp1 As New FtpClient

Dim fls As List(of String)

ftp1.Host="hl231083.happywinds.net"

ftp1.Account = "hl231083"

ftp1.Password = "L8QVedzj"

fls = ftp1.GetFileList("\web\" & e.Node.FullPath )

If fls.Count>0 Then

Dim count As Integer=IIF(fls.count>20,20,fls.count)

Dim l As Integer

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

lvw.StopRedraw() '暂停绘制

lvw.Rows.Clear() '清除原来的行

lvw.Images.Clear() '清除原来的图片

lvw.View = ViewMode.LargeIcon '显示模式为大图标

For i As Integer=0 To count-1

If ftp1.Download("\web\" & e.Node.FullPath & "\" & fls(i),"temp.jpg") = True Then

Dim Key As String ="temp.jpg"

lvw.Images.AddLargeImage(Key(i), Key)

Dim vr As WinForm.ListViewRow = lvw.Rows.Add()

vr.ImageKey = Key(i)

application.Doevents

l=l+1

Else

End If

lvw.ResumeRedraw() '恢复绘制

End If

If Not (pb.Image Is Nothing) Then '释放内存

pb.Image.Dispose()

pb.Image = Nothing

End If

不知道哪里错了...

呃，提示什么错？或者出现什么效果？

你用msgbox测试一下 http://www.foxtable.com/help/topics/1485.htm

索引超出了数组界限。..... 不知道为啥

下载信息 [文件大小：下载次数： ]
点击浏览该文件:231.zip

[此贴子已经被作者于2014-3-5 22:23:57编辑过]

测试了一下，改成这样，你的图片过多，可能会比较慢一些。

application.Doevents
Dim ftp1 As New FtpClient
Dim fls As List(of String)
ftp1.Host="hl231083.happywinds.net"
ftp1.Account = "hl231083"
ftp1.Password = "L8QVedzj"
fls = ftp1.GetFileList("\web\" & e.Node.FullPath )
If fls.Count>0 Then
    Dim count As Integer=IIF(fls.count>20,20,fls.count)
    Dim l As Integer
    Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
    lvw.StopRedraw() '暂停绘制
    lvw.Rows.Clear() '清除原来的行
    lvw.Images.Clear() '清除原来的图片
    lvw.View = ViewMode.LargeIcon '显示模式为大图标

    For i As Integer=0 To count-1
        If ftp1.Download("\web\" & e.Node.FullPath & "\" & fls(i),"temp.jpg") = True Then
            Dim Key As String ="temp.jpg"
            lvw.Images.AddLargeImage(i, Key)
            Dim vr As WinForm.ListViewRow = lvw.Rows.Add()
            vr.ImageKey = i
            application.Doevents
        Else

        End If
    Next
    lvw.ResumeRedraw() '恢复绘制
End If

主题：甜甜 帮帮忙

主题：甜甜帮帮忙