版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
【前言】
在我们拿到机房的学习资料,打开那个小程序时,我们会发现这样一个现象,就是比如我们打开了一个注册窗体,然后又打开了一个充值窗体,那么注册窗体就会乖乖的自动最小化到主窗体的左下角。如下图。
【如何实现】
实现这个功能就要用到上篇博客中写的MDI窗体,首先我们把窗体的MDIChild属性都设置为True,确保为MDI子窗体。然后在每个子窗体中写下下面的代码。
'当窗体成为活动窗体或该窗体获得焦点时,触发的事件
Private Sub Form_Activate()
Dim a As Form
For Each a In Forms
If a.Name <> Me.Name And a.Name <> frmmain.Name Then
a.WindowState = 1
End If
Next
End Sub