vb中工具栏中点击按钮实现连接的编程问题

来源：百度知道 编辑：UC知道 时间：2024/06/17 01:54:48
vb编程，在一个窗体中我创建了一个工具栏，一共有七个按钮，我想在点击这些按钮时都连接到其他窗体，比如：点击标题为：录入学生基本信息，索引为：1 的按钮时 将打开“录入学生信息”这个窗体，请问应该怎样编写程序？
单击工具栏时出现：
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

End Sub
中间那部分程序应该怎样写？？

录入学生信息的窗体名假如是 form2
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Form2.Show
Case 2
Form3.Show
Case 3
Form4.Show
End Select
End Sub
如果你要在打开窗体后关闭原来的这个窗体就加上
me.hide

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
student.show
'注:student即为"录入学生信息"这个窗体.
Case 2
'索引为2的按钮要执行的内容......
End Select
End Sub

用 Select case 结构判断Button.Index就可以
Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)

Select Case Button.Index
Case 1
frmStudentInfo.Show vbModal
case 2
frmXXX.Show vbModal
End Select

End Sub

不过建议 select case 判断 Button.Key，这样当按钮索引发生变化时此处的程序不用修改。