, "a0", "院系信息", 1, 3)
      TmpNode.ExpandedImage = 2
    
      '调用函数将所有院系班级添加到TreeView1中
      Call Add_ClassToTree(TreeView1, "a0")
      TmpNode.Selected = True
      
      TreeView1_Click
    End Sub
    
    Private Sub TreeView1_Click()
      Dim Focuskey As String
      '根据关键字获取院系班级信息
      Focuskey = TreeView1.SelectedItem.Key
      CurClass.Class_Name = TreeView1.SelectedItem.Text
      CurClass.Class_Id = Val(Right(TreeView1.SelectedItem.Key, Len(TreeView1.SelectedItem.Key) - 1))
      
      If Focuskey = "a0" Then '根结点
        Exit Sub
      End If
      '如果包含子结点，则设置图像格式
      If CurClass.HaveSon(CurClass.Class_Id) = False Then
        TreeView1.SelectedItem.ExpandedImage = 4
        TreeView1.SelectedItem.Image = 4
        TreeView1.SelectedItem.SelectedImage = 5
      End If
      '读取CurClass中的所有院系班级信息
      CurClass.GetInfo (CurClass.Class_Id)
    End Sub