请问如何实现两个FORM连接在一起

Question

请问如何实现两个FORM连接在一起，就像realplay中均衡器和播放器两窗体连接在一起的效果，主窗体打开后，打开另一个窗体2时，窗体2连接在主窗体下方，并且在拖动主窗体时，窗体2能够和主窗体一起动，而且不想要窗体2时，能够通过主窗体中的一个按钮对窗体2实现隐藏？

Answer 1

用MDI父窗体后最用两个子窗体,子窗体的borderstyle=0

Answer 2

Private Sub Form_Load()
    With Picture1
       
        .Left = 0
        .Top = 0
        .BackColor = vbApplicationWorkspace
    End With
'mnu_product_input.Enabled = False
End Sub
Private Sub Form_Resize()
    With Picture1       .Width = Me.ScaleWidth
       .Height = Me.ScaleHeight
    End With
    Me.Refresh
End SubPrivate Sub Form_Unload(Cancel As Integer)
Dim myForm As Form
For Each myForm In Forms
    Unload myForm
Next
End SubPrivate Sub mnu_fhjl_sql_Click()
SetParent frmsearch_in_warehouse.hwnd, Frmsale.hwnd
frmsearch_in_warehouse.Show
End Sub
不知道你要的是不是这种效果，如果是的话，自已改下

Answer 3

在主窗体的Form_Resize Form_Load中写控制从窗体的代码就可以

Answer 4

我是问移动窗体，不是说改变窗体大小
resize不行的

Answer 5

wynbfqny(今无心)：
不行的，你的意思是不是在生成一个新窗体时，通过resize事件，但是调用picture控件用来干什么的啊，费解啊

Answer 6

picture把窗体装进这个容器里啊，然后，如果窗体移动的时候，因为容器肯定会一起跟着移动了
就是这个意思了，不知道你明白了没有

Answer 7

移动Form1时调整Form2的位置
窗口移动时触发WM_MOVE消息
参考：http://search.csdn.net/Expert/topic/1120/1120341.xml如何捕作此消息

Answer 8

那
Private Sub mnu_fhjl_sql_Click()
SetParent frmsearch_in_warehouse.hwnd, Frmsale.hwnd
frmsearch_in_warehouse.Show
End Sub
是什么意思啊，frmsearch_in_warehouse是不是我说的窗体2啊，那Frmsale是什么窗体啊，SetParent方法是什么含义啊

Answer 9

谢谢hellobcb(学海无涯，回头是岸)

Answer 10

在窗体的 Form_Resize Form_Load中定义被控窗体的left和top

Answer 11

jamse007() ：
我是问移动窗体，不是说改变窗体大小
resize不行的
=====================================
移动窗体也是要触发resize事件的

Answer 12

不会触发resize事件，你可以在
form_resize()
d=1 
endsub
d=1处设置断点，移动窗体时，不会执行该事件

Answer 13

Private Sub Command2_Click()
    Form2.Left = Me.Left + Me.Width
    Form2.Top = Me.Top
    Form2.Show
End Sub