Dim str As String = ""
for each nd As object in trv.allnodes
If nd.nodes.count = 0 andAlso nd.checked Then
str &= nd.text & ","
End If
next
msgbox(str.trim(","))
加好友 
发短信
Post By：2018/9/12 20:05:00 [显示全部帖子]
