IT男year IT男year
关注数: 0 粉丝数: 5 发帖数: 80 关注贴吧数: 26
vb子程序和函数问题?请各位大神帮帮忙! Private Sub MDIForm_Load() With TreeView1 .Nodes.Add , , "book", "图书信息管理" .Nodes.Add "book", tvwChild, "add_bookinfo", "添加图书信息" .Nodes.Add "book", tvwChild, "modiffy_bookinfo", "修改图书信息" .Nodes.Add "book", tvwChild, "search_bookinfo", "查询图书信息" .Nodes("book").Expanded = True .Nodes.Add , , "student", "学生信息管理" .Nodes.Add "student", tvwChild, "add_studentinfo", "添加学生信息" .Nodes.Add "student", tvwChild, "modiffy_studentinfo", "修改学生信息" .Nodes.Add "student", tvwChild, "search_studentinfo", "查询学生信息" .Nodes("student").Expanded = True .Nodes.Add , , "management", "管理员信息管理" .Nodes.Add "management", tvwChild, "add_managementinfo", "添加管理员信息" .Nodes.Add "management", tvwChild, "modiffy_managementinfo", "修改管理员信息" .Nodes.Add "management", tvwChild, "search_managementinfo", "查询管理员信息" .Nodes("management").Expanded = True .Nodes.Add , , "borrow", "图书借出信息管理" .Nodes.Add "borrow", tvwChild, "add_borrowinfo", "添加学生借书信息" .Nodes.Add "borrow", tvwChild, "modiffy_borrowinfo", "修改学生借书信息" .Nodes.Add "borrow", tvwChild, "search_borrowinfo", "查询学生借书信息" .Nodes("borrow").Expanded = True .Nodes.Add , , "back", "图书归还信息管理" .Nodes.Add "back", tvwChild, "add_backinfo", "添加学生归还信息" .Nodes.Add "back", tvwChild, "modiffy_backinfo", "修改学生归还信息" .Nodes.Add "back", tvwChild, "search_backinfo", "查询学生归还信息" .Nodes("back").Expanded = True End With End Sub Private Sub TreeView1_BeforeLabelEdit(Cancel As Integer)------->错误指向这句(提示:子程序或函数未定义) Select Case Node.Text Case "添加图书信息" add_bookinfo_Click Case "修改图书信息" modify_bookinfo_Click Case "查询图书信息" search_bookinfo_Click Case "添加学生信息" add_studentinfo_Click Case "修改学生信息" modify_studentinfo_Click Case "查询学生信息" search_studentinfo_Click Case "添加管理员信息" add_managementinfo_Click Case "修改管理员信息" modify_managementinfo_Click Case "查询管理员信息" search_managementinfo_Click Case "添加学生借书信息" add_borrowinfo_Click Case "修改学生借书信息" modify_borrowinfo_Click Case "查询学生借书信息" search_borrowinfo_Click Case "添加学生归还信息" add_backinfo_Click Case "修改学生归还信息" modify_backinfo_Click Case "查询学生归还信息" search_backinfo_Click End Select End Sub 错误提示:子程序或函数未定义) 这段程序哪里有问题呀?帮我改一下吧!我没有学过vb,只是实训时老师要我们用vb做界面!
1 下一页