Private Sub Command1_Click()
If MsgBox("是否要退出程序?", vbYesNo + vbExclamation, "退出程序") = vbNo Then
MsgBox "继续留在本窗体中", vbExclamation, "退出程序"
Else
MsgBox "程序准备退出运行状态", vbExclamation, "退出程序"
End
End If
End Sub
我是玩易语言的 不过语言应该都是相通的
按钮1被单击
end()
易语言里面是用销毁或者结束命令的 VB应该是用end结束程序的把
退出的语句是End,写在按钮的单击事件里就能退出了
两个方法:
1、Private Sub Command1_Click()
unload me
End Sub
2、Private Sub Command1_Click()
end
End Sub
用STOP 、end方法都可以,但最好用end。