为什么list控件只能载入32736行？？？

Question

是这样的吗？

Answer 1

晕，找到了答案
“ListBox 无法超过上述限制, 原因是 ListIndex 为 Integer 限制, 其次
是 ListBox考虑实际需求, 没有必要超过, 因为 User 没办法从那么多格
选出要的东西!
”
那怎么办呢？help me

Answer 2

用SendMessage发送LB_ADDSTRING消息来添加你的项

Answer 3

'用listview模拟
'机器不好别试,会死机的:P
Private Sub Form_Load()
    Dim itemx As ListItem
    With ListView1
        .View = lvwList
        .ColumnHeaders.Add , , "序号"
        .FullRowSelect = True
        .HideColumnHeaders
        .MultiSelect = True
        
        Dim i As Long
        For i = 1 To 65535
            Set itemx = .ListItems.Add(, , CStr(i))
        Next
    End With
End Sub

Answer 4

.HideColumnHeaders
属性的使用无效呀，朋友