都不好,用我的方法试试 两个窗体form1和form2,form2启动后告诉form1'form1代码如下: Option Explicit Private WithEvents mform As form2 Private Sub Command1_Click() Set mform = form2 form2.Show End SubPrivate Sub mform_Opened() MsgBox "窗口已经打开" End Sub'form2代码如下: Option Explicit Public Event Opened() Private Sub Form_Activate() RaiseEvent Opened End Sub
检查窗口代码
doevents
loop
这个代码执行,CPU基上是100%的.用Timer就不同了.
' do sth.
sleep 1
doevents
looptimer 在某些情况下不适用
两个窗体form1和form2,form2启动后告诉form1'form1代码如下:
Option Explicit
Private WithEvents mform As form2
Private Sub Command1_Click()
Set mform = form2
form2.Show
End SubPrivate Sub mform_Opened()
MsgBox "窗口已经打开"
End Sub'form2代码如下:
Option Explicit
Public Event Opened()
Private Sub Form_Activate()
RaiseEvent Opened
End Sub