vb 如何把窗口2放在窗口1上？？

来源：百度知道 编辑：UC知道 时间：2024/07/02 02:36:09
在form1上放上form2....
不管form1怎么移动form2都在form1的某个位置上不变
并且焦点在form1上时form2不会被form1覆盖住
......
简单的说form1上有个缺口。这个缺口用form2碟上，让人看不出是2个form就可以了

长时间不用VB细节忘记，但是我知道可以在form1的某个事件中写让form2的left，top的值始终和form1的left和top有一个固定的差。
比如form2.left=form1.left+200
form2.top=form1.top+100

用API函数将form1实现置顶、异形
Private Sub Form2_GotFocus()
dim k1,k2 as integer
'k1,k2为两窗体的位置调整值
k1=(form2.top-form1.top)\2
k2=(form2.left-form1.left)\2
form1.top=form2.top+k1
form1.left=form2.left+k2
End Sub

用setparent把Form2作为Form1的子窗体，然后移动Form2到合适位置就可以了。