在加載樹型目錄結構的程序中，每個目錄標題均有一個唯一的關鍵詞與之匹配，將這些關鍵詞作為條件的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
uj5u.com熱心網友回復：
最好是有哪位大神有空能加下我WX詳細講解 交學費
uj5u.com熱心網友回復：
weixin zjx19950702uj5u.com熱心網友回復：
逐行注釋如下：
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/57428.html
標籤：控件
上一篇：VS2013能用的畫圖控制元件，能畫出PLOT3()大致類似功能的
下一篇：求EXCEL鎖定工具列方法