Question

我用VB6.0，我点视图-属性页，出现了警告“类没有注册，查找具有CLSID的对象”加一串代码，什么情况？

我添加的控件，右键点属性页也没有属性，比较急，谢谢啦！

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

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失去焦点就会关闭