NSB.MsgBox

NSB.MsgBox(function, prompt[, buttons[, title]])

Description

MsgBox opens a dialog box, and waits for the user to tap on a button. While it is displayed, no other actions may be taken by the user. Unlike MsgBox, this function does not halt the program: execution of the next statement will continue immediately. It will not wait for the user’s input. The advantages of this function are that title can be specified and that there are many more options for its appearance.

The function argument is the name of a subroutine or function in your program, which will be called when the control is dismissed. When the user clicks on button, function will be called with one of the values in the MsgBox Return Values table.

prompt, is a string expression that is displayed in the body of the dialog box. It can be plain text or HTML.

The optional parameter, buttons, is a numeric or string expression that specifies which buttons to draw and which icon to use. The default value for buttons is 0. Other values are obtained by adding the desired constants from the Button Constant table. The values vbCritical, vbQuestion, vbExclamation and VBInformation can be added to the button value to specify a preset icon.

buttons can also be a comma separated string of button names. In this case, the name of the button is returned. An example of a custom button string would be “btn1,btn2,btn3”. To have a preset icon, append its number to the string, as in "btn1,btn2,btn3;32" for three custom buttons and a question icon.

A custom icon can be specified by adding “;” and the name of the icon within the button string. The icon should be 33x33 pixels, but will be resized if different. For example, "btn1,btn2;images/customicon.gif" would result in two custom buttons and a custom image for icon.

The optional parameter, title, is a string expression that is displayed in the title bar of the dialog box. If title is not supplied, the title of the app is used.

To dismiss an NSB.MsgBox from your program instead of waiting for the user, call NSB.closeMsgBox().

Table 15: Button constants

Constant	Value	Description
vbOKOnly	0	OK Button only
vbOKCancel	1	OK and Cancel buttons
vbAbortRetryIgnore	2	Abort, Retry, and Ignore buttons
vbYesNoCancel	3	Yes, No, and Cancel buttons
vbYesNo	4	Yes and No buttons
vbRetryCancel	5	Retry and Cancel buttons
vbCritical	16	Critical Message icon
vbQuestion	32	Warning Query icon
vbExclamation	48	Warning Message icon
vbInformation	64	Information Message icon

Table 16: MsgBox return values

Constant	Value	Description
vbOK	1	Ok
vbCancel	2	Cancel
vbAbort	3	Abort
vbRetry	4	Retry
vbIgnore	5	Ignore
vbYes	6	Yes
vbNo	7	No

Example

Title = "MsgBox Tour"
 
'Simple Message
NSB.MsgBox("Hello World!")
 
'Simple Message with a custom title
NSB.MsgBox("Brief Tour of MSGBOX!",0, Title)
 
'Yes/No Prompt. Call yesNoDone when finished
NSB.MsgBox(yesNoDone,"Do you like this tour?", vbYesNo+vbQuestion, Title)
 
'Three Custom Buttons. Call custDone when finished. 
NSB.MsgBox(custDone,"How is NS Basic/App Studio?", "Fun,Great,Sweet", Title)
 
'Custom Button and Icon
NSB.MsgBox("Who is the Happy Guy?", "Mario;mario.jpg", Title)
 
Sub yesNoDone(result)
  If result=vbYes Then Text1.value="Yes" Else Text1.value="No"
End Sub
 
Sub custDone(result)
  Text2.value=result
End Sub

Output

(depends on button. See nsbMsgBox sample)

Related Items

MsgBox