VB.net怎么制作樹(shù)形菜單啊？

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

創(chuàng)新互聯(lián)主營(yíng)屏山網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,成都app開(kāi)發(fā),屏山h5小程序開(kāi)發(fā)搭建,屏山網(wǎng)站營(yíng)銷(xiāo)推廣歡迎屏山等地區(qū)企業(yè)咨詢(xún)

vb.net的treeview使用

Nodes 集合包含分配給 TreeView 控件的所有 TreeNode 對(duì)象。此集合中的樹(shù)節(jié)點(diǎn)稱(chēng)作根樹(shù)節(jié)點(diǎn)。隨后添加到根樹(shù)節(jié)點(diǎn)上的任何樹(shù)節(jié)點(diǎn)稱(chēng)作子節(jié)點(diǎn)。由于每個(gè) TreeNode 都可以包含其他 TreeNode 對(duì)象的集合，您可能會(huì)在循環(huán)訪(fǎng)問(wèn)集合時(shí)覺(jué)得很難確定自己在樹(shù)結(jié)構(gòu)中的位置。您可以使用 PathSeparator 字符串值來(lái)分析 TreeNode.FullPath 字符串，以確定 TreeNode 標(biāo)簽的起始和終止位置。

可以在樹(shù)節(jié)點(diǎn)旁顯示圖像，方法是將一個(gè) ImageList 分配給 ImageList 屬性，然后通過(guò)引用 Image 在 ImageList 中的索引值來(lái)分配該 Image。使用下面的屬性分配圖像：

將 ImageIndex 屬性設(shè)置為當(dāng)樹(shù)節(jié)點(diǎn)未選定時(shí)所顯示的 Image 的索引值。

將 SelectedImageIndex 屬性設(shè)置為當(dāng)樹(shù)節(jié)點(diǎn)被選定時(shí)要顯示的 Image 的索引值。

ImageIndex 和 SelectedImageIndex 屬性值所引用的圖像是所有分配給 Nodes 集合的樹(shù)節(jié)點(diǎn)顯示的默認(rèn)圖像。每個(gè)樹(shù)節(jié)點(diǎn)都可以通過(guò)設(shè)置 TreeNode.ImageIndex 和 TreeNode.SelectedImageIndex 屬性來(lái)取代默認(rèn)的圖像。

樹(shù)節(jié)點(diǎn)可以展開(kāi)，以顯示下一級(jí)子樹(shù)節(jié)點(diǎn)。用戶(hù)可以在 TreeNode 旁顯示加號(hào) (+) 按鈕時(shí)通過(guò)單擊加號(hào) (+) 按鈕來(lái)展開(kāi) TreeNode，或者可以通過(guò)調(diào)用 TreeNode.Expand 方法來(lái)展開(kāi) TreeNode。若要展開(kāi) Nodes 集合中的所有子樹(shù)節(jié)點(diǎn)級(jí)別，請(qǐng)調(diào)用 ExpandAll 方法。若要折疊子 TreeNode 級(jí)別，可以調(diào)用 TreeNode.Collapse 方法，也可以在 TreeNode 旁顯示減號(hào) (-) 按鈕時(shí)按減號(hào) (-) 按鈕。還可以通過(guò)調(diào)用 TreeNode.Toggle 方法在展開(kāi)和折疊狀態(tài)之間切換。

樹(shù)節(jié)點(diǎn)可以選擇性地顯示復(fù)選框。若要顯示復(fù)選框，請(qǐng)將 TreeView 的 CheckBoxes 屬性設(shè)置為 true。對(duì)于處于選中狀態(tài)的樹(shù)節(jié)點(diǎn)，Checked 屬性設(shè)置為 true。

注意

從 BeforeCheck 或 AfterCheck 事件內(nèi)設(shè)置 TreeNode.Checked 屬性將導(dǎo)致該事件被多次引發(fā)并可能產(chǎn)生意外行為。例如，您可以在遞歸更新子節(jié)點(diǎn)時(shí)在事件處理程序中設(shè)置 Checked 屬性，以便用戶(hù)不必逐個(gè)展開(kāi)并選中每個(gè)節(jié)點(diǎn)。如果未將 TreeViewEventArgs 的 Action 屬性設(shè)置為 TreeViewAction.Unknown，則若要防止該事件被多次引發(fā)，需為僅執(zhí)行遞歸代碼的事件處理程序添加邏輯。有關(guān)如何進(jìn)行此操作的示例，請(qǐng)參見(jiàn) AfterCheck 或 BeforeCheck 事件的示例部分。

通過(guò)設(shè)置 TreeView 控件的一些顯示和樣式屬性，可以更改此控件的外觀。如果將 ShowPlusMinus 設(shè)置為 true，則會(huì)分別在每個(gè)可展開(kāi)或折疊的 TreeNode 旁顯示加號(hào)或減號(hào)按鈕。如果將 ShowRootLines 屬性設(shè)置為 true，TreeView 則會(huì)顯示聯(lián)接所有根樹(shù)節(jié)點(diǎn)之間的連線(xiàn)。通過(guò)將 ShowLines 屬性設(shè)置為 true，可以顯示子樹(shù)節(jié)點(diǎn)與其根節(jié)點(diǎn)之間的連線(xiàn)。如果將 HotTracking 屬性設(shè)置為 true，那么當(dāng)鼠標(biāo)指針移過(guò)樹(shù)節(jié)點(diǎn)標(biāo)簽時(shí)，樹(shù)節(jié)點(diǎn)標(biāo)簽的外觀將發(fā)生變化。如果啟用熱跟蹤，樹(shù)節(jié)點(diǎn)標(biāo)簽將具有超鏈接的外觀。也可以完全自定義 TreeView 控件的外觀。若要執(zhí)行此操作，請(qǐng)將 DrawMode 屬性設(shè)置為 TreeViewDrawMode.Normal 以外的值并處理 DrawNode 事件。

注意

在運(yùn)行時(shí)設(shè)置 CheckBoxes、Scrollable、ImageIndex 和 SelectedImageIndex 屬性時(shí)，將重新創(chuàng)建 TreeView 句柄（請(qǐng)參見(jiàn) Control.RecreateHandle）以更新控件的外觀。這將折疊除選定的 TreeNode 之外的所有樹(shù)節(jié)點(diǎn)。

下面的代碼示例闡釋了如何使用 TreeView 控件。

Private Sub InitializeTreeView()

treeView1.BeginUpdate()

treeView1.Nodes.Add("Parent")

treeView1.Nodes(0).Nodes.Add("Child 1")

treeView1.Nodes(0).Nodes.Add("Child 2")

treeView1.Nodes(0).Nodes(1).Nodes.Add("Grandchild")

treeView1.Nodes(0).Nodes(1).Nodes(0).Nodes.Add("Great Grandchild")

treeView1.EndUpdate()

End Sub

From MSDN

用vb和數(shù)據(jù)庫(kù)做系統(tǒng)時(shí)，在主窗體上想做一個(gè)樹(shù)狀目錄，用treeview和image兩個(gè)控件要怎么做啊

TreeView?中要使用圖片,一般和?ImageList?控件結(jié)合.

如下圖:

附件中包含了Form8 及所要用的Access數(shù)據(jù)庫(kù)db8.mdb

重要的程序有:

1、Form_Load() 中設(shè)置數(shù)據(jù)控件Data 及給TreeView 加載數(shù)據(jù)：

Private Sub Form_Load()

Dim snRes As DAO.Recordset

Dim N As Node

dataName = App.Path + "\db8.mdb"

With fData

.DatabaseName = dataName

.Connect = "Access"

.RecordSource = "SELECT * FROM T3011 ORDER BY F0,F1 "

.Refresh

End With

DoEvents

Set snRes = fData.Database.OpenRecordset("SELECT F1,F2 FROM T301 WHERE F1'CMPY'", dbOpenSnapshot)

TreeLB.Nodes.Clear

Set N = TreeLB.Nodes.Add(, , "R", "分店資料", "ImgR")

Do While Not snRes.EOF

Set N = TreeLB.Nodes.Add("R", tvwChild, "I_" + Trim(snRes(0)), Trim(snRes(1)), "ImgS")

snRes.MoveNext

Loop

TreeLB.Nodes(1).Expanded = True

End Sub

2、當(dāng)點(diǎn)擊TreeView 時(shí)系統(tǒng)找到對(duì)應(yīng)的“分店?duì)I業(yè)員”資料給Data控件顯示：

Private Sub TreeLB_NodeClick(ByVal Node As MSComctlLib.Node)

On Error GoTo NodeClickErr

Dim MySQL$

If InStr(Node.Key, "R") 0 Then

fData.RecordSource = "SELECT * FROM T3011 ORDER BY F1"

fData.Refresh

DoEvents

Exit Sub

ElseIf InStr(Node.Key, "I_") 0 Then

fData.RecordSource = "SELECT * FROM T3011 WHERE F0='" + Trim(Mid$(Trim(Node.Key), InStr(Node.Key, "I_") + 2)) + "' ORDER BY F1"

fData.Refresh

DoEvents

Exit Sub

ElseIf InStr(Node.Key, "C_") 0 Then

MySQL$ = "F0='" + Mid$(Node.Key, 1, InStr(Node.Key, "C_") - 1) + "' "

MySQL$ = MySQL$ + "AND F1='" + Trim(Mid$(Trim(Node.Key), InStr(Node.Key, "C_") + 2)) + "' "

fData.Recordset.FindFirst MySQL$

DoEvents

End If

Exit Sub

NodeClickErr:

MsgBox "記錄下面錯(cuò)誤信息：" + Chr(13) + Error$, 48, "重要提示"

Err = 0

Exit Sub

End Sub

詳細(xì)資料下載后運(yùn)行并研究....

vb.net從數(shù)據(jù)庫(kù)讀取信息填充treeview做成層次目錄怎么做

給你一段我曾經(jīng)寫(xiě)的代碼，主要是生成TreeView的節(jié)點(diǎn)！有什么不懂的地方你就提！

Public Sub InitializeTreeView(ByVal strvXL As TreeView, ByVal vrsRecordTwo As DataSet)

Dim treBaseNodeOne As TreeNode

Dim treBaseNodeTwo As TreeNode

Dim strDWDM As String

m_rsRecordTwo = g_clsSybase.SelectSC_PD_SBCSB1()

'查找供電局信息

g_clsSybase.SelectRS_ZZJG_ZZJGDMB(m_rsRecordOne)

'添加根節(jié)點(diǎn)

Do While m_rsRecordOne.Read

strDWDM = m_rsRecordOne.GetString(0) '獲取單位代碼

treBaseNodeOne = New TreeNode

treBaseNodeOne.Text = m_rsRecordOne.GetString(1).Trim() '獲取單位名稱(chēng)

treBaseNodeOne.Name = m_rsRecordOne.GetString(1)

treBaseNodeOne.Tag = ""

strvXL.Nodes.Add(treBaseNodeOne)

'添加樹(shù)結(jié)構(gòu)第二層

Dim drsTwo() As DataRow

drsTwo = m_rsRecordTwo.Tables(0).Select("SSDW='" strDWDM "' and SC__XLBM is null")

For Each dr As DataRow In drsTwo

treBaseNodeTwo = New TreeNode

treBaseNodeTwo.Text = dr.Item("XLMC").ToString.Trim

treBaseNodeTwo.Name = dr.Item("XLMC")

treBaseNodeTwo.Tag = dr.Item("XLBM")

treBaseNodeOne.Nodes.Add(treBaseNodeTwo)

Next

Loop

m_rsRecordOne.Close()

End Sub

vB里樹(shù)形目錄列表 有“+”和“-”分別代表展開(kāi)和收起，怎么設(shè)置成打開(kāi)窗體后自動(dòng)展開(kāi)窗體內(nèi)的樹(shù)形目錄？

For i = 1 To TreeView1.Nodes.Count

TreeView1.Nodes(i).Expanded = True

Next i

Vb.NET 注冊(cè)表 新建目錄樹(shù)

Dim Reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser 'HKEY_CURRENT_USER

Reg.OpenSubKey("\1\2\3\4\5\6\7", True) '在HKEY_CURRENT_USER下新建1\2\3\4\5\6\7的項(xiàng)

希望能對(duì)你有所啟發(fā)和幫助。

文章題目：vb.net樹(shù)狀目錄的簡(jiǎn)單介紹
瀏覽路徑：http://www.chinadenli.net/article20/hpijco.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供App設(shè)計(jì)、自適應(yīng)網(wǎng)站、網(wǎng)頁(yè)設(shè)計(jì)公司、網(wǎng)站制作、做網(wǎng)站、網(wǎng)站設(shè)計(jì)公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)