Function AskMsgBox(strMassege As String, Optional strTitle As String) As Boolean
\n‘\ubb3c\uc74c \uba54\uc2dc\uc9c0.<\/p>\n
Dim Msg, Style, Help, Ctxt, Response ‘, MyString
\nMsg = strMassege ‘ \uae30\ubcf8 \uba54\uc2dc\uc9c0.
\nStyle = vbYesNo + vbQuestion + vbDefaultButton2 ‘ Define buttons.
\n‘Title = Title ‘ \uae30\ubcf8 \uc81c\ubaa9.
\n‘Help = “DEMO.HLP” ‘ \uae30\ubcf8 \ub3c4\uc6c0\ub9d0 \ud30c\uc77c.
\nCtxt = 1000 ‘ \uae30\ubcf8 \ud56d\ubaa9
\n‘ \uad6c\ubb38.
\n‘ \uba54\uc2dc\uc9c0 \ud654\uba74 \ud45c\uc2dc.
\nResponse = MsgBox(Msg, Style, strTitle, Help, Ctxt)
\nIf Response = vbYes Then ‘ \uc0ac\uc6a9\uc790\uac00 \uc608\ub97c \uc120\ud0dd.
\nAskMsgBox = True
\nElse ‘ \uc0ac\uc6a9\uc790\uac00 \uc544\ub2c8\uc624\ub97c \uc120\ud0dd.
\nAskMsgBox = False
\nEnd If<\/p>\n
End Function<\/p>\n","protected":false},"excerpt":{"rendered":"