如何用vb處理樹形結(jié)構(gòu)

樹狀結(jié)構(gòu)使用treeview實(shí)現(xiàn)，控件添加方法：右擊“工具箱”-“部件”-microsoft windows common controls 6.0-確定，應(yīng)用

10年積累的做網(wǎng)站、成都網(wǎng)站制作經(jīng)驗(yàn)，可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識你，你也不認(rèn)識我。但先網(wǎng)站制作后付款的網(wǎng)站建設(shè)流程，更有恩施土家免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

下面是簡單的添加刪除方法，

Option Explicit

‘添加項(xiàng)目

Private Sub Command1_Click()

Dim nodx As Node

Set nodx = TreeView1.Nodes.Add(, , "zf", "紫風(fēng)無痕關(guān)系（雙擊收起）")

Set nodx = TreeView1.Nodes.Add("zf", tvwChild, "zfwife", "老婆")

Set nodx = TreeView1.Nodes.Add("zf", tvwChild, "zflover", "情人")

Set nodx = TreeView1.Nodes.Add("zf", tvwChild, "zffriend", "朋友")

Set nodx = TreeView1.Nodes.Add("zfwife", tvwChild, "lp1", "大老婆")

Set nodx = TreeView1.Nodes.Add("zfwife", tvwChild, "lp2", "二老婆")

Set nodx = TreeView1.Nodes.Add("zfwife", tvwChild, "lp3", "三老婆")

Set nodx = TreeView1.Nodes.Add("zfwife", tvwChild, "lp4", "四老婆")

Set nodx = TreeView1.Nodes.Add("zfwife", tvwChild, "lp5", "五老婆")

Set nodx = TreeView1.Nodes.Add("zflover", tvwChild, "qr1", "1號情人")

Set nodx = TreeView1.Nodes.Add("zflover", tvwChild, "qr2", "2號情人")

Set nodx = TreeView1.Nodes.Add("zflover", tvwChild, "qr3", "3號情人")

Set nodx = TreeView1.Nodes.Add("zffriend", tvwChild, "py1", "張三")

Set nodx = TreeView1.Nodes.Add("zffriend", tvwChild, "py2", "李四")

Set nodx = TreeView1.Nodes.Add("zffriend", tvwChild, "py3", "王麻子")

Set nodx = TreeView1.Nodes.Add("py1", tvwChild, "pylp1", "張三的老婆")

Set nodx = TreeView1.Nodes.Add("py1", tvwChild, "pylp2", "張三的孩子")

nodx.EnsureVisible

End Sub

'刪除代碼

Private Sub Command2_Click()

MsgBox ("將要刪除" TreeView1.SelectedItem.Text)

TreeView1.Nodes.Remove (TreeView1.SelectedItem.Index)

End Sub

VB.net怎么制作樹形菜單啊？

你說的“樹形菜單”是指下拉菜單（可以有子菜單）嗎？如果是，VB.net提供了MenuStrip控件，在工具箱里能找到，直接就在對應(yīng)位置打字就可以了，完全是“所見即所得”。

VB.NET使用Treeview實(shí)現(xiàn)貨品樹狀結(jié)構(gòu)分類

你這個(gè)要按照數(shù)據(jù)庫的查詢數(shù)據(jù)找出來根節(jié)點(diǎn)。Treeview增加一個(gè)節(jié)點(diǎn)。

然后根據(jù)根節(jié)點(diǎn)找出來所有子節(jié)點(diǎn)。再依次增加TreeView子節(jié)點(diǎn)。

然后逐個(gè)子節(jié)點(diǎn)進(jìn)行下一步查詢。再把結(jié)果刷新到TreeView子節(jié)點(diǎn)。

給你說說思路。你肯定會問怎么編程序。

那麻煩你上網(wǎng)到msdn查查Treeview的例子程序，自己學(xué)習(xí)改改看看。

如果你還堅(jiān)持要別人幫你寫寫數(shù)據(jù)庫查詢的代碼，那你也可以移步msdn查找SQLServer數(shù)據(jù)庫查詢?nèi)绾螆?zhí)行按照關(guān)鍵字查詢。

vb.net里樹狀圖怎么畫

很簡單，在頁面上拖個(gè)treeview,可以直接給它實(shí)裝數(shù)據(jù)，運(yùn)行一下，就可展開。

VB.net如何動態(tài)獲取菜單欄中的菜單名并用樹型表示

添加：（先在加一個(gè)contextMenu,再它的添加子菜單的click事件編程）

Try

’使TreeView可以被編輯

TreeView1.LabelEdit = True

‘判斷你是不是選定的是不可編輯的節(jié)點(diǎn)，我這里工種節(jié)點(diǎn)不可以被編輯，只有工種下級的

各個(gè)工種名稱可以被編輯

If Trim(TreeView1.SelectedNode.Text) = "工種" Then

‘添加節(jié)點(diǎn)

AddNode = New TreeNode("請輸入新工種名字")

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è)對

哪個(gè)請查MSDN

ElseIf Trim(e.Node.Text) "工種" And e.Node.Text e.Label.ToString Then

If MsgBox("此操作會導(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的樹狀控件怎么弄

打開VB企業(yè)版，不要選新鍵EXE，選那個(gè)VB應(yīng)用程序向?qū)?/p>

下一步

選第三個(gè)，可以在左邊看到是樹狀圖的工程，完成

就可以看到完整的樹狀圖的使用方法