VB小白求教-如何实现点击Treeview的子节点，能够在richtextbox中加载同子节点名字一样的word

[lalalazjx]

在加载树型目录结构的过程中，每个目录标题均有一个唯一的关键词与之匹配，将这些关键词作为条件的Key，当
node Click事件发生时，所有关键词都有匹配，即当用户点击相应的标题时，与之相对应的文本将在Rich Textbox中显示出来

另附一段他人的代码，但是小白看不懂

Private Sub TreeView1_Click() 
      If Dir(App.Path & "\文件\" & Tree View1.Selected Item & ".rtf") = "" Then 
           Rich Text Box1(0).Text = ""
      Else 
           Rich Text Box1(0).File Name = App.Path & "\文件\" & Tree View1.Selected Item & ".rtf" 
      End If 
 End Sub

[lalalazjx]

最好是有哪位大神有空能加下我WX详细讲解 交学费

[lalalazjx]

weixin zjx19950702

[脆皮大雪糕]

逐行注释如下：

Private Sub TreeView1_Click()  
'树的节点被点击,激发事件进入该过程
      If Dir(App.Path & "\文件\" & Tree View1.Selected Item & ".rtf") = "" Then 
      '在程序所在路径下的“文件”子目录里，如果不存在以树节点显示的文字为文件名 .rtf为扩展名的文件
           Rich Text Box1(0).Text = ""
           '那么textbox里显示空
      Else 
      '否则（也就是相应的文件存在）
           Rich Text Box1(0).File Name = App.Path & "\文件\" & Tree View1.Selected Item & ".rtf" 
           'richedit打开该文件进行显示
      End If 
 End Sub