VB TreeView 搜索节点问题

2010-01-20 07:50:40 196 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

vincent343425185 墨衍会员 · AI 创作全网分发关注 + 加入社区

VB.net遍历搜索Treeview，找到符合字符串条件的节点 ListView,Treeview 阅读详情

我弄了个搜索框，根据节点名称搜索。
如何能迅速的搜索到节点，并且定位到搜索到的节点。
不知道有没，模糊搜索，就是输入开始几个拼音就提示出相关节点名称。

节点中的Key好像满足不了我的要求，TreeView中数据从xml中读取！

...全文

三小时学会 VB6.0 应运程序 TreeView控件的使用能不能掌握控件的使用，是业余向准专业进步的关键。虽然我本人不太喜欢用控件，因为基于不同的操作环境成品后效果很难保证。但有些成熟控件，会使用还是能提高软件水平。比如TREEVIEW控件，TREEVIEW控件，也叫树控件，主要用于层级显示和控制，应用广泛。我一直很想学习这个控件的使用，但每次都没有学成，总感觉很难。前几天有空，狠下心来将论坛搜索一遍，发现也不是太难，在很短时间内只要方法得当，很快可以掌阅读详情

vincent343425185

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

倒大霉的上帝 2010-01-21

打赏
举报

理论上楼主想要这个。
http://topic.csdn.net/u/20090831/08/ed3bc4ca-a9ba-4987-be21-f39e242d8d48.html

kongxw 2010-01-21

打赏
举报

可以自己写一个不过在VB下完成此功能的话有点占用资源

vincent343425185 2010-01-21

打赏
举报

谢谢老张！
请教下如果想输入：
1就出现下拉菜单

123
132
141

也支持中英文
如此有现成的控件吗？
还是自己写。。。

vincent343425185 2010-01-21

打赏
举报

楼上的没多大用处。。。。。ＴＨＸ了先

SYSSZ 2010-01-20

打赏
举报

Private Sub serach(ByVal s As String)

For I = 1 To TreeView1.Nodes.Count

If TreeView1.Nodes(I).Text = s Then

TreeView1.Nodes(I).Selected = True

TreeView1.Nodes(I).BackColor = vbRed

  Exit For

  End If

Next

End Sub



Private Sub Command1_Click()

serach "Child 12"

End Sub



Private Sub Form_Load()

  Dim nodX As Node

   Set nodX = TreeView1.Nodes.Add(, , "R", "Root")

   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1")

   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2")

   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3")

   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4")

   Set nodX = TreeView1.Nodes.Add("C1", tvwChild, "C11", "Child 11")

   Set nodX = TreeView1.Nodes.Add("C1", tvwChild, "C12", "Child 12")

   Set nodX = TreeView1.Nodes.Add("C12", tvwChild, "C121", "Child 121")

   Set nodX = TreeView1.Nodes.Add("C1", tvwChild, "C13", "Child 13")

   Set nodX = TreeView1.Nodes.Add("C2", tvwChild, "C21", "Child 21")

   Set nodX = TreeView1.Nodes.Add("C2", tvwChild, "C22", "Child 22")



   nodX.EnsureVisible

   TreeView1.Style = tvwTreelinesText ' Style 4.

   TreeView1.BorderStyle = vbFixedSingle

End Sub

孤独剑_LPZ 2010-01-20

打赏
举报

dim s$,s1$,i%,j%
s1= text1.text
for i=1 to TreeView1.Nodes.Count
s= TreeView1.Nodes.Item(i).Text
j= instr(s,s1)
if j>0 then
debug.print s '提示匹配节点名称
Tre1.Nodes.Item(j).Selected =True
exit for
end if
next

帝企鹅已被占用 2010-01-20

打赏
举报

和key没关系。
和哪里读的没关系。

你想怎么提示？

VB TreeView 搜索节点问题

相关推荐