Select Case e.Node.Text Case "名称1" '在此加入相应的代码 Case "名称2" '在此加入相应的代码 Case "名称3" '在此加入相应的代码 Case "名称4" '在此加入相应的代码End Select 打开窗口的代码是:Forms("窗口名称").Open()