MDI主窗体和子窗体的建立
1.刚开始做机房收费系统时遇到的一个棘手问题,由于MDI窗体上添加了picturebox控件作为容器,当打开子窗体时就会被picturebox控件挡在后面,这里我们可以用一个API函数解决 SetParent ,改变指定子窗口的父窗口。
SetParent 就是为窗体设置一个新父。
hWndChild 子窗体句柄(HWND)。
hWndNewParent 新父窗体的句柄。
(新父可以是窗体控件,也可以是有HWND 的控件)
例如我们将所有的子窗体做为picture1的子窗体 。
'声明
Private DeclareFunction SetParent Lib"user32" (ByVal hWndChildAsLong, ByVal hWndNewParentAsLong)AsLong
使用
Public Sub Stubal_Click() '查看学生余额
frmStubal.Show
Call SetParent(frmStubal.hwnd, Picture1.hwnd)
End Sub
2.继上面的问题解决后,子窗体的显示
当显示另一个窗体时,上一个窗体自动最小化
Private Declare Function GetForegroundWindow Lib "User32" () As Long 'api声明
Private Sub Form1_Load()
Timer1.Interval = 100 '设置定时器延时100毫秒
End Sub
Private Sub Timer1_Timer()
Dim frmCurr As Form
If GetForegroundWindow <> Me.hWnd Then '判断获取的句柄与本窗体的句柄是否一致
frmCurr.WindowState = 1 '如果不一致就最小化
End If
End Sub