菜鸟中的菜鸟——请问我在form1上放了个button，现在想点击button后就让这个form1程序退出怎么实现？？？

Question

请问在click事件里怎么写啊？？谢谢先；）

Answer 1

unload me
unload me
unload me
unload me
unload me
unload me
unload me挣分太容易了！！！

Answer 2

如果有多个窗体，想只是退出form1就unload me，结束整个程序就end

Answer 3

Private Sub cmdQuit_Click()
    
    Dim intExit As Integer
    
    intExit = MsgBox("Be sure to exit?", vbYesNo)
    If intExit = 6 Then
        Unload Me
        End               
    End If
    
End Sub

Answer 4

只是关闭本窗体,双击按钮,在代码里写
UNLOAD ME如果退出整个程序END

Answer 5

退出整个程序
强烈建议不要用End，太粗暴了~如下就可以了：
Dim i As Long
For i = Forms.Count - 1 To 0 Step -1
    Unload Forms(i)
Next

Answer 6

unload me 
在click事件下写~~
我也得点分哈

Answer 7

Private Sub cmdQuit_Click()
    arr= MsgBox("Be sure to exit?", vbYesNo,"系统提示")
    If arr =vbok Then
        End    '如果卸载窗体就用unload me 退出程序用 end
    else 
        Cancle=true           
    End If  
End Sub
接分

Answer 8

为什么不用END呢?
粗暴是什么意思?
我刚学VB,不太懂.