建站
咨詢
售后
建站咨詢
新聞中心
VB.NET使用Treeview實(shí)現(xiàn)貨品樹狀結(jié)構(gòu)分類
你這個(gè)要按照數(shù)據(jù)庫的查詢數(shù)據(jù)找出來根節(jié)點(diǎn)。Treeview增加一個(gè)節(jié)點(diǎn)。
創(chuàng)新互聯(lián)主營(yíng)愛輝網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,App定制開發(fā),愛輝h5成都微信小程序搭建,愛輝網(wǎng)站營(yíng)銷推廣歡迎愛輝等地區(qū)企業(yè)咨詢
然后根據(jù)根節(jié)點(diǎn)找出來所有子節(jié)點(diǎn)。再依次增加TreeView子節(jié)點(diǎn)。
然后逐個(gè)子節(jié)點(diǎn)進(jìn)行下一步查詢。再把結(jié)果刷新到TreeView子節(jié)點(diǎn)。
給你說說思路。你肯定會(huì)問怎么編程序。
那麻煩你上網(wǎng)到msdn查查Treeview的例子程序，自己學(xué)習(xí)改改看看。
如果你還堅(jiān)持要?jiǎng)e人幫你寫寫數(shù)據(jù)庫查詢的代碼，那你也可以移步msdn查找SQLServer數(shù)據(jù)庫查詢?nèi)绾螆?zhí)行按照關(guān)鍵字查詢。
VB.net怎么制作樹形菜單啊？
你說的“樹形菜單”是指下拉菜單（可以有子菜單）嗎？如果是，VB.net提供了MenuStrip控件，在工具箱里能找到，直接就在對(duì)應(yīng)位置打字就可以了，完全是“所見即所得”。
VB.net如何動(dòng)態(tài)獲取菜單欄中的菜單名并用樹型表示
添加：（先在加一個(gè)contextMenu,再它的添加子菜單的click事件編程）
Try
’使TreeView可以被編輯
TreeView1.LabelEdit = True
‘判斷你是不是選定的是不可編輯的節(jié)點(diǎn)，我這里工種節(jié)點(diǎn)不可以被編輯，只有工種下級(jí)的
各個(gè)工種名稱可以被編輯
If Trim(TreeView1.SelectedNode.Text) = "工種" Then
‘添加節(jié)點(diǎn)
AddNode = New TreeNode("請(qǐng)輸入新工種名字")
TreeView1.SelectedNode.Nodes.Add(AddNode)
TreeView1.ExpandAll()
AddNode.BeginEdit()
TreeView1.LabelEdit = True
NodeAdded = True
End If
Catch err As Exception
MsgBox(err.ToString)
End Try
刪除與添加類似，只是如果你的節(jié)點(diǎn)名字從其他處（如數(shù)據(jù)庫）得來，那么你還需要更新數(shù)據(jù)庫
編輯：
Private Sub TreeView1_BeforeLabelEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.NodeLabelEditEventArgs) Handles TreeView1.BeforeLabelEdit
TreeView1.LabelEdit = True ‘使可以編輯
AddNode = TreeView1.SelectedNode
End Sub
Private Sub TreeView1_AfterLabelEdit(ByVal sender As Object, ByVal e As System.windows.Forms.NodeLabelEditEventArgs) Handles TreeView1.AfterLabelEdit
Try
‘此時(shí)你改完了節(jié)點(diǎn)名字
TreeView1.SelectedNode.EndEdit(True)
If e.Label Is Nothing Then
'do nothing
ElseIf e.Node.Text = "工種" Then ‘工種不能改
e.CancelEdit() = True
‘e.Node.Text ，e.Label.ToString 一個(gè)是改前的名字一個(gè)是該后的名字，具體哪個(gè)對(duì)
哪個(gè)請(qǐng)查MSDN
ElseIf Trim(e.Node.Text) "工種" And e.Node.Text e.Label.ToString Then
If MsgBox("此操作會(huì)導(dǎo)致當(dāng)前工種中的所有人員的工種都被更改，是否確定？", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "警告") = MsgBoxResult.Yes Then
。。。。 ‘我的更改
MsgBox("更改成功！", MsgBoxStyle.OKOnly, "提示")
'Call InitTree() ‘有時(shí)要重新把treeview初始化一遍，視需求定
End If
End If
Catch err As Exception
MsgBox(err.ToString)
End Try
End Sub
其他：
擋treeview得到焦點(diǎn)時(shí)你可以使用ContextMenu，反之ContextMenu禁用
Private Sub TreeView1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeView1.GotFocus
TreeView1.ContextMenu = ContextMenu1
End Sub
Private Sub TreeView1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeView1.LostFocus
TreeView1.ContextMenu = Nothing
End Sub
注意：這里沒有在ContextMenu菜單添加“更改”項(xiàng)，而是直接更改：即左鍵單擊節(jié)點(diǎn)表示
選中，再單擊一下就可以編輯了，更改之后單擊他處就完成更改，和你在windows中更改文
件名字相似。
vb.net里樹狀圖怎么畫
很簡(jiǎn)單，在頁面上拖個(gè)treeview,可以直接給它實(shí)裝數(shù)據(jù)，運(yùn)行一下，就可展開。
分享題目：vb.net樹形列表 vb樹形控件
分享鏈接：http://www.dlmjj.cn/article/doocgjo.html
