command控件的运用

Question

我一个command，想点击第一次提示“是否需要下降”的提示窗口信息，确认后，再次点击这个command才执行command里的内容：
Private Sub Command21_Click()
.........
End Sub

Answer 1

private sub command21_click()
    if msgbox("是否需要下降？",vbquestion+vbyesno+vbdefaultbutton2,"提示")=vbyes then
        '执行语句
    end if
end sub

Answer 2

Private bContinue As Boolean
Private Sub Command1_Click()
  If bContinue = False Then                    '如果标志位为False  弹出对话框
     If MsgBox("是否需要下降", vbYesNo, "") = vbYes Then            '选择是，修改标志位
        bContinue = True
     End If
     Exit Sub
  End If
  
  '如果标志位为True，执行操作
  bContinue = False               '恢复标志位
  '下面进行你要的操作。
  '…………
End Sub

Answer 3

Private Sub Command1_Click()
    If Command1.Tag = "1" Then
        Command1.Caption = "点击我"
        Command1.Tag = "0"
    
        …… '你的执行代码
    Else
        Command1.Caption = "是否需要下降"
        Command1.Tag = "1"
    
    End If
    
End SubPrivate Sub Form_Load()
    Command1.Caption = "点击我"
    
End Sub

Answer 4

Private Sub Command21_Click() 
    If MsgBox("是否需要下降？", vbQuestion Or vbYesNo) = vbCancel Then Exit Sub
    '下面是你的执行语句
    '……
End Sub    

Answer 5

If MsgBox("是否需要下降？", vbQuestion Or vbYesNo) = vbno Then Exit Sub 

Answer 6

BestBadGod和jhone99都可以，不错，我采用了！king06与Leftie只是个提示信息，点击第二次也会弹出提示，不过还是谢谢你们了。
结贴了！！！！呵呵 
非常感谢四位！