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

Please support us!