机房收费系统-MDI窗体与子窗体的问题

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