Dim ft As Integer = e.Form.baseform.Top
Dim fl As Integer = e.Form.baseform.left
Dim sp1 As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")
Dim p1t As Integer =sp1.Top
Dim p1l As Integer =sp1.Panel1.width
Dim pnl As WinForm.Panel = e.Form.Controls("Panel1")
Forms("遮罩窗口").show()
Forms("遮罩窗口").SetBounds(fl+p1l+10,ft+p1t+30,pnl.Width,pnl.Height)
如果不用窗口，简单一点，就另外放一个panel和面板同一层次，平时隐藏，需要的时候置顶显示
加好友 
发短信
Post By：2016/8/25 10:13:00 [显示全部帖子]
