If Form1.Caption <> "Form1" Then
   Msgbox ("bianlebianle~~")
End If------------------------------------如上代碼因該寫在FORM的什麽事件里?才有響應?

解决方案 »

  1.   

    啊~不好用~俺強調的是,,Form1.Caption 發生改變,,也就是說,開始的時候後,form1的caption是form1。可是通過激活其他的應用程序,(調用了api函數,獲得激活的程序的caption),將FORM1的CAPTION變爲其他的名字。比如說,該爲了FORM2.這個時候,再彈出MSGBOX..If Form1.Caption <> "Form1" Then
       Msgbox ("bianlebianle~~")
    End If
    我問的是這個時候該寫在哪裏??
    LOAD 和 Activate肯定不行。
      

  2.   

    直接写在API函数执行的后面就可以啊,
    或是在你进行用此条件来判断的任何位置
      

  3.   

    Dim strFormCaption As StringPrivate Sub Form_Load()
        strFormCaption = Me.Caption
    End SubPrivate Sub Timer1_Timer()
        If Me.Caption <> strFormCaption Then
            MsgBox "变了!"
            strFormCaption = Me.Caption
        End If
    End Sub
      

  4.   

    除非你写在修改了CAPTION后,马上弹出,否则只能用TIMER了。
    CAPTION不是事件,它不触发任何的事件或者方法。它只是一个属性。