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

創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供五華網(wǎng)站建設(shè)、五華做網(wǎng)站、五華網(wǎng)站設(shè)計、五華網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、五華企業(yè)網(wǎng)站模板建站服務(wù),十年五華做網(wǎng)站經(jīng)驗,不只是建網(wǎng)站,更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。
給你一段我曾經(jīng)寫的代碼,主要是生成TreeView的節(jié)點!有什么不懂的地方你就提!
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é)點
Do While m_rsRecordOne.Read
strDWDM = m_rsRecordOne.GetString(0) '獲取單位代碼
treBaseNodeOne = New TreeNode
treBaseNodeOne.Text = m_rsRecordOne.GetString(1).Trim() '獲取單位名稱
treBaseNodeOne.Name = m_rsRecordOne.GetString(1)
treBaseNodeOne.Tag = ""
strvXL.Nodes.Add(treBaseNodeOne)
'添加樹結(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
建一個ImageList控件,右擊,屬性,在“圖像”里插入圖片(你的1.gif),看好他們的索引(Index,默認是1)。然后,代碼如下。 ============ Private Sub Command1_Click() TreeView1.ImageList = ImageList1 '關(guān)聯(lián)Treeview1與Imagelist1 TreeView1.LineStyle = tvwRootLines Dim nodX As Node TreeView1.Nodes.Add , , "a1", "teachername" Set nodX = TreeView1.Nodes.Add("a1", tvwChild, , "教師姓名", 1) '這個1的意思是剛才設(shè)置的圖片在ImageList里的索引 End Sub
'設(shè)置 Treeview 控件屬性。
TreeView1.LineStyle = tvwRootLines ' Linestyle 1
'添加 Node 對象。
Dim nodX As Node '聲明 Node 變量。
'帶有文本 'Root' 的第一個節(jié)點。
Set nodX = TreeView1.Nodes.Add(, , "r", "班級名稱")
'下一個節(jié)點是節(jié)點 1 ("Root") 的子節(jié)點。
Call TreeView1.Nodes.Add("r", tvwChild, "class2007", "2007級")
Call TreeView1.Nodes.Add("r", tvwChild, "class2008", "2008級")
Call TreeView1.Nodes.Add("r", tvwChild, "class2009", "2009級")
建議安裝vb6.0企業(yè)版
做程序時選Microsoft Windows Common Controls 6.0
里邊就會有樹,具體代碼請再查找!
TreeView1.Nodes.Add , , "a", "主節(jié)點一" ',后面有有兩個圖標(biāo)參數(shù) '節(jié)點編號1
TreeView1.Nodes.Add 1, tvwChild, "s", "子節(jié)點一" '節(jié)點編號2
TreeView1.Nodes.Add , , "d", "主節(jié)點二" '節(jié)點編號3
TreeView1.Nodes.Add 3, tvwChild, "f", "子節(jié)點二" '節(jié)點編號4
文章題目:vb.net樹形目錄代碼,c# 目錄樹
文章地址:http://chinadenli.net/article14/phecde.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站設(shè)計公司、服務(wù)器托管、面包屑導(dǎo)航、網(wǎng)站改版、域名注冊、小程序開發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)