VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb教程之关闭另一个程序

你可以使用API函数FindWindow和PostMessage来寻找一个窗口并且关闭它。下面的范例演示如何关闭一个标题为"Calculator"的窗口。 

Dim winHwnd As Long 
Dim RetVal As Long 
winHwnd = FindWindow(vbNullString, "Calculator") 
Debug.Print winHwnd 
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  


For this code to work, you must have declared the API functions in a module in your project. You must put the following in the declarations section of the module. 

Declare Function FindWindow Lib "user32" Alias _ 
"FindWindowA" (ByVal lpClassName As String, _ 
ByVal lpWindowName As String) As Long 
Declare Function PostMessage Lib "user32" Alias _ 
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ 
ByVal wParam As Long, lParam As Any) As Long 
Public Const WM_CLOSE = &H10

相关教程