MsgBox Function

একটি বার্তা সম্বলিত ডায়ালগ বাক্স প্রদর্শিত হয় এবং একটি মান প্রদান করে থাকে।

সিনট্যাক্স:


MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]])

প্রদান মান:

Integer

প্যারামিটার:

পাঠ্য: স্ট্রিং এক্সপ্রেশন ডায়ালগ বাক্সে একটি বার্তা আকারে প্রদর্শিত হয়। লাইনব্রেক Chr$(13) দ্বারা সন্নিবেশ করানো যায়।

DialogTitle: ষ্ট্রিং এক্সপ্রেশন ডায়ালগের শিরোনাম বারে প্রদর্শিত হয়। যদি বাতিল করা হয়, তাহলে নিজ নিজ অ্যাপ্লিকেশনের নাম প্রদর্শিত হবে।

টাইপ: যেকোনো ইনটিজার এক্সপ্রেশন যা ডায়ালগের ধরন, একই সাথে প্রদর্শনের জন্য সংখ্যা এবং বোতামের ধরন এবং আইকনের ধরনও উল্লেখ করে থাকে। টাইপ একটি বিট প্যাটার্ণের সমাহার প্রতিনিধিত্ব করে (ডায়ালগ এলিমেন্ট এদের নিজ নিজ মান যুক্ত করে নির্ধারণ করা যাবে):

মান

Named constant	Integer value	Definition
MB_OK	0	Display OK button only.
MB_OKCANCEL	1	Display OK and Cancel buttons.
MB_ABORTRETRYCANCEL	2	Display Abort, Retry, and Ignore buttons.
MB_YESNOCANCEL	3	Display Yes, No, and Cancel buttons.
MB_YESNO	4	Display Yes and No buttons.
MB_RETRYCANCEL	5	Display Retry and Cancel buttons.
MB_ICONSTOP	16	Add the Stop icon to the dialog.
MB_ICONQUESTION	32	Add the Question icon to the dialog.
MB_ICONEXCLAMATION	48	Add the Exclamation Point icon to the dialog.
MB_ICONINFORMATION	64	Add the Information icon to the dialog.
	128	First button in the dialog as default button.
MB_DEFBUTTON2	256	Second button in the dialog as default button.
MB_DEFBUTTON3	512	Third button in the dialog as default button.

প্রদান মান:

Named constant	Integer value	Definition
IDOK	1	OK
IDCANCEL	2	Cancel
IDABORT	3	Abort
IDRETRY	4	Retry
IDIGNORE	5	Ignore
IDYES	6	Yes
IDNO	7	No

Error codes:

5 Invalid procedure call

উদাহরণ:


Sub ExampleMsgBox
Dim sVar As Integer
 sVar = MsgBox("Las Vegas")
 sVar = MsgBox("Las Vegas",1)
 sVar = MsgBox( "Las Vegas",256 + 16 + 2,"Dialog title")
 sVar = MsgBox("Las Vegas", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYCANCEL, "Dialog title")
End Sub