编辑框如何打开.rtf格式的文件?
再请教一个问题。
因为.rtf的文件都很大,原来存在表字段中,把表体积弄得很大。现在想把.rtf的内容用表的主索引作为文件名单独存放,如何打开,保存,及删除。
[解决办法]
为表单新增一个方法程序(假设方法名为GETRTF),其代码如下
LPARAMETERS CFILENAME
LOCAL CRTF
CRTF=CREATEOBJECT([RICHTEXT.RICHTEXTCTRL.1])
CRTF.TEXTRTF=FILETOSTR(CFILENAME)
RETURN CRTF.TEXT
表单INIT事件代码
THISFORM.EDIT1.VALUE=GETRTF([AAA.RTF])