在这个窗口load的时候,把其他窗体的enabled属性都设为false就好了。这个窗体unload的时候将其他窗体的enabled属性设为true,这样其他窗口就又可以用了。
设置当前窗体为模式窗体!!前提是这个窗体不能是MDI子窗体,这样的话就不能设置为模式窗体了!!如
Form2.Show 1 '这是模式窗体 show 加1 就行了
Form2.Show 0
Private Sub Form_Load()
Me.Show
Form2.Show 1
End Sub
试试上面的代码,看看。
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
Me.SetFocus
End Sub
不过对有些特殊窗体无效
不断激活自己吧 不过会搞得很卡