Futurebasic/语言/参考/def drawimagefile
外观
✔ 外观 ✔ 标准 ✔ 控制台
DEF DRAWIMAGEFILE ( fName$ , vRef% )
2001年5月(5.0版)
您可以使用此语句直接从磁盘显示图片。图片实际上可能太大而无法加载到内存中。您可以使用DEF GETIMAGEFILERECT
提前确定图片的大小。以下示例显示了如何打开文件并在窗口中显示它。
为了使用此例程,您必须包含名为“Subs Image Files.Incl
”的文件,如下面的示例所示。
INCLUDE "Subs Image Files.Incl"
DIM fName$
DIM @vRef%
DIM r as rect
gFBUseNavServices = _ztrue
fName$ = FILES$(_fOpenPreview,,"选择要打开的文件", vRef%)
LONG IF fName$[0]
DEF GETIMAGEFILERECT(fName$,vRef%,r)
OFFSETRECT(r,-r.left,-r.top)
WINDOW 1,fName$,@r,_docNoGrow
DEF DRAWIMAGEFILE(fName$,vRef%)
END IF
PRINT @(1,1)"点击退出"
DO
UNTIL FN BUTTON
DEF GETIMAGEFILERECT