关于listview的几个常见问题。

Question

1. dim LI as listitem
   set LI=listview1.listitems.add ,,"col 1"
   LI.listsubitems(1).text= "col 2"
   ...

Answer 1

可以用遍历的方法比如想找到名字为"hello"的成员
for i=1 to listview1.listitems.count
    if listview1.listitems.item(i).text="hello" then
    msgbox"找到了,该元素为第" & i "个"
    exit for
    end if
next

Answer 2

2. 用API SendMessage，送什么消息忘记掉了:(
3. forecolor属性啊
4. listview1.listitems(0).delete
   再添加，用2来使滚动条往下

Answer 3

2请老兄想一想。
3listview1.listitems(0).forecolor为什么只能对第一列起作用，改变其他列好象还要用api函数。
4delete不支持的。

Answer 4

2:Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_VSCROLL = &H115
Private Const EM_SCROLL = &HB5Private Const SB_PAGEDOWN = 3
Private Const SB_PAGELEFT = 2
Private Const SB_PAGERIGHT = 3
Private Const SB_PAGEUP = 2
Private Const SB_LINEDOWN = 1
Private Const SB_LINELEFT = 0
Private Const SB_LINERIGHT = 1
Private Const SB_LINEUP = 0
Private Const SB_THUMBPOSITION = 4
Private Const SB_THUMBTRACK = 5
Private Const SB_TOP = 6
Private Const SB_BOTTOM = 7
Private Const SB_ENDSCROLL = 8Private Const LVM_FIRST = &H1000
Private Const LVM_SCROLL = (LVM_FIRST + 20)
Private Sub Command1_Click()
    Dim i As Integer
    
    For i = 0 To 100
        ListView1.ListItems.Add , , CStr(i)
    Next
End SubPrivate Sub Command2_Click()
    SendMessage ListView1.hwnd, WM_VSCROLL, SB_BOTTOM, ByVal 0&
End Sub

Answer 5

4.用remove方法
  listview1.listitems.remove 0
3.有点麻烦
    ListView1.ListItems(10).ForeColor = vbRed
    ListView1.ListItems(10).ListSubItems.Add , , "aa"
    ListView1.ListItems(10).ListSubItems(1).ForeColor = vbRed
您还有修改每个subitem的forcolor

Answer 6

4.用remove方法
  listview1.listitems.remove 0
3.有点麻烦
    ListView1.ListItems(10).ForeColor = vbRed
    ListView1.ListItems(10).ListSubItems.Add , , "aa"
    ListView1.ListItems(10).ListSubItems(1).ForeColor = vbRed
您还有修改每个subitem的forcolor

Answer 7

2.dim xItem as ListItem
  set xitem=ListView1.ListItems.add()
  xitem.text="111"
  xitem.subitem(1)="222"
  xitem.ensurevisible