我從cww那裡引用了以下的桯式要把某一個程式關閉
結果程式會自動結束,該程式也沒有關閉
我是想做廣告過濾的小程式
有人可以幫我嗎?
我是用NT workstation 4.0 sp6(sp5也是一樣)
vb6 sp3 中文版


Dim winHwnd As Long
Dim winHwnd2 As Long
Dim RetVal As Long
Dim LT As String
LT = List1.Text
winHwnd = FindWindow(vbNullString, LT)
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
  If RetVal = 0 Then
    MsgBox "Error posting message."
  End If
Else
MsgBox "The Calculator is not open."
End If
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(1) 人氣()


留言列表 (1)

發表留言
  • 小吳
  • 上面的程式並沒有錯呀! 如果上面這支程式執行後沒有任何結果,就代表你根本就沒有找到正確的 window。否則至少會出現 MsgBox 吧!
    另外,WM_CLOSE只對有控制盒的視窗有效喔!