• 注册
  • 关于作者
    企业认证:趣记站长
    关注 6 粉丝 4 喜欢 9 内容 992
    江西省·南昌市
    聊天 送礼
    • 查看作者
    • VFP中确定驱动器类型的两几种方法

          在应用程序的设计中,

      如何解决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

      有时我们需要知道用户的驱动器的配置情况,在VFP中有多种方法可以实现,现介绍如下:

          一、通过调用GetDriveType API函数来完成。

          下面的代码就可以检索出系统中所有的驱动器:

          表单的ACTIVATE方法:

              Declare Long GetDriveType In "kernel32" String nDrive

              Dime I, DrvName, DrvType

              For I = 0 To 25

                  DrvName = Chr(I + 65) + ":"

                  DrvType = GetDriveType(DrvName)

                  Do Case

                      Case DrvType =  2

                          Print "驱动器" + DrvName + "是一个软盘驱动器"

                      Case DrvType = 3

                          Print "驱动器" + DrvName + "是一个硬盘驱动器"

                      Case DrvType = 4

                          Print "驱动器" + DrvName + "是一个可移去式驱动器或网络驱动器"

                      Case DrvType = 5

                          Print "驱动器" + DrvName + "是一个CD-ROM驱动器"

                      Case DRIVE_RAMDISK

                          Print "驱动器" + DrvName + "是一个RAM 盘"

                      Case Else

                  EndcCase

              Next I

          二、使用FOXTOLLS.FLL中的DriveType函数。

             表单的ACTIVATE方法:

             Set Libriry To FoxTools.FLL

              Dime I, DrvName, DrvType

              For I = 0 To 25

                  DrvName = Chr(I + 65) + ":"

                  DrvType = DriveType(DrvName)

                  Do Case

                      Case DrvType =  2

                          Print "驱动器" + DrvName + "是一个软盘驱动器"

                      Case DrvType = 3

                          Print "驱动器" + DrvName + "是一个硬盘驱动器"

                      Case DrvType = 4

                          Print "驱动器" + DrvName + "是一个可移去式驱动器或网络驱动器"

                      Case DrvType = 5

                          Print "驱动器" + DrvName + "是一个CD-ROM驱动器"

                      Case DRIVE_RAMDISK

                          Print "驱动器" + DrvName + "是一个RAM 盘"

                      Case Else

                  EndcCase

              Next I

      VFP5中实现带图标列表项
      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
    • 72
    • 单栏布局 侧栏位置: