用VB开发与机器环境无关的程序

在使用Visual Basic开发应用程序时，我们经常会遇到这样一个问题:生成的可执行文件可以在开发的机器上运行，但是复制到另一台机器上就不能运行了。这种现象称为应用与机器环境有关。造成这种现象的原因主要有两个:一是程序调用一些文件，如数据库文件、文本文件和图片文件等。，由于路径使用不当而无法定位；其次。Visual Basic编译的EXE文件不是实际的EXE文件。不包括Visual Basic系统中的标准控件和开发过程中使用的第三方控件。图1可以生动地说明这一现象。

所以，要解决用VB开发的应用程序与机器环境的相关性，必须从两个方面入手，一是保证应用程序可以调用使用过的文件，二是在应用程序发布时，同时发布所有使用过的控件和DLL文件。

开发独立于路径的应用程序。

无论应用理论发展得多好，它的成功都取决于它是否能在任何机器的任何目录下运行，这就要求应用程序是自包含的，不仅包含所有使用的文件，而且独立于路径。实现应用程序路径无关的方法有两种:一种是使用VB的PATH属性。APP对象；第二种是把调用文件放在光盘上，直接调用。

1.使用VB。APP.PATH实现路径独立

这种方法的主要思想是在调用文件时使用相对路径。因为VB不支持类似DOS的相对路径，比如调用当前目录下的“hh1.bmp”文件，写“hh1.bmp”和”。\hh1.bmp "将导致错误。为了解决这个问题，VB提供了一个VB。APP对象，它有一个名为PATH的属性，记录了可执行文件所在的路径，可以在运行时访问。

用这种方法创建路径无关的应用程序的要点如下:

(1)为应用程序(项目)创建一个目录来存储已建立的表格或其他文件。

(2)把应用程序调用的文件放在这个目录或者这个目录的子目录中。根据引用文件的类型建立子目录，比如存放图片的子目录叫PIC，存放表格的目录叫DBF等。

(3)除了可执行文件中包含的文件(比如设计时图片框中加载的图片)，其他所有文件都用相对路径调用，绝对路径禁用。

这样，在复制应用程序时，只要将应用程序目录下的所有文件(包括子目录)复制到任意一个目录，应用程序就不会出现找不到文件导致的错误。

下面是一个程序实例，展示了一系列角度逐渐变化的地球图片，从而形成了地球自转的动画。用VB设计一个窗体，放置一个名为Image1的图片框(strech =。t .)，并向该窗体添加一个计时器控件。该控件被命名为定时器1(间隔=25，使能=。t .)。项目存放在A:\exam下，图片文件存放在A:\EXAM1\PIC下。

使用绝对路径，程序代码如下:

将t1显示为整数

私有子窗体_Load()

T1 = 0注:T1记录时钟事件的数量。

末端接头

私有子定时器1_Timer()

t1 = t1 + 1

T1 < 100然后注意:总共有100张图片。

电流= t1 Mod 8

注意:current表示当前应该显示哪个画面。

filename $ = " a:\ exam \ pic \ earth " & & current & & "。jpg "注意:图像文件名(绝对路径)

1.image . picture = load picture(filename $)注意:显示图片。

其他

结束:程序结束。

如果…就会结束

末端接头

这个程序使用绝对路径调用外部文件(fearth7.jpg，earth0.jpg)。当考试目录的内容全部复制到其他机器上，取出软盘，运行程序时会出现找不到文件的错误。如果VB。采用APP.PATH属性，重写形成图像文件名的语句，如下所示:

filename $ = VB . app . path & & " \ pic \ earth " & & current & & "。jpg "注意:形成显示图片的文件名。

这样，无论考试目录完全复制到任何机器上，程序都可以运行。