treeview 问题，谢谢

hmilyhong 2005-11-03 11:21:02

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

...全文

126 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2005-11-03

打赏
举报

可以为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 当中的一个相等,自然不会加入.

winehero 2005-11-03

打赏
举报

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

winehero 2005-11-03

打赏
举报

'Form1上添加COmmand1、Timer计时器控件
'不过不知你这个NewUser (m_newuser) 什么时候改动

Option Explicit

Dim m_NewUser As String

Private 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 Sub

Private 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

weiweiplay 2005-11-03