Private Sub addListView()
Dim i As Integer '房间
For i = 1001 To 1050
ListView1.ListItems.Add , , "房间" & Str(i), 1, 1 '(要求对象)
Next
End Sub
郁闷!请问高手如何解决?
...全文
694打赏收藏
实时错误'242',要求对象。(ListView)
Private Sub Form_Load() addListView End Sub Private Sub addListView() Dim i As Integer '房间 For i = 1001 To 1050 ListView1.ListItems.Add , , "房间" & Str(i), 1, 1 '(要求对象) Next End Sub 郁闷!请问高手如何解决?