Pahayag ng MsgBox

Nagpapakita ng dialog box na naglalaman ng mensahe.

Syntax:


   MsgBox prompt As String [,buttons = MB_OK [,title As String]]
   response = MsgBox( prompt As String [,buttons = MB_OK [,title As String]])

Mga Parameter:

prompt : String expression na ipinapakita bilang isang mensahe sa dialog box. Ang mga line break ay maaaring ipasok sa Chr$(13).

pamagat : String expression na ipinapakita sa title bar ng dialog. Kung tinanggal, ipinapakita ng title bar ang pangalan ng kaukulang aplikasyon.

mga pindutan : Anumang integer expression na tumutukoy sa uri ng dialog, pati na rin ang numero at uri ng mga button na ipapakita, at ang uri ng icon. mga pindutan kumakatawan sa isang kumbinasyon ng mga bit pattern, iyon ay, ang isang kumbinasyon ng mga elemento ay maaaring tukuyin sa pamamagitan ng pagdaragdag ng kani-kanilang mga halaga:

Pinangalanang pare-pareho	Halaga ng integer	Kahulugan
MB_OK	0	Ipakita lamang ang pindutan ng OK.
MB_OKCANCEL	1	Ipakita ang mga pindutan ng OK at Kanselahin.
MB_ABORTRETRYIGNORE	2	Ipakita ang Abort, Retry, at Ignore button.
MB_YESNOCANCEL	3	Ipakita ang mga button na Oo, Hindi, at Kanselahin.
MB_YESNO	4	Ipakita ang mga pindutan ng Oo at Hindi.
MB_RETRYCANCEL	5	Ipakita ang mga pindutang Subukang Muli at Kanselahin.
MB_ICONSTOP	16	Idagdag ang icon ng Stop sa dialog.
MB_ICONQUESTION	32	Idagdag ang icon ng Tanong sa dialog.
MB_ICONEXCLAMATION	48	Idagdag ang icon ng Exclamation Point sa dialog.
MB_ICONINFORMATION	64	Idagdag ang icon ng Impormasyon sa dialog.
	128	Unang button sa dialog bilang default na button.
MB_DEFBUTTON2	256	Pangalawang button sa dialog bilang default na button.
MB_DEFBUTTON3	512	Pangatlong button sa dialog bilang default na button.

Mga error code:

5 Di-wastong procedure call

Halimbawa:


Sub ExampleMsgBox
 Const sText1 = "May naganap na hindi inaasahang error."
 Const sText2 = "Gayunpaman, magpapatuloy ang pagpapatupad ng programa."
 Const sText3 = "Error"
 MsgBox(sText1 + Chr(13) + sText2,16,sText3)
 MsgBox(sText1 + Chr(13) + sText2, MB_ICONSTOP, sText3)
End Sub