在用GDI打印文字时，我想用gpGraphics中的measurestringa来测量文字的宽度和高度，但怎么样试都没有用，不知道有没有大神能给给予指导。用其他语言很容易，但VFP中好多类型没有，实在搞不定。求求了！

form.init:
DECLARE integer CreateCompatibleDC IN gdi32 integer
DECLARE integer DeleteDC IN gdi32 integer
Set ClassLib To "_gdiplus.vcx"
PUBLIC loGraphics ,lfont
loGraphics = CreateObject("gpGraphics") &&创建画布对象
lfont=CreateObject("gpfont")


form.计算文字宽:
PARAMETERS 计算文本,字体名称,字体大小,字体风格
LOCAL _图形,mdc_id,_文本矩形,_字体
mdc_id=CreateCompatibleDC(0)
IF mdc_id=0

    RETURN 0
ENDIF
PUBLIC a,c,d,rect
rect=NEWOBJECT("gprectangle")
IF loGraphics.CreateFromHDC(mdc_id)
    lfont.Create(字体名称,字体大小,字体风格,2)
    a=loGraphics.MeasureStringw(计算文本,lfont,@rect,,@c,@d)
ENDIF
?c,d


command.click:
thisform.计算文字宽("微软雅黑微软雅黑","微软雅黑",30,)


想要结果：文字相关字体和字号下出来的宽度，但出不来。
出来的是
8   1

用
?a
结果是
对象

[此贴子已经被作者于2023-11-6 08:57编辑过]

sych哥，你好，辛苦了。
你这用纯代码方式解决，也是一条思路。
但有一个问题你这个只取了有文字像素存在的区域，但文字中间都是有留白空间的，所以会导致出现一个状况，字符串两头的留白空间没有取到，但中间的却取到了
比如一个字和多个字，宽度不是倍数关系，再比如竖“丨”这个中文字，他只取了有像素的区域，所以没有达到我想要的那个效果
我试了一下，比如
同样是“宋体”和“127号”字的情况，
“丨”，w=12
“丿”，w=36
“我”，w=116
“我要”，w=245
“我要测”，w=372
小数点后的位数没写
是否有解决方法呢？

谢谢大家，我现在对_gdiplus.vcx类中的gpgraphics进行了重定义后，已经可以返回正确值了，谢谢你们，有你们真好。