微信公开课小程序热门讨论「VB里怎么设置完全关闭程序」最新回复-可以使用API函数FindWindow和PostMessage来寻找一个窗口并且关闭它。下面的范例演示如何关闭一个标题为Calculator的窗口。下面的代码放到模块中DeclareFunctionFindWindowLibuser32AliasFindWindowA(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLongFindWindowAPI函数DeclareFunctionPostMessageLibuser32AliasPostMessageA(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLongPostMessageAPI函数PublicConstWM_CLOSE=&H10常用变量定义程序代码DimwinHwndAsLong定义一个长整形变量winHwndDimRetValAsLong定义一个长整形变量RetValwinHwnd=FindWindow(vbNullString,Calculator)API函数查找Calculator这个窗口Debug.PrintwinHwnd显示这个窗口句柄IfwinHwnd0Then如不为0,表示找到窗口RetVal=PostMessage(winHwnd,WM_CLOSE,0&,0&)向这个窗口发送关闭信息IfRetVal=0Then如果返回信息为0.表示失败,未发送成功MsgBoxErrorpostingmessage.提示发送失败EndIfElseMsgBoxTheCalculatorisnotopen.提示没有找到打开的程序EndIf
在窗体的Unload过程中,加人End命令:PrivateSubForm_Unload(CancelAsInteger) 做好退出前的收尾工作 …… EndEndSub 更多有关「VB里怎么设置完全关闭程序」的疑问请扫码关注微信公开课+小程序!了解更多