由网友(嘟嘟嘴ヤ卡哇伊)分享简介：私人小组btn_Click昏暗intAnswer为整型如果txtAddress＆LT;＆gt;中那intAnswer = MSGBOX你要保存，vbYesNo如果intAnswer = vbNo然后其他做的事情结束如果结束小组注意第二个然后语句是空白，我希望它去的else语句。我的大脑是玉米粥和放大器;我...

 私人小组btn_Click
昏暗intAnswer为整型
如果txtAddress＆LT;＆gt;中那
intAnswer = MSGBOX你要保存，vbYesNo
    如果intAnswer = vbNo然后
其他
    做的事情
结束如果
结束小组
 

注意第二个然后语句是空白，我希望它去的else语句。我的大脑是玉米粥和放大器;我告诉自己最初做了 SELECT CASE ，但我不能算出它的方式。最后我做下面的＆放大器;我不知道这是正确的步骤/建议。

 暗淡intAnswer为整型
如果txtAddress＆LT;＆gt;中那
intAnswer = MSGBOX你要保存，vbYesNo
    如果intAnswer = vbNo然后转到启动
其他
    转到启动
结束如果
退出小组
开始：
做的事情
 

解决方案

有一个更短的方式：

 如果txtAddress＆LT;＆gt;中或MSGBOX（你要保存，vbYesNo）= vbYes然后
        做的事情
结束如果
 

Private Sub btn_Click
Dim intAnswer as Integer
If txtAddress<>"" Then
intAnswer=Msgbox "Did you want to save", vbYesNo
    If intAnswer=vbNo Then 
Else
    do things
End If
End Sub

Notice the second Then statement is blank, I want it to go to the else statement. My brain is mush & I told myself initially do a SELECT CASE but I can't figure it out that way. I ended up doing the below & am not sure if that's proper procedure/recommended.

Dim intAnswer as Integer
If txtAddress<>"" Then
intAnswer=Msgbox "Did you want to save", vbYesNo
    If intAnswer=vbNo Then GoTo Start
Else
    GoTo Start
End If
Exit Sub
Start:
do things

解决方案

There's a much shorter way:

If txtAddress<>"" Or Msgbox("Did you want to save", vbYesNo) = vbYes Then
        'Do things
End If