MsgBox - Revision history

John at 13:14, 6 October 2015

2015-10-06T13:14:12Z

← Older revision		Revision as of 13:14, 6 October 2015
Line 54:		Line 54:
	00060 MsgBox('Are the labels aligned correctly?', 'check Printer', 'Yn', 'Qst')><2 then goto ALIGN		00060 MsgBox('Are the labels aligned correctly?', 'check Printer', 'Yn', 'Qst')><2 then goto ALIGN

	The example above will produce a message box like ~~this~~. "Yes" is the default button and will have an added border when running the program):		The example above will produce a message box like the image below.
			"Yes" is the default button and will have an added border identifying it as such when running the program.

	[[image:messagebox.jpg]]		[[image:messagebox.jpg]]

John at 13:11, 6 October 2015

2015-10-06T13:11:53Z

← Older revision		Revision as of 13:11, 6 October 2015
Line 52:		Line 52:

	;Complete Example:		;Complete Example:
	~~00010~~ ~~dim prompt$*200~~		00060 MsgBox('Are the labels aligned correctly?', 'check Printer', 'Yn', 'Qst')><2 then goto ALIGN
	~~00020 let prompt$="~~Are the labels aligned correctly?"
	~~00030 let title$="Check~~ Printer"
	~~00040 let Buttons$="~~Yn"
	~~00050 let ICON$="QST"~~
	~~00060 MSGBOX(PROMPT$, TITLE$, BUTTONS$~~, ~~ICON$~~)><2 then goto ALIGN

	~~Will~~ produce a message box like this ("Yes" is the default button and will have an added border when running the program):		The example above will produce a message box like this. "Yes" is the default button and will have an added border when running the program):

	[[image:messagebox.jpg]]		[[image:messagebox.jpg]]

Laura at 21:32, 12 February 2015

2015-02-12T21:32:52Z

← Older revision		Revision as of 21:32, 12 February 2015
Line 1:		Line 1:
	~~MSBOX~~ (<PROMPT$>[, <TITLE$>][, <BUTTONS$>][, <ICON$>])		MSGBOX (<PROMPT$>[, <TITLE$>][, <BUTTONS$>][, <ICON$>])

	The '''MsgBox''' [[Internal Function]] will display a Windows Message Box. It has four possible parameters:		The '''MsgBox''' [[Internal Function]] will display a Windows Message Box. It has four possible parameters:

John: /* Acceptable values for ICON$ */

2014-12-15T18:57:26Z

Acceptable values for ICON$

← Older revision		Revision as of 18:57, 15 December 2014
Line 37:		Line 37:
	\|\|'''INF'''\|\|Displays (i) Information icon		\|\|'''INF'''\|\|Displays (i) Information icon
	\|-		\|-
	\|\|'''ERR'''\|\|Displays Error Icon, which is a stop sign		\|\|'''ERR'''\|\|Displays Error Icon, which is a stop or a red x sign (depends upon OS)
	\|-		\|-
	\|\|'''EXCL'''\|\|Displays Exclamation Point		\|\|'''EXCL'''\|\|Displays Exclamation Point
Line 44:		Line 44:
	\|-		\|-
	\|}		\|}



	===Examples===		===Examples===

Laura at 00:39, 22 May 2014

2014-05-22T00:39:17Z

← Older revision		Revision as of 00:39, 22 May 2014
Line 1:		Line 1:
			MSBOX (<PROMPT$>[, <TITLE$>][, <BUTTONS$>][, <ICON$>])

	The '''MsgBox''' [[Internal Function]] will display a Windows Message Box. It has four possible parameters:		The '''MsgBox''' [[Internal Function]] will display a Windows Message Box. It has four possible parameters:
	*PROMPT$		*PROMPT$

John: moved MSGBOX to MsgBox over redirect

2014-02-26T17:43:31Z

moved MSGBOX to MsgBox over redirect

← Older revision	Revision as of 17:43, 26 February 2014
(No difference)

Laura: /* Line breaks in a message box */

2013-10-29T19:53:47Z

Line breaks in a message box

← Older revision		Revision as of 19:53, 29 October 2013
Line 86:		Line 86:
	To force a new line in the text of a message box insert a CHR$(13) or HEX$("0D0A"), carriage return, in the text at the point where the word wrap should occur. If no line is forced Windows will determine a wrap point based on the width of the monitor.		To force a new line in the text of a message box insert a CHR$(13) or HEX$("0D0A"), carriage return, in the text at the point where the word wrap should occur. If no line is forced Windows will determine a wrap point based on the width of the monitor.

	For example:		For example (and demonstrating the EXCL icon):

	00100 let prompt$="Did you already run the ENDOFMONTH program?"&hex$("0D0A")&"If you did not, and continue anyways, records may be lost."&hex$("0D0A")&hex$("0D0A")&"Well - DID YOU?"		00100 let prompt$="Did you already run the ENDOFMONTH program?"&hex$("0D0A")&"If you did not, and continue anyways, records may be lost."&hex$("0D0A")&hex$("0D0A")&"Well - DID YOU?"

	[[image:messagebox2.jpg]]		[[image:messagebox2.jpg]]

Laura: /* Line breaks in a message box */

2013-10-29T19:48:10Z

Line breaks in a message box

← Older revision		Revision as of 19:48, 29 October 2013
Line 85:		Line 85:
	====Line breaks in a message box====		====Line breaks in a message box====
	To force a new line in the text of a message box insert a CHR$(13) or HEX$("0D0A"), carriage return, in the text at the point where the word wrap should occur. If no line is forced Windows will determine a wrap point based on the width of the monitor.		To force a new line in the text of a message box insert a CHR$(13) or HEX$("0D0A"), carriage return, in the text at the point where the word wrap should occur. If no line is forced Windows will determine a wrap point based on the width of the monitor.

			For example:

			00100 let prompt$="Did you already run the ENDOFMONTH program?"&hex$("0D0A")&"If you did not, and continue anyways, records may be lost."&hex$("0D0A")&hex$("0D0A")&"Well - DID YOU?"

			[[image:messagebox2.jpg]]

			Two &hex$("0D0A") in a row will display a completely skipped line.

	<noinclude>		<noinclude>
	[[Category: Internal Functions]]		[[Category: Internal Functions]]
	</noinclude>		</noinclude>

Laura: /* Examples */

2013-10-29T19:41:09Z

Examples

← Older revision		Revision as of 19:41, 29 October 2013
Line 59:		Line 59:
	00060 MSGBOX(PROMPT$, TITLE$, BUTTONS$, ICON$)><2 then goto ALIGN		00060 MSGBOX(PROMPT$, TITLE$, BUTTONS$, ICON$)><2 then goto ALIGN

	Will produce a message box like this ("Yes" is the default button):		Will produce a message box like this ("Yes" is the default button and will have an added border when running the program):

	[[image:messagebox.jpg]]		[[image:messagebox.jpg]]

Laura at 19:38, 29 October 2013

2013-10-29T19:38:42Z

← Older revision		Revision as of 19:38, 29 October 2013
Line 9:		Line 9:
	'''TITLE$''' is a string containing the title of the message box.		'''TITLE$''' is a string containing the title of the message box.

	'''BUTTONS$''' indicates which buttons will be displayed in the message box. If you don't specify a button configuration the OK button is displayed.The value of the button the user selects is returned to BR in CNT ~~(see below)~~.		'''BUTTONS$''' indicates which buttons will be displayed in the message box. If you don't specify a button configuration the OK button is displayed.The value of the button the user selects is returned to BR in CNT.

	~~'''ICON~~$~~''' indicates what ICON, if any,~~ will ~~be displayed~~. ~~If you don't specify a title~~, ~~a blank title bar is displayed.~~		The BUTTON$ value that is capitalized will become the default button (selected by the Enter key). For example, if "Yn" or "Ync" is specified then the Yes button becomes the default button. If "yN" or "yNc" is specified then the No button is displayed as the default button. The case of the "c" has no bearing on default button focus. If both or neither are capitalized, ie: "YN" or "yn", then the default is that YES is pre-selected.

	~~====Examples====~~

	~~00010 Let MSGBOX( PROMPT$, TITLE$, BUTTONS$, ICON$)~~
	~~00020 Let VALUE= MSGBOX(~~ "~~Record not Found~~", "~~Error~~", "OK", "~~ERR~~")
	~~00030 Let MSGBOX(~~ "~~End of Data~~", ~~"NOTE")~~

	~~;Complete Example~~:

	~~00010 dim prompt$*200~~
	~~00020 let prompt$=~~"~~Are the labels aligned correctly?"~~
	~~00030 let title$=~~"~~Check Printer~~"
	~~00040 let Buttons$=~~"~~Yn"~~
	~~00050 let ICON$="QST"~~
	~~00060 Let boxanswer=MSGBOX(PROMPT$, TITLE$, BUTTONS$~~, ~~ICON$)~~
	~~00070 if boxanswer><2~~ then ~~goto ALIGN~~

	====Acceptable values for BUTTONS$====		====Acceptable values for BUTTONS$====
Line 43:		Line 27:
	\|}		\|}


			'''ICON$''' indicates what ICON, if any, will be displayed. If you don't specify a title, a blank title bar is displayed. All ICON$ values are case insensitive.

	====Acceptable values for ICON$====		====Acceptable values for ICON$====

	{\|		{\|
	\|-		\|-
	\|\|'''INF'''\|\|Displays (i) Information icon		\|\|'''INF'''\|\|Displays (i) Information icon
	\|-		\|-
	\|\|'''ERR'''\|\|Displays Error Icon ~~(e.g.~~ stop sign)		\|\|'''ERR'''\|\|Displays Error Icon, which is a stop sign
	\|-		\|-
	\|\|'''EXCL'''\|\|Displays Exclamation Point		\|\|'''EXCL'''\|\|Displays Exclamation Point
Line 59:		Line 44:


	~~All Buttons~~$ ~~and Icon~~$ ~~values are case insensitive except that if~~ "Yn" or "~~Ync~~" ~~is specified then the Yes button becomes the default button and if~~ "yN" or "~~yNc~~" ~~is specified then the No button is displayed as the default button~~ (~~will be selected by the Enter key~~)~~. The case of~~ the "c" ~~has no bearing on default button focus, and~~ "YN" or "yn" ~~are ambiguous with respect to~~ default button ~~focus~~.
			===Examples===
			00010 Let MSGBOX( PROMPT$, TITLE$, BUTTONS$, ICON$)
			00020 Let VALUE= MSGBOX( "Record not Found", "Error", "OK", "ERR")
			00030 Let MSGBOX( "End of Data", "NOTE")


			;Complete Example:
			00010 dim prompt$*200
			00020 let prompt$="Are the labels aligned correctly?"
			00030 let title$="Check Printer"
			00040 let Buttons$="Yn"
			00050 let ICON$="QST"
			00060 MSGBOX(PROMPT$, TITLE$, BUTTONS$, ICON$)><2 then goto ALIGN

			Will produce a message box like this ("Yes" is the default button):

			[[image:messagebox.jpg]]

	====Returned Values====		====Returned Values====
Line 66:		Line 68:
	{\|		{\|
	\|-		\|-
	\|\|'''0'''\|\|An error occurred such as not enough memory. (quite rare)		\|\|'''0'''\|\|An error occurred such as not enough memory. (This is quite rare.)
	\|-		\|-
	\|\|'''1'''\|\|The OK button was selected.		\|\|'''1'''\|\|The OK button was selected.
Line 78:		Line 80:
	\|}		\|}

	To force a new line in the text of a message box insert a CHR$(13) or HEX$("0D0A"), carriage return,in the text at the point where the word wrap should occur. If no line is forced Windows will determine a wrap point based on the width of the monitor.		In our example, if YES is not selected, it will return to the program and go to the line label ALIGN, which turns out to be another message box about aligning paper in the printer. If YES is selected, it simply continues with the program to print the labels:
			00060 MSGBOX(PROMPT$, TITLE$, BUTTONS$, ICON$)><2 then goto ALIGN

			====Line breaks in a message box====
			To force a new line in the text of a message box insert a CHR$(13) or HEX$("0D0A"), carriage return, in the text at the point where the word wrap should occur. If no line is forced Windows will determine a wrap point based on the width of the monitor.

	<noinclude>		<noinclude>
	[[Category: Internal Functions]]		[[Category: Internal Functions]]
	</noinclude>		</noinclude>