VB小问题麻烦下

来源：百度知道 编辑：UC知道 时间：2024/05/16 18:39:35
有个小问题，我创建了两个窗体 FORM1 FORM2
比如我现在打开主程序 FORM1
现在通过COmmand按扭来调用FORM2
如何才能实现当我通过COmmand调用FORM2的时候让FORM2始终在FORM1的右边
好象酷狗音乐那样让另一个窗体始终与FORM1连在一起
现在在加一个Command2
代码是：form2.hide来使其关闭！

Private Sub Command1_Click()
Form2.Top = Form1.Top
Form2.Left = Form1.Left + Form1.Width
If Form2.Visible = False Then

Command1.Caption = "隐藏"
Form2.Show
Else
Form2.Hide
Command1.Caption = "显示"

End If
End Sub
是不是这样啊?

定义一下FORM2的位置，窗体的位置不是只读属性的，是可以通过代码修改的，也就是说窗体的位置是可以通过程序改变的！
明白？
至于FORM2的位置，就是FORM1的X轴位置加上FORM1的宽度，
屏幕左上角是坐标系的原点的

form1:

Private Sub Command1_Click()
Form2.Show
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Form2.Hide
End Sub

Private Sub Form_Load()
Command1.Caption = "打开"
Command2.Caption = "隐藏"
Timer1.Enabled = False
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Form2.Left = Form1.Left + Form1.Width
Form2.Top = Form1.Top
End Sub

form2:

Private Sub Form_Query