• 注册
  • 关于作者
    企业认证:趣记站长
    关注 6 粉丝 4 喜欢 9 内容 992
    江西省·南昌市
    聊天 送礼
    • 查看作者
    • VFP5中实现带图标列表项

      在Windows95中打开“我的电脑”,可以看到窗口中每一项目的面前都有一个小图标,这些图标代表着项目的类型,如果是文件夹,就显示“文件夹”图标,如果是文本文件,

      如何解决VFP6中文版安装错误
      VFP编辑框中实现自动更正的方法,Visual FoxPro 9.0更强大了,如何用VFP的dbf进行SQL Server 7.0 的分布式查询,VFP智能感应的二次开发,谈两种数据库内容HTML格式的输出方法,用FoxWeb在网上快速发布你的FOXPRO数据库,在VFP5.0中实现中英文自动切换,在VFP中实现跟变式组合框及椭圆图形菜单,通过编程运行拨号网络连接,VFP中实现在浏览器中运行应用程序方法,为Visual FoxPro应用程序增加文件压缩功能,在VFP中模拟动画,用Visual FoxPro 5.0 设计数据文件结构浏览器,VFP表跟踪实现方法,让VFP程序在浏览器中运行,怎样在Visual FoxPro 中增加与去除网络联接,谈谈VFP和SQL SERVER搭配做C/S系统,卡拉OK字幕着色动态显示,利用Foxpro在网络环境下开发数据库管理软件经验点滴,用Foxpro制作Windows输入法码表
      Visual Foxpro

      就显示“记事本” 图标。在资源管理器中,也是如此。这种带图标的显示方式,非常直观,笔者经过摸索,在VFP50(Visual FoxPro 50)中也实现了这样的功能。具体实现如下:

        1新建一表单,往其中添加一个列表框和一个命令按钮。

        2列表框和命令按钮的属性设置如下:

      控件名

      属性

      list1

      ColumnCount 1

      ColumWidths 60

      IntegralHeight .T.

      FontSize 10

      RowSourceType 0(或1,不能为其他值)

      RowSource 空

      command1

      Caption 演示

        3命令按钮的Click事件代码如下:

        &&往列表框中添加项目

        ThisFormList1.List(1)=′MAIN.SCX′

        ThisFormList1.List(2)=′FORM1.SCX′

        ThisFormList1.List(3)=′DEMO1.DBF′

        ThisFormList1.List(4)=′SALES.DBF′

        ThisFormList1.List(5)=′TESTDATA.DBC′

        ThisFormList1.List(6)=′MAIN.PRG′

        ThisFormList1.List(7)=′MYFUNC.PRG′

        ThisFormList1.List(8)=′SALES.FRX′

        ThisFormList1.List(9)=′SS.FRX′

        ThisFormList1.List(10)=′SALES.QPR′

        N=ThisFormList1.ListCount

        FOR i=1 TO N

        &&从后缀名判断类型

        cExtension=UPPER(RIGHT(ThisForm.List1.List(I),3))

        &&bmp文件在当前目录下

        DO CASE

        CASE cExtension=″DBF″

        ThisForm.List1.Picture(I)=″table.bmp″

        CASE cExtension=″PRG″

        ThisForm.List1.Picture(I)=″apps.bmp″

        CASE cExtension=″SCX″

        ThisForm.List1.Picture(I)=″forms.bmp″

        CASE cExtension=″DBC″

        ThisForm.List1.Picture(I)=″database.bmp″

        CASE cExtension=″FRX″

        ThisForm.List1.Picture(I)=″report.bmp″

        CASE cExtension=″QPR″

        ThisForm.List1.Picture(I)=″query.bmp″

        OTHERWISE

        ThisForm.List1.Picture(I)=″fox.bmp″

        ENDCASE

        ENDFOR

        执行的结果是在每一项目前都有与项目类型对应的图标。将列表框换成组合框(ComboBox)也能达到同样效果。

      如何解决VFP6中文版安装错误
      VFP编辑框中实现自动更正的方法,Visual FoxPro 9.0更强大了,如何用VFP的dbf进行SQL Server 7.0 的分布式查询,VFP智能感应的二次开发,谈两种数据库内容HTML格式的输出方法,用FoxWeb在网上快速发布你的FOXPRO数据库,在VFP5.0中实现中英文自动切换,在VFP中实现跟变式组合框及椭圆图形菜单,通过编程运行拨号网络连接,VFP中实现在浏览器中运行应用程序方法,为Visual FoxPro应用程序增加文件压缩功能,在VFP中模拟动画,用Visual FoxPro 5.0 设计数据文件结构浏览器,VFP表跟踪实现方法,让VFP程序在浏览器中运行,怎样在Visual FoxPro 中增加与去除网络联接,谈谈VFP和SQL SERVER搭配做C/S系统,卡拉OK字幕着色动态显示,利用Foxpro在网络环境下开发数据库管理软件经验点滴,用Foxpro制作Windows输入法码表
      Visual Foxpro

    • 0
    • 0
    • 0
    • 83
    • 单栏布局 侧栏位置: