Question

在vb中我用toolbar做的一个工具栏，点击上面的按钮可以弹出窗体，可是不能切换？求助高手帮忙？

如图所示 这是让两个窗体（form1和from2）弹出显示在MDIform上,按下参数form2显示如下：

按下“与驱动器通信”form1显示在form2上，显示如下：

现在我想实现的是接着点击“参数”按钮，让form2显示到上面了，这样可以让他们来回互换，互不影响，应该怎么实现呢？下面是让他们显示的代码：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1Form1.Left = 0Form1.Top = 0Form1.Height = 9000Form1.Width = 15000Form1.ShowCase 2Form2.ShowForm2.Left = 0Form2.Top = 0Form2.Height = 9000Form2.Width = 15000
End Select
End Sub
望高手指点啊 肯定好评





Answer 1

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Form1.Left = 0
Form1.Top = 0
Form1.Height = 9000
Form1.Width = 15000
Form2.Hide
Form1.Show
Case 2
Form1.Hide
Form2.Show
Form2.Left = 0
Form2.Top = 0
Form2.Height = 9000
Form2.Width = 15000
End Select
End Sub

追问

可是这样做的话，窗体上就只有一个窗口弹出呀 ，我想让这两个窗体都在窗体上，只是按的时一个窗体覆盖另一个窗体而以，你实现这个功能好做吗？麻烦你了

追答

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Form1.Left = 0
Form1.Top = 0
Form1.Height = 9000
Form1.Width = 15000
Form1.Show
Form1.SetFocus
Case 2
Form2.Left = 0
Form2.Top = 0
Form2.Height = 9000
Form2.Width = 15000
Form2.Show
Form2.SetFocus
End Select
End Sub

这样可否？