Question

我在表单上有5个列表框，所有这些列表框的顶部都有一个空的“标题”（由细线分隔）。这些属性看起来与没有“标题”的其他形式的属性相同。列表框是在窗体上预定义的，可以从应用程序以编程方式加载，而不使用Rowsource方法。 Columnheads属性设置为False。如何删除空标题？我没注意到什么？

编辑：附加源，尽管它看起来与用于加载看起来不错的所有其他列表框的所有其他代码相同。

Private Sub LoadNamesP(lbThis As Object, aNames() As String)

Dim k As Long             ' aux

If lbThis Is Nothing Then
    Debug.Print "No input, cannot load, exit"
    Exit Sub
End If

If Not lbThis.Visible Then
    Debug.Print lbThis.Name & "is hidden, cannot load, exit"
    Exit Sub
End If

Debug.Print "Loading list " & lbThis.Name

lbThis.Clear

For k = LBound(aNames) To UBound(aNames)
    lbThis.AddItem aNames(k)
Next k

End Sub

空列标题的列表框

0 个答案: