制作VB安装程序问答(Package & Deployment)
李海
本文发表在2000年4月17日 《计算机世界》25期
制作安装程序往往是程序设计的最后一步，同时也是重要的一步，因为运行安装程序往往是用户的第一个操作。下面就介绍一些制作
Visual Basic
安装程序时常遇到问题的解决方法。
1
、一个非常简单的
VB
程序是否可以不制作安装程序
问：假如我的
VB5
开发的程序很简单，只用到了
ShellExecute()
这个
API
，
以及
Command Button
，我能不能不做安装盘，在所有客户机器上（
WIN95/98/NT
）都能正常使用程序？如不制作安装程序，与
EXE
放一起的应该包括哪些文件？
答：对于一个非常简单的
VB5
程序，没有使用额外的
OCX
控件，在
Win98/2000
下是可以正常运行的，而不需要制作安装盘。因为
Win98/2000
带有
VB5
程序所需要的
DLL
文件。但在
Win95/NT 4.0
下一般是不行的，因为缺少必要的文件。如果用户的机器上安装有
IE 4.0/5.0
，那么应该也是可以不制作安装盘的。在一般情况下，不制作安装盘就不不能保证程序的正确运行。你制作的安装盘所包括的
DLL
中，除了
Vb5stkit.dll
只是安装时使用，安装后就不需要了，其他
DLL
都是不可缺少的。虽然对于某些机器而言，由于安装过其他软件，可能不需要某个
DLL
，
但要想在所有的机器上都正确运行，一个文件都不能少。所以为了避免由于缺少某个文件或注册不正确而使程序无法运行，我建议你还是制作安装盘比较保险。如果
你的程序是放在网上供别人下载的，为了减少下载文件的大小，可以这样做：将你的程序单独打成一个包，如果用户已经有了运行
VB5
程序所需要的有关文件，就只需下载你的程序；然后，在网页上提供一个
VB5
的运行时间库的链接（如
http://download.microsoft.com/download/vb50pro/utility/1/win98/EN-US/Msvbvm50.exe
），如果用户的机器上没有这些文件，让它单独下载运行库。这是一种比较通行的方法。
2
、是否一定要注册
ActiveX
控件
问：若在一个程序中使用了其他的控件
,
如何在没有注册该控件的机器上运行
,
是不是一定要制作安装程序或注册该控件呢
?
答：在
Win95/98
下，如果你的控件和
EXE
文件在同一个目录中，或者控件文件放置在
System
目录中，
EXE
程序运行时会自动找到所需要的
OCX
文件并注册。但是这种方法在
WinNT
下不适用，
NT
下必须先注册控件才能保证
EXE
程序的正常运行。另外，这种自动注册有一些毛病，如果机器已�
相关文档：
Private Declare Function OpenThread Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwThreadId As Long) As Long
Private Const THREAD_ALL_ACCESS = &H1F03FF
OpenThread(THREAD_ALL_ACCESS, 1, 线程ID) '由线程ID取得线程句柄,返回线程句� ......
简单
在Global.asa文件中加入如下的代码：
Java代码
1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
2.
3. Sub Application_OnStart
4.
5. '当服务器开启时，设置在线用户计数器为0
6. Application("ActiveUsers") = 0
7.
......
摘要： 本文阐述了在VB程序中利用ADO对象动态创建数据库和数据表的方法，这些方法在开发VB数据库应用程序中很有实用价值，它可以提高数据库程序灵活性。
关键词：数据库、数据表、ADO、ADOX
1: 问题的提出
在Visual Basic中，常用的数据访问接口有下列三种：数据库访问对象(DAO，Data A ......
该方法不需要使用API及第三方控件
这里使用的是VB的UserControl控件的AsyncRead方法
步骤如下:
1、添加一个用户控件，设置InvisibleAtRuntime属性为true，目的是运行时该控件不显示用户界面，就象Timer控件一样。
2、到自定义控件的代码窗口，添加如下代码
Option Explicit
'下载结果枚举
Public Enum Downloa ......
Option Explicit
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1
Pri ......
