Question

VB6.0怎么做到 我点击了按钮1，跳出窗口2，但是若我在打开了窗口2后，又点击……详细见问题补充

VB6.0怎么做到 我点击了按钮1，跳出窗口2，但是若我在打开了窗口2后，又点击了除了窗口2以外的地方，窗口2又自动关闭，就像开始菜单一样。
就像开始菜单一样哦

Answer 1

窗口2 需要添加一个Timer控件，名为 Timer1，设置时间间隔为100ms

在窗口2中添加代码：

Private Declare Function GetForegroundWindow Lib "user32" () As Long

Private Sub Timer1_Timer()
'/* 如果失去焦点就卸载当前窗体 */
If GetForegroundWindow <> Me.hWnd Then
    Me.Hide    
    Unload Me    
End If
End Sub

使用Form2.Show就可以显示窗体2，如果窗体2失去焦点就会关闭