返回列表下一主題上一主題發帖

[發問] 想問如何觸發TreeView的命令?

StanleyVic

中學生 Rank: 2

帖子: 47
主題: 6
精華: 0
積分: 74
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2011-6-15
最後登錄: 2016-7-4

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-11-30 12:21 | 顯示全部帖子

[發問] 想問如何觸發TreeView的命令?

各位太太好.
本人在Userform 建立了一個TreeView, 及一個 Textbox1.
現在TreeView1的代碼己經定義好了,但我想當我點擊子目錄時, textbox1.value可以出現子目錄的名稱.
請問我該如何做呢?

我開始以為這樣就可以..但報錯..,請指教.
Private Sub TreeView1_Click()
TextBox1.Value = Treeview1.item.value.
End Sub

Private Sub UserForm_Initialize()
Dim nodX As Node
With Me.TreeView1
With .Nodes
      .Add , , "L1", "Root"
         .Add "L1", tvwChild, "L11", "1"
         .Add "L1", tvwChild, "L12", "2"
            .Add "L11", tvwChild, "L111", "3"
            .Add "L12", tvwChild, "L121", "4"
            .Add "L12", tvwChild, "L122", "5"

   ' .Add , , "L2", "Stanley"

      .Item("L122").EnsureVisible
      .Item("L111").EnsureVisible
End With
.Style = tvwTreelinesPlusMinusText
End With
End Sub