系统自带的函数messagebox，不能控制字体的大小、背景和前景颜色不能变化等诸多不便
想自己编写一个messagebox函数
现在有2个问题需要解决，还望各位高手赐教
1、得到字符串的宽度
   "12345"+chr(10)+"12345678"+chr(10)"12"
   如果能准确地得到字符串的长度为8
   再用8*WFONT(2)=字符串的宽度
2、得到字符串的高度
  如上，高度是3*字符串的高度

各位有什么好的方法啊？

[ 本帖最后由 zjj1974 于 2014-9-10 10:24 编辑 ]

看看 FONTMETRIC() 函数

参阅
AFONT()
GETFONT()
SYSMETRIC()
TXTWIDTH()

谁有好的方法 说说

2楼已经给出了方法，应该没有其他更好的方法。

如果以行数作为高度，以最长字段的字节数作为宽度（仅供参考）
 cf="12345"+chr(10)+"12345678"+chr(10)+"12"
 nf=alines(k,cf,CHR(10)) && 行数
 for i=1 to nf-1
     nmax=MAX(LEN(k(i)),LEN(k(i+1)))
 endfor
 ?nmax && 最长字节数

稍补充一下楼上：
如果以行数作为高度，以最长字段的字节数作为宽度（仅供参考）
cf="12345"+chr(10)+"12345678"+chr(10)+"12"
nf=alines(k,cf)  && 行数 &&此处省略换行符，一个换行符 (CHR(10)) 或回车符 (CHR(13)) 表明了一行的结束。也可以使用这些字符的组合 (CHR(10) + CHR(13) 或 CHR(13) + CHR(10)) 表明一行的结束
nmax=0     && 赋初值
FOR EACH i IN k
  nmax=MAX(nmax,LEN(i))
endfor
?nmax && 最长字节数
 

[ 本帖最后由 jyxfp 于 2014-9-11 08:58 编辑 ]

谢谢各位了

用行数乘字体高度的方法是行不通的

回复6楼 jyxfp，你的说法很全面。昨天草率举了一个3行字串例子，不通用。今天打开电脑想纠正一下，结果看到你的说法和我想得似乎一字不差。谢谢！谢谢！

[ 本帖最后由 qingfameng 于 2014-9-11 14:58 编辑 ]

要准确获得字符串的显示高度和宽度，采用字符数乘以固定值是行不通的，除非指定为等宽字体（如：宋体）。
我有一个思路可供参考。
1. 在表单的Init事件中接收要显示的字符串 tcStr
2. 利用 Aline()函数将字符串 tcStr 转换为数组 aStr
3. 根据 aStr 元素的个数在表单上添加对应数量的 Label 控件，并设置 AutoSize=.t.，Caption=aStr[i]
4. 检测每个Label的宽度，根据最大宽度值设置表单的宽度，表单的宽度 = Label控件最大宽度 + 固定值
5. 根据 Label控件的高度设定 Label 控件的 Top值，Label2.Top = Label1.Top + Label1.Height + 2（或其他固定值）
6. 假设最后一个标签是LabelX，则表单的高度 = LabelX.Top + LabelX.Height + 固定值

上述方法利用了标签控件的AutoSize=.t.属性，它会根据要显示的内容和字体设置自动调整控件的宽度和高度，再根据标签的高度和宽度调整表单的大小。