請教各位
我用
....NodeClick(ByVal Node As Node)
If Node.Key = "Func1" Then frmFunc1.Show
....
當我點到那一個節點,我的frmFunc1就跑出來了
那麼我想問的是
我可以設定NodeDblClick嗎(裡面沒有這個指令)
也就是說,我想要的是
當我點二下那個,我的frmFunc1才讓它出現
請問我該如何做呢,
謝謝各位
我用
....NodeClick(ByVal Node As Node)
If Node.Key = "Func1" Then frmFunc1.Show
....
當我點到那一個節點,我的frmFunc1就跑出來了
那麼我想問的是
我可以設定NodeDblClick嗎(裡面沒有這個指令)
也就是說,我想要的是
當我點二下那個,我的frmFunc1才讓它出現
請問我該如何做呢,
謝謝各位
文章標籤
全站熱搜
阿斯 我按照以下這code試過是可以的，不知道你的行不行 Private Sub tvwDemo_NodeDblClick(ByVal Node As MSComctlLib.Node) If Node.Checked Then lblNodeClick.Caption = Node.Text & "[Checked]" Else lblNodeClick.Caption = Node.Text End If End Sub Private Sub tvwDemo_NodeCheck(ByVal Node As MSComctlLib.Node) tvwDemo_NodeDblCNodeDblClicklick Node End Sub 本身是沒有NodeDblClick，強行加上，你試試看吧
謝謝你 我將這個Code貼上去,但是點二下沒有動靜, 我將CheckBox=True也不行 上面那一段NodeCheck怪怪的 我改成 Private Sub tvwMenu_NodeDblClick(ByVal Node As MSComctlLib.Node) Beep End Sub Private Sub tvwMenu_NodeCheck(ByVal Node As MSComctlLib.Node) tvwMenu_NodeDblClick Node End Sub 它還是沒有Beep聲 我的OS是Win 2000 Pro 謝謝你的幫忙
阿斯 我再給整段code你，是摘之阿柳的書‧ Private Sub cmdExit_Click() End End Sub Private Sub Form_Load() tvwDemo.ImageList = imlImage tvwDemo.Style = tvwTreelinesPlusMinusPictureText lblNodeClick.Caption = "Root1" InitData End Sub Private Sub InitData() tvwDemo.Nodes.Add , , , "Root1", 1, 2 tvwDemo.Nodes.Add 1, 4, , "Child1", 3 tvwDemo.Nodes.Add 1, 4, , "Child2", 3 tvwDemo.Nodes.Add 1, 4, , "Child3", 1, 2 tvwDemo.Nodes.Add 4, 4, , "Child4", 3 tvwDemo.Nodes.Add , , , "Root2", 1, 2 tvwDemo.Nodes.Add 6, 4, , "Child1", 3 End Sub 你再把這三段加上去看看
很謝謝你 我試了將這二段結合起來 還是沒反應 要在CheckBox那裡打勾,才會有反應 請問,是否還有其它的類似元件,可以支援DblClick的呢 因為我想試的是,一個樹狀目錄,點二下,可以依照所點的位置,開啟相對應的表單 謝謝你
剛試了.....DblClick(),不含節點的 這樣子也可以達到我的需求了 Private Sub tvwMenu_DblClick() If tvwMenu.SelectedItem.Key = "Func1" Then .................. 謝謝各位的幫忙