For Each nd As winform.treenode In tr.allNodes nd.backColor = Color.White '恢复节点默认颜色 Next For Each nd As winform.treenode In tr.Nodes If nd.Name = Mtbn Then '---选中当前节点 tr.SelectedNode = nd tr.SelectedNode.backColor = Color.LightSkyBlue Exit For '退出循环 End If Next