制作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
程序的正常运行。另外，这种自动注册有一些毛病，如果机器已�
相关文档：
Public Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
Public Declare Function VarPtrStringArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
取对象地址: ObjPtr
取OLE对象的地址: OLE_NAME.LpOleObject
取函数地址: AddressOf
取字符串地址: StrPtr
取 ......
http://www.Experts-Exchange.com: 非常好的问题 讨论区，高手数不尽，而且这里的人很有专业精神，不会讨论一些和程序无关又无聊的问题。不过想要别人帮你 解决问题，自己也要有真诚的态度。
http://www.Codeguru.com/vb: 有名的源码讨论站 点，特点是在每个源码下面都可以跟帖讨论。
http://www.planet-source-code.co ......
——————————————————————————————————
在c#中如何使用以前c++的.lib库和.h头文件
zhujiang_1977（朱江 ......
该方法不需要使用API及第三方控件
这里使用的是VB的UserControl控件的AsyncRead方法
步骤如下:
1、添加一个用户控件，设置InvisibleAtRuntime属性为true，目的是运行时该控件不显示用户界面，就象Timer控件一样。
2、到自定义控件的代码窗口，添加如下代码
Option Explicit
'下载结果枚举
Public Enum Downloa ......
工作需要，针对java文件，作了一个行数统计的工具。统计的主要代码如下：
Set srcIn = fso.OpenTextFile(fileNm, ForReading)
Do While Not srcIn.AtEndOfStream
buf = srcIn.ReadLine
&nbs ......
