软件需求：VFP 8.0 以上

MsgBox() 函数使用说明：此函数基于 VFP 系统函数 MESSAGEBOX() 修改扩展而成，
与原 MESSAGEBOX() 实现完美兼容，基本用法请参看 VFP 关于 MESSAGEBOX() 的说明，
核心代码借鉴了两个老外的帖子，表示感谢！

修改了返回值：选取第一、二、三个按钮分别返回 1，2，3，超时返回 -1，
若关闭按钮可用，点击关闭或按 Esc 键等同于选取最后一个按钮

Function MsgBox( eText,nType,cTitle,nTimeout, ;
    cButtonText,nTransparency,cIcon )
******************************************************************************************************************************************
**    eText 必选，其它均为可选参数
**    第一个数值型参数必须是 nType
**    第二个数值型参数必须是 nTimeout，并且 nType 不可省略
**    第三个数值型参数必须是 nTransparency，并且 nType、nTimeout 不可省略
**    第一个字符型参数必须是 cTitle
**    第二个字符型参数必须是 cButtonText，并且 cTitle 不可省略
**    第三个字符型参数必须是 cIcon，并且 cTitle、cButtonText 不可省略
**    cButtonText 示例    ：'按钮 &1,\禁用按钮,按钮(&B)'
**    cButtonText        ：三个按钮分别显示为    按钮 1    禁用按钮    按钮(B)
**    cButtonText        ：此时可用 ALT+1 和 ALT+B 选取第 1 / 3 个按钮，第 2 个按钮为禁用状态，不可选取
**    cButtonText        ：最多替换 3 个按钮文本，使用    ,    （逗号）分隔
**    cButtonText        ：第一位加上    \    （反斜杠）以禁用按钮
**    cButtonText        ：若 nType 规定的按钮数量与 cButtonText 规定的替换文本个数不一致，将自动调整按钮数量，并依次进行替换
**    nTransparency        ：不透明度有效作用值 0 - 100。<1 , >99 不透明，<30 几乎不可见，建议设置 >70
**    cIcon            ：图标文件完整路径（*.ico）
******************************************************************************************************************************************

[此贴子已经被作者于2017-12-9 13:00编辑过]

收到的鲜花

• mywisdom88 于 2017-12-09 14:08 送鲜花  20朵   附言：好文章

非常感谢提供下载支持

学习啦，谢谢！

自己定义一个表单就行，可以更具特色，与整个程序风格一致。

真是太好了，好用，谢谢分享。
个人认为：最多替换 3 个按钮文本，当按钮文本大于3个时会出错，建议红色处更改一下，忽略掉多余的按钮文本：
oMsgBox=Createobject('clsMessageBox')
If !Empty(cButtonText)    && 按钮文本不为空才更改
    nWdCnt=Getwordcount(cButtonText,',')
    For i=1 To Min(nWdCnt,3)    &&此处原程序为nWdCnt
        oMsgBox.aButtons[i]=Alltrim(Getwordnum(cButtonText,i,','))
    Next
……

的确必须改一下，避免非预期的错误
但要改上面一行

nWdCnt=Min(Getwordcount(cButtonText,','),3)

[此贴子已经被作者于2017-12-11 09:30编辑过]

好东西，收藏！

好东西，谢谢楼主

百度找到，非常好，谢谢楼主