在VF表单中添加messagebox,需要VF表单的任何对象事件中运用MESSAGEBOX( )函数。
MESSAGEBOX()函数,显示一个用户定义对话框。
句法:
MESSAGEBOX(cMessageText[,nDialogBoxType[,cTitleBarText]])
参数:
cMessageText,指定显示在对话框中的文本。使用在cMessageText回车(CHR(13))的消息的一部分在对话框中移动到下一行。对话框的高度和宽度增加为足以包含cMessageText。
nDialogBoxType,指定显示在该对话框中,显示该对话框时的默认按钮,并且该对话框的行为的按钮和图标。
下图中,对话框按钮值0-5指定显示在对话框中的按钮。图标值16,32,48,和64指定显示在对话框中的图标。默认值0,256,和512指定哪个按钮在对话框中是默认按钮。显示该对话框时,选择默认按钮。
nDialogBoxType可多达三个值的总和 - 从每个前述表中的一个值。例如,如果nDialogBoxType是290(2+ 32 +256),则指定的对话框具有以下特点:
*放弃,重试和忽略按钮。
*该消息框显示问号图标。
*第二个按钮,重试,是默认的。
实施实例代码:
cMessageTitle = 'My Application'cMessageText = 'Record not found. Would you like to search again?'
nDialogType = 4 + 32 + 256
* 4 = Yes and No buttons
* 32 = Question mark icon
* 256 = Second button is default
nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
DO CASE
CASE nAnswer = 6
WAIT WINDOW 'You chose Yes'
CASE nAnswer = 7
WAIT WINDOW 'You chose No'
ENDCASE
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)