.net XPTable don'；不显示所有行

大家好，我是新来的。我有一个问题，我正在构建一个Vb.Net聊天程序，我需要实现一个聊天列表视图，就像Skype聊天列表视图或Facebook聊天列表视图一样，我不能使用.Net默认列表视图，因为所有行都应该具有相同的高度，所以它不能显示我在web上找到的不同大小的消息XPTable很酷，但它不会显示所有的信息行最后一行不能滚动，所以如果有人能帮我找到一个控件来显示聊天信息，或者甚至帮我使用XPTable，我会很感激我被困了3个月。

---

请原谅，我的英语很差，正在等待答复。这是我填写表格的代码

Private Sub fillChat(ByVal messageList As List(Of ChatExtraData))

    If messageList.Count > 0 Then

        table.BeginUpdate()
        table.EnableWordWrap = True
        table.SelectionStyle = SelectionStyle.Grid
        table.GridLines = GridLines.Rows

        Dim col1 As TextColumn = New TextColumn("", 200)

        table.ColumnModel = New ColumnModel(New Column() {col1})

        Dim model As TableModel = New TableModel()
        Dim cpt As Integer = 0
        For Each msg In messageList

            Try
                Dim precedentMsg As Row = model.Rows.Item(cpt - 1)
                Dim messagePrecedent As ChatExtraData = precedentMsg.Tag

                If (msg.senderId <> messagePrecedent.senderId) Then
                    Dim header As Row = addHead(msg.HeaderText, msg)
                    model.Rows.Add(header)
                End If
            Catch ex As Exception
                Dim header As Row = addHead(msg.HeaderText, msg)
                model.Rows.Add(header)
            End Try

            Dim ligne As Row = addMsg(msg.MinorText, msg)

            model.Rows.Add(ligne)
            cpt = cpt + 1
        Next

        messageList.Clear()
        table.TableModel = model
        table.EndUpdate()

    End If

End Sub

Function addMsg(ByVal txt As String, ByVal extra As ChatExtraData) As Row
    Dim row As Row
    Dim cell As Cell

    row = New Row()
    Dim texte As String = HttpUtility.UrlDecode(txt)

    cell = New Cell(texte)
    cell.WordWrap = True          
    row.Cells.Add(cell)
    'row.Font = New Font("Segoe UI Light", 12, FontStyle.Regular)
    'row.ForeColor = Color.Gray
    row.Tag = extra
    Return row
End Function

'function for adding sender name and datetime
Function addHead(ByVal txt As String, ByVal extra As ChatExtraData) As Row
    Dim row As Row
    Dim cell As Cell

    row = New Row()
    cell = New Cell(txt)
    cell.WordWrap = False          
    row.Cells.Add(cell)
    row.Font = New Font("Segoe UI Light", 8, FontStyle.Bold)
    row.ForeColor = Color.FromArgb(255, 20, 133, 227)
    row.Tag = extra
    Return row
End Function

Private子fillChat（ByVal messageList作为列表（ChatExtraData））
如果messageList.Count>0，则
表1.BeginUpdate（）
table.EnableWordWrap=True
table.SelectionStyle=SelectionStyle.Grid
table.GridLines=GridLines.Rows
Dim col1 As TextColumn=新TextColumn（“，200”）
table.ColumnModel=新ColumnModel（新列（）{col1}）
作为TableModel的Dim模型=新TableModel（）
将cpt设置为整数=0
对于messageList中的每个消息
尝试
Dim PRECENTMSG As Row=model.Rows.Item（cpt-1）
Dim messageprevention As ChatExtraData=prevenntmsg.Tag
如果（msg.senderId messagepreference.senderId），则
作为行的Dim头=添加头（msg.HeaderText，msg）
model.Rows.Add（标题）
如果结束
特例
作为行的Dim头=添加头（msg.HeaderText，msg）
model.Rows.Add（标题）
结束尝试
Dim ligne As Row=addMsg（msg.MinorText，msg）
model.Rows.Add（ligne）
cpt=cpt+1
下一个
messageList.Clear（）
table.TableModel=模型
表1.EndUpdate（）
如果结束
端接头
函数addMsg（ByVal txt作为字符串，ByVal extra作为ChatExtraData）作为行
将行变暗为行
作为细胞的暗淡细胞
行=新行（）
Dim texte As String=HttpUtility.UrlDecode（txt）
单元格=新单元格（文本）
cell.WordWrap=True
行.单元格.添加（单元格）
'row.Font=新字体（“Segoe UI Light”，12，FontStyle.Regular）
'row.ForeColor=Color.Gray
row.Tag=额外
返回行
端函数
'用于添加发件人名称和日期时间的函数
函数addHead（ByVal txt作为字符串，ByVal extra作为ChatExtraData）作为行
将行变暗为行
作为细胞的暗淡细胞
行=新行（）
单元格=新单元格（txt）
cell.WordWrap=False
行.单元格.添加（单元格）
row.Font=新字体（“Segoe UI Light”，8，FontStyle.Bold）
row.ForeColor=Color.FromArgb（255、20、133、227）
row.Tag=额外
返回行
端函数

它的作品，但正如我所说的一些项目是不可见的，我不能滚动到他们这里附加了一个屏幕截图

很抱歉回答了我自己的问题，我还没有找到另一种方式来发布代码和图像。

---

等待帮助

欢迎使用堆栈溢出！请通过阅读了解我们对此处问题的期望。请注意，我们这里不提供从头开始的编码服务。请告诉我们您已经尝试了什么，它是如何失败的，我们可能会提供帮助。