前言：
现时姐妹们对“vbnet程序退出事件”大体比较着重，咱们都需要了解一些“vbnet程序退出事件”的相关内容。那么小编也在网上搜集了一些有关“vbnet程序退出事件””的相关内容，希望大家能喜欢，小伙伴们快快来学习一下吧！Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'检索处理顶级窗口的类名和窗口名称匹配指定的字符串。这个函数不搜索子窗口。
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'用于将一条消息放入到消息队列中。
Private Const WM_CLOSE = &H10 '变量定义
Private Sub Command16_Click(Index As Integer)
Dim WinHwnd As Long '窗口句柄
Dim RetVal As Long '返回值（长整形）
Dim Mnq(5) As Integer '模拟器快捷方式的序号（每5个一组）
Dim i as integer
For i=1 to 5
Mnq(i) = 10 + 5 * Index + i
Next i
For i = 1 To 5
Text7.Text = Format(Mnq(i),"#00")
winHwnd = FindWindow(vbNullString, "模拟器" & Text7.Text) '用FindWindow函数查找指定的"模拟器"窗口
Delay 1000
If winHwnd <> 0 Then '不为0则表示找到窗口
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) '向窗口发送关闭信息（关闭指定模拟器窗口）
If RetVal = 0 Then '返回信息为0则表示失败
MsgBox "发送失败" '发送失败
End If
Else
MsgBox "没有找到程序" '没有找到程序End If
Next i
End Sub
标签： #vbnet程序退出事件
