主题：[求助]ListView 大图标分页显示

 那你现在哪里有问题？请做个具体的例子说明。

 afterload代码 和 显示按钮的代码

 

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim pg As Integer = e.Form.Controls("Label1").Text
lvw.CheckBoxes = True
systemready = False
Dim idx1 As Integer = (pg - 1) * 5 '获取要显示的第一行
Dim idx2 As Integer = pg * 5 - 1  '获取要显示的最末行
idx2 = Math.Min(DataTables(Vars("表A")).dataRows.Count -1,idx2) 'idx2不能超过表的最大行数

lvw.StopRedraw() '暂停绘制
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
lvw.View = ViewMode.LargeIcon '显示模式为大图标
lvw.Images.LargeSize = New Size(150,100) '定义大图标尺寸
For idx As Integer = idx1 To idx2
    Dim dr As Row = Tables(Vars("表A")).Rows(idx)
    Dim Key As String = dr("图片") '获取此员工的照片文件
    lvw.Images.AddLargeImage(Key,Vars("IP") & Key) '添加照片,直接用文件名作为图片键值
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
    vr.Text = dr("第一列") & dr("图片")   '设置标题
    vr.ImageKey = Key '设置图片键值
    vr.Tag = dr
Next
lvw.ResumeRedraw() '恢复绘制
systemready = True

 If pg > 1 Then
    lbl.Text =  pg - 1
Else
    MessageBox.Show("已经到顶了")
End If

 

If pg < pgs  Then
    lbl.Text = pg + 1
Else
    MessageBox.Show("已经到底了")
End If

 这段代码不会报这个错。

 窗口1不要设置成自动打开，然后在afterOpenProject加入代码打开 Forms("窗口1").open

 1、不要设置窗口为自动打开，就没有问题。