DeclareFunctionGetDriveTypeLib"kernel32"Alias"GetDriveTypeA"(ByValnDriveAsString)AsLong 该函数返回系统驱动器类型,返回值为5即为光驱,下面这个例子仅作简单的演示,你可以做进一步的改进以用在您自己的应用程序当中 PrivateSubGetCDRomLetter() DimDriveNumAsInte...

2018-06-17 17:11:11

----数据库管理系统的开发人员经常感叹的一个问题就是：我们中国人的报表太复杂了！无规则、嵌套、斜线、交叉线等历来都是困挠开发人员的最大问题。设计一个数据库固然有一定的技巧，设计数据操作也固然需要一定的逻辑分析能力，但这些问题对一般的开发人员来说应该是...

2018-06-17 17:11:09

为了方便用户使用和使系统具有灵活性，大多数Win-dows应用程序将用户所做的选择以及各种变化的系统信息记录在初始化(INI)文件中。因此，当系统的环境发生变化时，可以直接修改INI文件，而无需修改程序。由此可见，INI文件对系统功能是至关重要的。本文将介绍采用Visual...

2018-06-17 17:11:07

Dimlink1AsNewADODB.Connection DimrsAsNewADODB.Recordset DimpageAsInteger DimpubdatapathAsString Subopendatabase(datapathAsString)'打开数据库函数 page=1'首次定义打开时的页码为1 Iflink1.State=1Then'如果以连接过，则关闭，初始化下次事务 link1.Close:list...

2018-06-17 17:11:09

我们可以通过Windowsshell.方法使用ShellExecuteAPI函数来加载文档。这个函数将自动的来判断文件的默认打开方式，并用默认的打开方式来开启文档。 以下就是ShellExecute函数的声明： PublicDeclareFunctionShellExecuteLib"shell32.dll"Alias_ "ShellExecuteA"_ (ByVal...

2018-06-17 17:11:08

一、API函数的声明、自定义数据类型及常量的定义 ----注意：API函数的声明应在应用程序的代码模块中进行，且一条声明必须放在一行中'API函数的声明 PublicDeclareFunctionFindFirstFileLib "kernel32"Alias"FindFirstFileA" (ByVallpFileNameAsString, lpFindFileDataA...

2018-06-17 17:11:06

当要处理字符串中的每一个字符时，可以将字符串赋值到一个byte数组中进行操作。要记住：每一个Unicode字符对应双字节。这种方法通常要快许多，因为节省了大量的Mid$函数操作以及大量的临时字符串空间。下面的代码是统计字符串中空格数目的最快方法 Dimb()asByte,countA...

2018-06-17 17:11:04

----做为一种简捷、系统的Windows应用程序开发工具，VisualBasic5具有强大的数据处理能力，提供了多种数据访问方法，可以方便地存取MicrosoftSQLServer、Oracle、XBase等多种数据库，被广泛应用于建立各种信息管理系统。但是，VB缺乏足够的、符合中文习惯的数据表格输...

2018-06-17 17:11:05

前一节介绍了对数据访问的一些限制，其中讲到了对表的锁定。这一节将进一步地谈一谈如何实现共享数据的锁定操作。要保护共享数据，可以在用户编辑数据时锁定它。数据被锁定后，任何用户都可以读取它，但仅有一个用户可以修改它。MicrosoftJet可以在以下三种不同的级别...

2018-06-17 17:11:03

若程序使用Access资料库开发，当Access资料库损毁时，一进入程序，便会出现以下讯息： Can'topendatabase'name'.Itmaynotbeadatabasethatyourapplicationrecognizes,orthefilemaybecorrupt.(Error3049) 若是程序中未加入错误判断，程序便会中断跳出，这会给予使用者极...

2018-06-17 17:11:01