麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 想問如何觸發TreeView的命令? [打印本頁]

作者: StanleyVic 時間: 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

作者: uf023630 時間: 2013-12-1 14:37

將Treeview.item 改成 selectedItem 這樣就可以了

Private Sub TreeView1_DblClick()
TextBox1.Value = TreeView1.SelectedItem.Text
End Sub

複製代碼

作者: c_c_lai 時間: 2013-12-1 15:16

回復 2# uf023630
請教一下，在執行時出現型態為定義 (Node)，
是哪兒須加定義？謝謝你！

作者: StanleyVic 時間: 2013-12-2 11:56

回復 2# uf023630

HOHO~謝謝你的提醒..真是當局者迷!!^^

作者: uf023630 時間: 2013-12-2 13:03

回復 3# c_c_lai
工具--設定引用項目--將 " Microsoft Windows Common Controls 6.0 (SP6)" 勾選即可

作者: c_c_lai 時間: 2013-12-2 16:22

回復 c_c_lai
工具--設定引用項目--將 " Microsoft Windows Common Controls 6.0 (SP6)" 勾選即可
uf023630 發表於 2013-12-2 13:03

Microsoft Windows Common Controls 6.0 (SP6) MISSING!
(找不到呢！)

作者: c_c_lai 時間: 2013-12-2 16:25

回復 5# uf023630
作業系統我是使用 Win7, 以及
Office 2010 版本。

作者: GBKEE 時間: 2013-12-2 16:56

本帖最後由 GBKEE 於 2013-12-2 16:58 編輯

回復 7# c_c_lai
2003 Microsoft Windows Common Controls 6.0 (SP6) 也找不到ㄚ但.
如圖1

[attach]16927[/attach]

執行一次表單,在圖2就出現

[attach]16928[/attach]

作者: c_c_lai 時間: 2013-12-2 17:27

回復 8# GBKEE
感謝！終於知道如何建置了，再次言謝！
[attach]16929[/attach]
[attach]16930[/attach]

作者: c_c_lai 時間: 2013-12-2 17:41

回復 1# StanleyVic
如 uf023630 大大所言，將Treeview.item 改成 selectedItem 就可以了。

Private Sub TreeView1_Click()
TextBox1.Value = TreeView1.SelectedItem.Text
End Sub

複製代碼

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)