Listview 选择树视图的子节点时没有触发器

我的表单的

TreeView

有一个问题：这不会触发对子节点的单击，这会填充我的文本框

以下是

树视图的代码。单击
事件：

Private Sub TreeView1_Click(sender As Object, e As EventArgs) Handles TreeView1.Click

        Dim ffn As Integer
        Dim bibliotheque As New article
        Dim NombreDeLignes As Integer
        Dim node As New TreeNode
        Dim ID As Long

        TreeView1.SelectedNode = TreeView1.GetNodeAt(TreeView1.PointToClient(Cursor.Position))

        If TreeView1.SelectedNode.Level = 0 Then Return

        MessageBox.Show(TreeView1.SelectedNode.Index & " " & TreeView1.SelectedNode.Text)

        If ListView1.SelectedItems.Count > 0 Then

            NombreDeLignes = ListView1.SelectedIndices(0)
            OuvrirFichier = My.Application.Info.DirectoryPath & "\Librairies\" & ListView1.Items(NombreDeLignes).Text

            ID = TreeView1.SelectedNode.Index

            ffn = FreeFile()

            FileOpen(ffn, OuvrirFichier, OpenMode.Random, OpenAccess.Read, , Len(bibliotheque)) '5635

            Seek(ffn, ID)

            FileGet(ffn, bibliotheque, ) 

            TextBox2.Text = bibliotheque.Title
            TextBox1.Text = bibliotheque.Name
            TextBox4.Text = bibliotheque.Charge
            TextBox15.Text = bibliotheque.Institute
            TextBox5.Text = bibliotheque.Celebration
            TextBox7.Text = bibliotheque.Birth
            TextBox9.Text = bibliotheque.Death
            TextBox13.Text = bibliotheque.Otherparties
            TextBox18.Text = bibliotheque.Othernames
            TextBox23.Text = bibliotheque.Venerable
            TextBox24.Text = bibliotheque.Beatified
            TextBox25.Text = bibliotheque.Canonized
            TextBox26.Text = bibliotheque.Heading
            TextBox28.Text = bibliotheque.Patron
            TextBox29.Text = bibliotheque.Link
            TextBox31.Text = bibliotheque.Biography
            PictureBox1.ImageLocation = bibliotheque.Image

            FileClose(ffn)

        End If

    End Sub

你能帮我吗