vb点击按钮退出程序

⑴ vb中退出按钮什么命令

vb中退出按钮使用Exit Sub命此丛令。

Exit XXXX是VB中用于提前结森腊樱束某一模块的命令。
例局明如：
Exit Sub
Exit Function
Exit For
Exit Do
…………

⑵ vb6.0 点击退出按钮弹出对话框怎么弄点击确定退出，点击取消返回原来的登陆界面

vbOKCancel表示含有【确定】、【取消】按钮，“= vbOK”是选择了【确定】按钮。
这渣桐样做非常简便：
Private Sub cmdExit_Click()
If MsgBox("确定要退出吗？", vbOKCancel, "警告") = vbOK Then
Unload Me '卸载登录窗棚梁肢体
Else
'什么也不做，留在登录链世窗体
End If
End Sub

祝你好运！

⑶ VB程序 退出按钮

在窗桥坦乱体上添敏档加一个按钮，编辑代码：
Private Sub Command1_Click()
Unload Me
End Sub

这是正常退出，会执行Private Sub Form_Unload(Cancel As Integer)内容，例如退出确认之类（如果你写了的话）

如果你有多个窗体，那么
Private Sub Command1_Click()
End
End Sub

此乃强制结束，跳过一切步骤，直接结束信胡。类似结束进程。

⑷ 单击退出程序的VB代码怎么写

最简单的：

PrivateSub

Command1_Click()

EndEndSub

End语句帮助你关闭所有已经打开的文件，显示的窗口，以及申请的内存等等，能够满足90%的需要，但是End也不是万能的，所以严谨的程序员还是会自己释放所占用的资源，完毕后再退出。

(4)vb点击按钮退出程序扩展阅读

[vb]代码库

view sourceprint?

PrivateSubForm_Unload(CancelAsInteger)

DimiAnswerAsInteger

iAnswer = MsgBox("确定要退出吗?", vbYesNo)

IfiAnswer = vbNoThen

Cancel =True

Else

End

EndIf

EndSub

⑸ vb命令按钮退出怎么设置

在退出按钮的Click事件中用Unload
Me就可以关闭窗体。
Private
Sub
Command1_Click()
Unload
Me
End
Sub
答案补充
代码升睁衡就是我回早拍答那些了，双击按钮把代码输入进去就行了。对了，你的是VB6还是VB.Net啊吵做？VB6就是用Unload
Me，如果是VB.Net应该用Me.Close()。
这个是VB.Net的代码：
Private
Sub
Button1_Click(ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
Button2.Click
Me.Close()
End
Sub

⑹ 求在VB中，点击command按钮将其界面关闭的代码怎么写啊

Sub Command1_Click() End End Sub 这样是将整个程序关闭了。 Sub Command1_Click() Me.Hide End Sub 这样是将当前窗口隐藏 Sub Command1_Click() Form2.Hide End Sub 这样是将form2这个窗口隐藏。

⑺ VB里想点击按钮就可退出运行中的子程序，怎么写代码

试试下腊铅面的例子,在窗体上添加一指局饥个唯返命令按钮,运行时,先点窗体,再点命令按钮

Dim A As Boolean
Private Sub Command1_Click()
A = Not A
End Sub

Private Sub Form_Click()
A = True
Do
DoEvents
Cls
Print Timer
Loop While A = True
End Sub

⑻ vb中怎么设计一个按钮点击后退出该程序(按钮是新的) 菜鸟求教

Private Sub Command1_Click()
If MsgBox("是否要退出程来序源?", vbYesNo + vbExclamation, "退出程序") = vbNo Then
MsgBox "继续留在本窗体中", vbExclamation, "退出程序"
Else
MsgBox "程序准备退出运行状态", vbExclamation, "退出程序"
End
End If
End Sub

⑼ VB运行结束按钮点击才结束，需要代码

一）首先需要是每个运行窗体有以下代码，使窗体右上角那个关闭的X按钮失效。

PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
Cancel=True
EndSub

二）应该使用MsgBox 函数来选择是否结束程序。

MsgBox 函数

在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。

以下是一段使用MsgBox 函数来结束程序的按钮代码：

PrivateSubCommand4_Click()
DimMsg,Style,Title,Help,Ctxt,Response,MyString
Msg="结束程序?"'定义信息。
Style=vbYesNo+vbCritical+vbDefaultButton2'定义按钮。
Title="结束程序"'定义标题。
Help="DEMO.HLP"'定义帮助文件。
Ctxt=1000'定义标题
'上下文。
'显示信息。
Response=MsgBox(Msg,Style,Title,Help,Ctxt)
IfResponse=vbYesThen'用户按下“是”。
MyString="Yes"'完成某操作。
UnloadFrmComm
UnloadfrmCeshi
UnloadfrmchaxunNew
End
Else'用户按下“否”。
MyString="No"'完成某操作。
EndIf
EndSub

三）注意上述结束程序使用了Unload语句

Unload 语句

从内存中卸载窗体或控件。

不要使用End语句，End 语句提供了一种强迫中止程序的方法。Visual Basic
程序正常结束应该卸载所有的窗体。只要没有其它程序引用该程序公共类模块创建的对象并无代码执行，程序将立即关闭。