If you want to get answer from message dialog box, it’s so easy
you must define some boolean variable for that, and use Select Case function for action
dim Answer as Boolean Variant
Answer=MsgBox(”Please Click below for test”,VBOkCancel,”Test”)
Select Case Answer
Case VBOk: msgbox(”You click OK Button”)
Case VBCancel: msgbox(”You click Cancel Button”)
end Select
No comments:
Post a Comment