屏幕菜单与LIST并存——对《怎样在保留屏幕菜单的前提下实现LIST的功能》的改进

标签：软件技巧大全,http://www.duosi8.com 屏幕菜单与LIST并存——对《怎样在保留屏幕菜单的前提下实现LIST的功能》的改进,
  BROWS1.PRG
        & set stat off
        set heading off
        set talk off
        set colo to 7/1
        clea
        use XTSM
        set colo to +5/1
        @2,25 say '叶片编码库浏览:'
        set colo to 7/2
        @3,0 say space(80)
        @19,0 say space(80)
        set colo to 7/0
        @4,0 clea to 18,79
        LLKZ=.T.
        DO WHILE LLKZ
        go top
        set colo to gr+/1
        @20,0 say space(80)
        @20,20 say '按任意键向后翻页......'
        set colo to 7/0
        if reccount()< =14
        @4,0 clea to 18,79
        @3,0 say "
        disp off all
        else
        @4,0 clea to 18,79
        @3,0 say "
        disp off next 14
        @20,0 say space(10)+'1'
        nothing=inkey(0)
        restnum=reccount()-14
        N=0
        do while restnum> 14
        @4,0 clea to 18,79
        @3,0 say "
        skip
        disp off next 14
        N=N+1
        @20,0 say N+1
        restnum= reccount()-14*N
        nothig=inkey(0)
        enddo
        @4,0 clea to 18,79
        @3,0 say "
        disp off next restnum
        endif
        set colo to gr+/1
        @20,0 say space(80)
        @20,15 say '已到结尾!'
        YORN='Y'
        @20,30 say '再浏览一遍?(Y/N)' get YORN
        read
        if YORN='Y'.or. YORN='y'
        LLKZ=.T.
        set colo to 7/1
        @20,0 say space(80)
        set colo to 7/0
        else
        LLKZ=.F.
        set colo to 7/1
        clea
        set colo to 3+/1
        @10,25 say '浏览结束!'
        set colo to /2
        @8,20 to 12,44
        set colo to 7/1
        @20,20 say ' 按任意键退出......'
        nothing=inkey(0)
        clea
        return
        endif
        ENDDO
        * use
       
 

，屏幕菜单与LIST并存——对《怎样在保留屏幕菜单的前提下实现LIST的功能》的改进

• 电脑硬件知识
• 软件知识
• 操作系统
• 电脑故障
• qq大全
• Word教程
• Excel教程
• 电脑技巧
• 网络知识
• 软件技巧
• 网赚
• 网络应用
• 笔记本知识
• 电脑知识
• 电脑维修
• 软件故障

• · 为何QQ总弹出安全登录验证2则
• · 多媒体升级时常见故障的处理
• · 利用硬盘驱动器号制作防扩散FOXPRO程序
• · 高速视频转换借力CUDA
• · 在KMPlayer中手动切换解码器
• · 如何突破IP加MAC绑定
• · 如何让ACDSee成为默认的图片浏览器
• · SnagIt连续抓以多个窗口
• · SnagIt直接截取灰度图片
• · Nero快速制作精美的光盘封面
• · 完美卸载XP快速卸载顽固软件
• · VoptXP测试驱动器性能
• · VirturlDriver让虚拟光驱开机时自动加载
• · 通过递归调用来搜索文件
• · AutoCAD复制粘贴图纸导致死机
• · 监控软件导致QQ无法登录
• · 提高WindowsXP启动速度的方法
• · Office 2007无法正常卸载怎么办
• · 如何用批处理一次建立或删除多个目录
• · 教你Windows百毒不侵的13个妙招
• · ATI显卡在线看电影时花屏应该如何解决