VB编程:在Texe1中输入一个值,如果TreeView中有这个值就让它加亮显示出来...

发布网友 发布时间：2024-02-25 01:12

我来回答

共2个回答

热心网友 时间：2024-08-22 10:19

我来说两句

首先,TreeView控件是不能绑定到数据库的,因为它没有DataSource属性,楼主没搞明白TreeView节点上的数据是在运行中加载上去的,把它和表格控件视为一样了.

其次,楼主也没说清他的数据表结构,任何人也无法给出向TreeView加入数据的代码,因为加入到TreeView上的数据是分结构的,有些数据彼此之间有从属关系,无法象数据绑定控件那样任意加载.

下面一段代码楼主试试,如果要和你的数据"绑定",请写出你的表结构.

Private Sub Command1_Click()

Dim my_text As String

    my_text = Text1.Text

    For i = 1 To TreeView1.Nodes.Count

        If my_text = TreeView1.Nodes(i).Text Then

           TreeView1.Nodes(i).Selected = True

           TreeView1.SetFocus

        End If

    Next

End Sub

Private Sub Form_Load()

  '添加 Node 对象。

   Dim nodX As Node    '声明 Node 变量。

   Set nodX = TreeView1.Nodes.Add(, , "R", "根节点")

   '下一个节点是节点 1 ("根节点") 的子节点。

   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "A", "A节点")

下一个节点是节点 2 ("A节点") 的子节点。

   Set nodX = TreeView1.Nodes.Add("A", tvwChild, "A1", "A次节点1")

   Set nodX = TreeView1.Nodes.Add("A", tvwChild, "A2", "A次节点2")

   Set nodX = TreeView1.Nodes.Add("A", tvwChild, "A3", "A次节点3")

   Set nodX = TreeView1.Nodes.Add("A", tvwChild, "A4", "A次节点4")

   '下一个节点是节点 1 ("根节点") 的子节点。

   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "B", "B节点")

 '下一个节点是节点 8 ("B节点") 的子节点

   Set nodX = TreeView1.Nodes.Add("B", tvwChild, "B1", "B次节点1")

   Set nodX = TreeView1.Nodes.Add("B", tvwChild, "B2", "B次节点2")

   Set nodX = TreeView1.Nodes.Add("B", tvwChild, "B3", "B次节点3")

   Set nodX = TreeView1.Nodes.Add("B", tvwChild, "B4", "B次节点4")

   For i = 1 To TreeView1.Nodes.Count

       TreeView1.Nodes(i).EnsureVisible

   Next

End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

 Text2.Text = Node.Text

End Sub

热心网友 时间：2024-08-22 10:17