TreeView控制項的雙擊事件

來源:互聯網
上載者:User
treeview|控制項 本例實現雙擊節點,彈出對話方塊並顯示節點資訊

先對treeview1加入些資料,代碼如下:

Sub Example()

Dim N As New TreeNode, I As Integer, J As Integer

For I = 0 To 3

With N.Nodes.Add((I * 15).ToString & "-" & ((I + 1) * 15 - 1).ToString)

For J = 0 To 14

.Nodes.Add((J + I * 15).ToString)

Next

End With

Next

Dim NodeToAdd As TreeNode

For I = 1 To 24

NodeToAdd = N.Clone

NodeToAdd.Text = I.ToString

TreeView1.Nodes.Add(NodeToAdd)

Next

End Sub



在Treeview1_click事件中加入如下代碼:



Dim N As TreeNode = CType(sender, Windows.Forms.TreeView).SelectedNode

'//如果樹節點不為0,則顯示提示資訊,

If N.GetNodeCount(False) = 0 Then

'//當前節點的文本字元

Dim S As String = N.Text

'//如果字元長度為1,則在前而加0

If S.Length = 1 Then

S = S.Insert(0, "0") '//指定位置插入字元

End If

'//上一樹節點的字元加當前節點字元

S = N.Parent.Text & ":" & S

‘//當然你還可以顯示再上級節點的字元

‘//代碼就變為:S=N.Parent.Parent.Text & “:” & S

MessageBox.Show("你選擇的節字元是: " & S)

End If



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。