国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

打開APP
userphoto
未登錄

開通VIP,暢享免費電子書等14項超值服

開通VIP
關(guān)于treeview的節(jié)點,如何將數(shù)組保存到選擇的節(jié)點中
MSDN 上的一個示例,你研究一下吧。是針對你這個問題。

Children 屬性示例
這個例子在 TreeView 控件中放置幾個 Node 對象。這組代碼檢查 Node 是否有子節(jié)點。如果有,則顯示子節(jié)點的文本。為試用此例,在窗體上安放一個 TreeView 控件,并在窗體的聲明部分中粘貼下面的代碼。運行此例,單擊 Node 對象以選擇它,然后單擊該窗體來察看 Node 對象的子節(jié)點的文本。

程序代碼:
Option Explicit
Private Sub Form_Click()
   Dim strC As String
   Dim N As Integer
   If TreeView1.SelectedItem.Children > 0 Then '有子節(jié)點。

      '獲取第一個子節(jié)點的文本,并將 N 設(shè)置為它的索引值。
      strC = TreeView1.SelectedItem.Child.Text & vbLF
      N = TreeView1.SelectedItem.Child.Index

      '若 N 不是子節(jié)點的最后相鄰節(jié)點的索引,
      '則獲取下一個相鄰節(jié)點的文本。
      While N <> TreeView1.SelectedItem.Child.LastSibling.Index
         strC = strC & TreeView1.Nodes(N).Next.Text & vbLF
         '重置 N 為下一個相鄰節(jié)點的索引。
         N = TreeView1.Nodes(N).Next.Index
      Wend
      '顯示結(jié)果。
      MsgBox "Children of " & TreeView1.SelectedItem.Text & _
      " are: " & vbLF & strC
   Else '沒有子節(jié)點。
      MsgBox TreeView1.SelectedItem.Text & " has no children"
   End If
End Sub

Private Sub Form_Load()
   TreeView1.BorderStyle = 1  '確保邊界是可視的。
   Dim nodX As Node
   Set nodX = TreeView1.Nodes.Add(,,"d","Dates")
   Set nodX = TreeView1.Nodes.Add("d",tvwChild,"d89","1989")
   Set nodX = TreeView1.Nodes.Add("d",tvwChild,"d90","1990")

   '創(chuàng)建 1989 節(jié)點的子節(jié)點。
   Set nodX = TreeView1.Nodes.Add("d89",tvwChild, ,"John")
   Set nodX = TreeView1.Nodes.Add("d89",tvwChild, ,"Brent")
   Set nodX = TreeView1.Nodes.Add("d89",tvwChild, ,"Eric")
   Set nodX = TreeView1.Nodes.Add("d89",tvwChild, ,"Ian")
   nodX.EnsureVisible '顯示所有節(jié)點。

   '創(chuàng)建 1990 節(jié)點的子節(jié)點。
   Set nodX = TreeView1.Nodes.Add("d90",tvwChild, ,"Randy")
   Set nodX = TreeView1.Nodes.Add("d90",tvwChild, ,"Ron")
   nodX.EnsureVisible '顯示所有節(jié)點。
End Sub
本站僅提供存儲服務(wù),所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請點擊舉報。
打開APP,閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
treeeview控件的大概用法
Excel VBA 選擇輸入/TreeView控件
vb給TreeView控件添加節(jié)點一例
房地產(chǎn)成本控制軟件|樓盤erp系統(tǒng)
TreeView展開所有節(jié)點
如何遍歷treeview的所有節(jié)點
更多類似文章 >>
生活服務(wù)
分享 收藏 導(dǎo)長圖 關(guān)注 下載文章
綁定賬號成功
后續(xù)可登錄賬號暢享VIP特權(quán)!
如果VIP功能使用有故障,
可點擊這里聯(lián)系客服!

聯(lián)系客服