清空列表数据时弹出提示确定对话框

Question

List1.Clear '清空列表数据我想让他在清空之前弹出提示框 我好确定是否清空防止不小心误点

Answer 1

那你在运行前
If MsgBox("are you sure you want to clear the list?", vbYesNo) = vbYes Then
 list1.clear
end if

Answer 2

If MsgBox("確定是否清除數據?", vbQuestion + vbYesNo + vbDefaultButton2, "確認清除數據?") = vbYes Then
        List1.Clear
End If

Answer 3

aa=Msgbox("你真的要清空么?" ,vbquestion+vbyesno,"请确定")
if aa=vbyes then List1.Clear 

Answer 4

if Msgbox("你真的要清空么?" ,vbquestion+vbyesno,"请确定")=vbyes then List1.Clear