'form1 里面的代码
Private Sub Command1_Click()
Form2.Show
Form2.tv = TreeView1
End SubPrivate Sub Form_Load()
TreeView1.Nodes.Add , , , "1、sfdasdf"
TreeView1.Nodes.Add , , , "2、sfdasdf"
End Sub'form2里面的代码
Option Explicit
Public Property Let tv(ByVal oTv As TreeView)
Dim node As node
With TreeView1.Nodes
For Each node In oTv.Nodes
If node.Parent Is Nothing Then
.Add , , node.Key, node.Text, node.Image, node.SelectedImage
Else
.Add node.Parent.Key, tvwChild, node.Key, node.Text, node.Image, node.SelectedImage
End If
Next
End With
End Property
Private Sub Command1_Click()
Form2.Show
Form2.tv = TreeView1
End SubPrivate Sub Form_Load()
TreeView1.Nodes.Add , , , "1、sfdasdf"
TreeView1.Nodes.Add , , , "2、sfdasdf"
End Sub'form2里面的代码
Option Explicit
Public Property Let tv(ByVal oTv As TreeView)
Dim node As node
With TreeView1.Nodes
For Each node In oTv.Nodes
If node.Parent Is Nothing Then
.Add , , node.Key, node.Text, node.Image, node.SelectedImage
Else
.Add node.Parent.Key, tvwChild, node.Key, node.Text, node.Image, node.SelectedImage
End If
Next
End With
End Property
form2在Load第一次时什么都没有,在load第二次时才出来一个根结点,childen都不出来,以后再怎么load都只出来一个根结点...
奇怪的很,why?
private sub form_load()
ListView1.ListItems.Clear
end sub