Question

vb编程Toolbar的问题。急！急！急！

用MDI窗体作为主界面，Toolbar怎样实现主窗体对子窗体的“水平排列”“垂直排列”“层叠排列”“关闭当前活动窗体”“关闭当前所有活动窗体”“关闭目录树（treeview）”如能给出程序，并加以详细说明，定再加30分，请各位高手帮帮忙吧！感激不尽！

Answer 1

Private Sub MDIForm_Load() Form1.Show Form2.Show Form3.Show End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button Case Toolbar1.Buttons(1) '水平排列 Me.Arrange 1 Case Toolbar1.Buttons(2) '垂直排列 Me.Arrange 2 Case Toolbar1.Buttons(3) '层叠排列 Me.Arrange 0 Case Toolbar1.Buttons(4) '关闭当前活动窗体 Unload Me.ActiveForm Case Toolbar1.Buttons(5) '关闭当前所有活动窗体 Unload Me.ActiveForm Unload Me.ActiveForm Unload Me.ActiveForm Case Toolbar1.Buttons(6) '关闭目录树（treeview） TreeView1.Visible = False End Select End Sub