许多窗子连接在一起,请问如何实现两个FORM连接在一起

请问如何实现两个FORM连接在一起 - 故障解答 - 电脑教程网

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

日期:2006-12-29   荐:
请问如何实现两个FORM连接在一起请问如何实现两个FORM连接在一起,就像realplay中均衡器和播放器两窗体连接在一起的效果,主窗体打开后,打开另一个窗体2时,窗体2连接在主窗体下方,并且在拖动主窗体时,窗体2能够和主窗体一起动,而且不想要窗体2时,能够通过主窗体中的一个按钮对窗体2实现隐藏?用MDI父窗体后最用两个子窗体,子窗体的borderstyle=0Private Sub Form_Load() With Picture1 .Left = 0 .Top = 0 .BackColor = vbApplicationWorkspace End With'mnu_product_input.Enabled = FalseEnd SubPrivate Sub Form_Resize() With Picture1 .Width = Me.ScaleWidth .Height = Me.ScaleHeight End With Me.RefreshEnd SubPrivate Sub Form_Unload(Cancel As Integer)Dim myForm As FormFor Each myForm In Forms Unload myFormNextEnd SubPrivate Sub mnu_fhjl_sql_Click()SetParent frmsearch_in_warehouse.hwnd, Frmsale.hwndfrmsearch_in_warehouse.ShowEnd Sub不知道你要的是不是这种效果,如果是的话,自已改下在主窗体的Form_Resize Form_Load中写控制从窗体的代码就可以我是问移动窗体,不是说改变窗体大小resize不行的wynbfqny(今无心):不行的,你的意思是不是在生成一个新窗体时,通过resize事件,但是调用picture控件用来干什么的啊,费解啊picture把窗体装进这个容器里啊,然后,如果窗体移动的时候,因为容器肯定会一起跟着移动了就是这个意思了,不知道你明白了没有移动Form1时调整Form2的位置窗口移动时触发WM_MOVE消息参考:http://search.csdn.net/Expert/topic/1120/1120341.xml如何捕作此消息那Private Sub mnu_fhjl_sql_Click()SetParent frmsearch_in_warehouse.hwnd, Frmsale.hwndfrmsearch_in_warehouse.ShowEnd Sub是什么意思啊,frmsearch_in_warehouse是不是我说的窗体2啊,那Frmsale是什么窗体啊,SetParent方法是什么含义啊谢谢hellobcb(学海无涯,回头是岸)呵呵!这个功能我也想要呢。在窗体的 Form_Resize Form_Load中定义被控窗体的left和topjamse007() :我是问移动窗体,不是说改变窗体大小resize不行的=====================================移动窗体也是要触发resize事件的不会触发resize事件,你可以在form_resize()d=1 endsubd=1处设置断点,移动窗体时,不会执行该事件Private Sub Command2_Click() Form2.Left = Me.Left Me.Width Form2.Top = Me.Top Form2.ShowEnd Sub
标签: