VFP编写的看图片软件例子

【实例简介】VFP编写的看图片软件例子

看图片的例子，大图片可看到细节，大于屏幕的图片，自动移动可显示的区域，看清每一个细节

【实例截图】

【核心代码】

Lpara tcDefaPath,pcode
Local lcNewPath,cPcode,ln序号
lcNewPath = iif(Type([tcDefaPath])=[C], tcDefaPath, [])
cPcode= iif(Type([pcode])=[C], pcode, [])
ln序号=0
If !empt(lcNewPath) and DirEctory(lcNewPath)
    *Thisform.Caption = "正在搜索:" ADDBS(lcNewPath)
Local lnFiles, laFiles[1], liFiles, treejs
lnFiles = aDir(laFiles, addb(lcNewPath) [*.*], [D],1)
If lnFiles > 0
*= Asort(laFiles)
For liFiles = 1 to lnFiles
If [D] $ laFiles(liFiles,5).and.!LEFT(laFiles(liFiles,1),1)=[.].and.!left(laFiles(liFiles,1),2)=[..]
    ln序号=ln序号 1
    z_xh=z_xh 1
    treejs=cPcode ALLTRIM(STR(ln序号)) "_"     
    IF EMPTY(cPcode)
  oNode0 = o.nodes.add(,1,treejs,laFiles(liFiles,1),,)
ELSE
  oNode0 = o.nodes.add(cPcode,4,treejs, laFiles(liFiles,1),,)
ENDIF
INSERT blank
REPLACE ckey with treejs,xdpath with ALLTRIM(lcNewPath laFiles(liFiles,1)) '\',xh with z_xh
IF UPPER(ALLTRIM(xdpath))==UPPER(ALLTRIM(thisform.combo1.DisplayValue))
  dq_num=z_xh
ENDIF 
Endif
ENDFOR
Endif
ENDIF
RETURN ln序号

.
├── seepic
│   ├── 10135.ico
│   ├── DATETIME.ICO
│   ├── MYCTRL.VCT
│   ├── Main.prg
│   ├── Newex.ocx
│   ├── RIGHTMENU.MPR
│   ├── SEEPIC.BAK
│   ├── SEEPIC.EXE
│   ├── SEEPIC.EXE.BAK
│   ├── SEEPIC.EXE.pec2bac
│   ├── Thumbs.db
│   ├── XYseepic.INI
│   ├── _command.prg
│   ├── backup
│   │   ├── vfpscrollbar.VCT
│   │   └── vfpscrollbar.vcx
│   ├── config.fpw
│   ├── crdfle12.ico
│   ├── czy.smu
│   ├── ico
│   │   ├── DEFAULT.jpg
│   │   ├── Delete.png
│   │   ├── Edit.png
│   │   ├── add.png
│   │   ├── btmback.png
│   │   ├── btmback1.png
│   │   ├── del.png
│   │   ├── del0.png
│   │   ├── del1.png
│   │   ├── del2.png
│   │   ├── delte.png
│   │   ├── efangda.png
│   │   ├── efangda1.png
│   │   ├── efangda2.png
│   │   ├── efullscreen.png
│   │   ├── efullscreen1.png
│   │   ├── efullscreen2.png
│   │   ├── exit.png
│   │   ├── fangd.png
│   │   ├── fangd1.png
│   │   ├── fangd2.png
│   │   ├── fangda.png
│   │   ├── fangda1.png
│   │   ├── fangda2.png
│   │   ├── fullscreen.png
│   │   ├── fullscreen1.png
│   │   ├── fullscreen2.png
│   │   ├── fxleft.png
│   │   ├── fxleft1.png
│   │   ├── fxleft2.png
│   │   ├── fxnext.png
│   │   ├── fxnext1.png
│   │   ├── fxprew.png
│   │   ├── fxprew1.png
│   │   ├── fxright.png
│   │   ├── fxright1.png
│   │   ├── fxright2.png
│   │   ├── hdp.png
│   │   ├── hdp1.png
│   │   ├── huandeng.png
│   │   ├── huandeng1.png
│   │   ├── huandeng2.png
│   │   ├── insert.png
│   │   ├── play.png
│   │   ├── play1.png
│   │   ├── play2.png
│   │   ├── qiehuan.png
│   │   ├── qiehuan1.png
│   │   ├── qiehuan2.png
│   │   ├── save.png
│   │   ├── stop.png
│   │   ├── stop1.png
│   │   ├── stop2.png
│   │   ├── sxiao.png
│   │   ├── sxiao1.png
│   │   ├── sxiao2.png
│   │   ├── xuanzhuan.png
│   │   ├── xuanzhuan1.png
│   │   └── xuanzhuan2.png
│   ├── init.BAK
│   ├── init.FXP
│   ├── init.prg
│   ├── myctrl.vcx
│   ├── mypicture.SCT
│   ├── mypicture.scx
│   ├── readini.FXP
│   ├── readini.prg
│   ├── rightmenu.MNT
│   ├── rightmenu.MPX
│   ├── rightmenu.SCT
│   ├── rightmenu.mnx
│   ├── rightmenu.scx
│   ├── secur05.ico
│   ├── secur05a.ico
│   ├── seepic.PJT
│   ├── seepic.SCT
│   ├── seepic.VFP
│   ├── seepic.dat
│   ├── seepic.pjx
│   ├── seepic.scx
│   ├── seepicmain.SCT
│   ├── seepicmain.scx
│   ├── seepicproc.BAK
│   ├── seepicproc.FXP
│   ├── seepicproc.prg
│   ├── seepics.SCT
│   ├── seepics.scx
│   ├── setup.SCT
│   ├── setup.scx
│   ├── tbill.BAK
│   ├── tbill.FXP
│   ├── vfpscrollbar.VCT
│   ├── vfpscrollbar.vcx
│   ├── writeini.FXP
│   ├── writeini.prg
│   ├── xfxm.smu
│   ├── xyclass.vct
│   ├── xyclass.vcx
│   ├── xyseepic.BAK
│   ├── xyseepic.FXP
│   ├── xyseepic.SCT
│   ├── xyseepic.prg
│   ├── xyseepic.scx
│   ├── xywnluser.smu
│   ├── 程序1.FXP
│   ├── 表单1.SCT
│   ├── 程序1.prg
│   ├── 表单1.scx
│   ├── 浏览器示例.SCT
│   ├── 浏览器示例.scx
│   ├── 资源浏览器示例.PJT
│   └── 资源浏览器示例.pjx
└── 好例子网_seepic(7).rar

3 directories, 131 files