行业应用

开发平台：

VFP

ICORSC.PRG：源码内容

							*********************************************************
*
* Name: ICORSC
*       此程序显示出SDK资源库中的所有图符资源
*
**********************************************************
set talk off
set esca off
set path to ..
do LoadSDK                    && 装入SDK
priv AreaSave
AreaSave=sele(0)
if !used("SDKRSC")
   use ("SDKRSC") orde RSCTAG
endi
sele SDKRSC
go top
priv X,Y
X=10
Y=0
set colo to n/w
=Cls()
scan for rtri(BELONGTO)=="_ICO"
   =showico(X,Y,RscName)
   @Y/18+2,X/8 say rtri(RSCNAME)
   X=X+104
   if X>600
    	X=10
		Y=Y+54
		if Y>426
			=inke(0)
     		set colo to n/w
			=Cls()
  		   Y=0
	   endi
	endi
ends
=inke(0)
sele (AreaSave)
retu

						