2011年12月9日
vb 关闭窗口
摘要： 引用：http://tieba.baidu.com/f?kz=622302614Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd A 阅读全文
posted @ 2011-12-09 14:33 镇水古月 阅读(389) 评论(0) 推荐(0) 编辑
vb 退出窗口提示
摘要： 引用 ：http://zhidao.baidu.com/question/73897568.htmlPrivate Sub Form_Unload(Cancel As Integer) If MsgBox("是否退出？", vbYesNo) = vbNo Then Cancel = 1End Sub 阅读全文
posted @ 2011-12-09 11:28 镇水古月 阅读(218) 评论(0) 推荐(0) 编辑