treeview 问题，谢谢

Question

用户
  User1
  User2
  User3
  User4
  User5
 我要定时刷新 TreeView，刷新的时候判断 NewUser 的值是否与User1、User2、User3、User4、User5 当中的一个相等，如果等于，那么不把NewUser 加到 TreeView 当中，如果不相等就加到TreeView当中。
  这个比较的过程怎么实现？也就是怎么把User1、User2、User3、User4、User5的值读出来？ 
  谢谢！

Answer 1

'Form1上添加COmmand1、Timer计时器控件
'不过不知你这个NewUser (m_newuser) 什么时候改动Option ExplicitDim m_NewUser As StringPrivate Sub Form_Load()
    With TreeView1
        .Nodes.Add , , , "User1"
        .Nodes.Add , , , "User2"
        .Nodes.Add , , , "User3"
        .Nodes.Add , , , "User4"
        .Nodes.Add , , , "User5"
    End With
    Timer1.Interval = 2000
    Timer1.Enabled = True
    m_NewUser = "NewUser"
End SubPrivate Sub Timer1_Timer()    
    Dim i As Integer
    For i = 1 To TreeView1.Nodes.Count
        If m_NewUser = TreeView1.Nodes(i).Text Then Exit For
    Next i
    If i > TreeView1.Nodes.Count Then Exit Sub
    TreeView1.Nodes.Add , , , m_NewUser
End Sub

Answer 2

SRY，上面Timer事件中那个判断应该是<=,不是>,呵呵,有点晕~~
if i<=TreeView1.Nodes.Count Then Exit Sub

Answer 3

可以为User1、User2、User3、User4、User5设置KEY值.Private Sub Form_Load()
On Error Resume Next
TreeView1.Nodes.Add , , user1, user1
TreeView1.Nodes.Add , , user2, user2
TreeView1.Nodes.Add , , user3, user3
TreeView1.Nodes.Add , , user4, user4
TreeView1.Nodes.Add , , user5, user5
TreeView1.Nodes.Add , , newuser, newuser
End Sub如果NewUser 的值与User1、User2、User3、User4、User5 当中的一个相等,自然不会加入.

Answer 4

设置KEY值比较好，如果树中的不同层下有相同的条目那么一楼的方法就不行了