您所在位置：主题：[转帖]其它编程技巧(1998-1999收集整理)
凡尘
[专家分：9680] 发布于 2006-02-27 14:23:00
用VB将命令行软件Windows化
刘强
有很多深受欢迎的软件，如ARJ,UNDISK等都是在DOS环境下以命令行的形式出现的。其特点就是依靠大量的参数和开关变量来实现其丰富的功能。利用Visual Basic可以简单地把此类软件改写成WINDOWS版本，其中大量的开关参数可用菜单、列表框、组合框和复选框等一一映射成图形界面。而命令的调用。可以用VB提供的SHELL函数，其语法为：
shell（命令字符串[，窗口风格]）
如以下VB小程序：
Sub Command3D1_Click ()
Dim x
x = Shell("c:\tools\arj.exe a a:\demo c:\demo\*.*")
End Sub
但使用SHELL函数 会出现WINDOWS界面和DOS黑色界面的突然切换，显得不美观。如何解决这个问题呢？使用WINDOWS的API函数WinExec,可以在隐含的窗体中启动应用程序，使命令行程序完全在后台执行。下面给出一例，将ARJ完全WINDOWS化，其效果完全可以乱真。
Sub Command1_Click ( )
Dim cmd As String
Dim hWnd As Integer
cmd = "c:\dos\ARJ.pif " & list1.Text & " -" & LIST2.Text & " " & text2.Text & " " & text1.Text ’list1、list2输入参数，text1,text2输入文件路径
hWnd = WinExec(cmdline, 0) ’参数为0则隐藏窗体
If HWND < 32 Then ’hWin<32则启动应用程序失败
MsgBox "error!"
Exit Sub
End If
While GetModuleUsage(HWND%)
mousepointer = 11 ‘鼠标呈沙漏状
WAIT% = DoEvents()
Wend
mousepointer = 1 ’鼠标复原为箭头
End Sub
在此例中，笔者使用了WINDOWS的PIF编辑器将ARJ.EXE编辑成ARJ.PIF,是因为类似ARJ这样的软件是以全屏方式执行的，而WINEXEC函数只能隐藏以窗体方式运行的程序。在编辑PIF文件时显示方式选择“窗口”，执行方式选择“后台”，这样就解决了上面提到的界面突换的问题。而调用API函数GetModuleUsage以获得应用程序结束的标志，若运行完毕则返回TRUE，若未运行完毕则让出CPU控制权，为运行ARJ提供时机。
这样的小程序完全可以实现命令行软件的WINDOWS化，而且运行起来真假难辨，有兴趣的读者不妨试一试。
怎样在VB中控制WORD
李冬梅 马重阳
使用VB编程时，有时需要调用Microsoft Word对文字进行编辑、排版及输出。为实现这种调用，可以使用Shell函数、OLE自动化、在包容器中嵌入Word对象等方法。经过试用和比较，总结出了这几种方法的各自特点。
1 使用Shell函数直接调用
语法：Shell (pathname[,windowstyle]).Pathname是指要执行的程序的名字和任何必须的参数或命令行开关，可以包括目录和驱动器名；Windowstyle是执行程序的窗口风格的数字。
使用Shell调用Word比较简单，编程量小，但必须明确指定Word所在路径，这不利于移植，而且，不能对Word进行控制，不利于程序和Word之间的数据交换。
2 使用OLE自动化控制Microsoft Word
2.1 使用方法
(1)Word为OLE自动化提供一种称为“Basic”的对象，要在VB中控制Word ,首先要定义一个引用Word中“Basic”对象的对象变量：Dim Wordobj as Object
(2)将Word 中的“Basic”对象赋给该对象：Set Wordobj=CreateObject("Word.Basic")
(3)可以使用大多数WordBasic语句和函数控制Word或Word文档，使用方法和在Word宏中使用WordBasic指令的方法基本相同。
(4)关闭Word:Set Wordobj =Nothing。
注意：“Basic”对象不支持关闭它自己的一个方法。即若在OLE自动化中关闭了Word，则对象被置为Nothing，便不能再对对象进行操作，程序出错。
2.2 VB指令与WordBasic指令的差异
(1)有一些语句和函数不能使用，包括：控制结构，如While…Wend和If…Then…Else；声明语句，如Dim；定制对话框相关的语句：FileExit语句；要求数组变量作为参数的语句或函数。
(2)也有一些指令使用方法不同。①返回字符串以一个美元符（$）结束的WordBasic函数的关键字必须括在方括号中。例如，在WordBasic宏中的GetBookmark$()语句：mark$=GetBookmark$("Address")，若用VB调用，必须这样写mark$=Wordobj.[Ge-tBookmark$]("Address")。②选择一个命令按钮用“True”,不选择用“False”
2.3 对OLE自动化的说明
Word可以为OLE自动化给另一个应用提供对象，但是它不能使用OLE自动化访问其它应用中的对象。例如：VB和Excel可以使用OLE自动化访问Word，但是Word不能使用OLE自动化访问它们。
3 在包容器中嵌入Word对象
在VB中，要访问在包容器中嵌入的Word对象，首先要在项目中插入对象。做法如下：在窗体中插入OLE控件，对象类型选择“MicrosoftWord图片”或“Microsoft Word文档”，再按“确定”。
然后用Object属性访问文档或图片，并使用WordBasic语句和函数作用于它。嵌入的对象必须在可被访问之前被激活，可以使用Action属性激活OLE控件。例如，使用下面指令访问一个嵌入在称为OLE1的OLE控件中的文档：
Dim Wordobj as Object
OLE1.Action =7
Set Wordobj =OLE1.Object.Application. WordBasic
其他方面，使用方法同OLE自动化。使用在包容器中嵌入的Word对象，Word显示的窗口大小、位置与OLE控件定义的大小、位置相同，而且工具栏显示位置与Word脱离。这一点与OLE自动化相比，是个不足。
总之，要想在Microsoft Visual Basic中控制Microsoft Word，最好使用OLE自动化，通过使用WordBasic指令对Word进行全面控制，而且，用户使用起来与使用Microsoft Word一样，非常方便。
用VB制作Windows风格安装盘
张嵘
使用VB中的“安装大师”（Setup Wizard）可以制作出高水平，标准的“Windows式”安装盘。VB制作安装盘步骤如下：
1、在制作安装盘前必须关闭并退出VB环境，然后执行Setup Wizard。
2、安装开始，要求用户选择项目文件。屏幕中的Project file文本框可键入所要制作安装的应用项目，后缀名为MAK文件，也可按Select MAK file按钮来选择项目文件。
3、选中Next按钮，屏幕显示选择需要在安装盘中包含对应功能的附加文件。
4、按Next按钮，弹出对话框，供用户选择软盘类型及驱动器设置。
5、按Next按钮，屏幕提供选择加入或删除的文件。
6、按Next按钮，Setup Wizard首先检查硬盘中是否有足够的空间存放临时文件，然后进入DOS环境，压缩所需文件，重新调用VB建立Setup.exe文件。
7、屏幕提示将压缩好的程序及文件装入格式化好的空软盘中。
至此，你的安装盘便大功告成，在安装盘中包含了Setup.exe文件和压缩后的项目文件与附加文件以及VBRUN300.DLL文件等。在制作安装盘过程中应注意以下几个问题：
1、VB所提供的Setup Wizard只能制作用VB编写的程序，并且在制作前，应检查项目文件是否包含所有需要用的附加功能，否则制作出的安装盘缺某一个文件，就无法运行程序，还要返工重新制作。
2、所选项目文件中的所有表单文件、程序代码文件都应该存成ASCII文本格式。
3、在步骤2之中，可选择屏幕上的Rebuiled the Project'ｓ EXE file检查框，便可自动将MAK文件生成EXE文件。
4、用活Save Template和Open Template按钮。这两个按钮分别用来储存及打开．VBZ文件，由于制造安装盘有许多步骤，．VBZ文件就是用来记录这些步骤的，如果能够读入以前储存的．VBZ文件就可以连续跳到某一步骤去修改，不必每次都从头一步步地设置，可以大大提高效率。
当要用安装盘安装应用程序时，可以在Windows环境下运行Setup.exe文件将软件解压安装在硬盘上。当然，如果你想使你的安装盘具备安装应用程序特定部分的功能，这时，就需要使用VB提供的“安装工具”（Setup Toolkit），它在VB的\Setupkit子目录之中。
VB安装程序的汉化
伍涛
在用Visual Basic编写好自己的应用软件后，通常需要一个安装程序来安装它。VB本身提供了几种方法，一是使用“应用程序安装向导”（Application Setup Wizard），二是修改VB提供的安装示范程序Setup.EXE（该程序的工程文件及源代码在VB\SETUPKIT\Setup1）子目录下）。
第一种方法生成全是英文提示的安装程序。而如果采用第二种方法，软件开发人员不但可以将全部的安装信息汉化，而且还可以根据自己的需要对此程序进行修改达到特定的目的，例如加密、检查产品序列号等等，因此更为灵活。
在VB3.0中，修改英文提示信息只需要在窗体代码中找到各个字符串，然后将其改为中文就可以了，但是在VB4.0中，源代码中并没有直接使用英文字符串，而是用VB4.0中新提供的字符串资源加载函数LoadRESString将定义在Setup１*.RES（16位版本为Setup116.RES，32位版本为Setup132.RES）中的字符串资源加载到程序中。这样做的最大好处就是当需要对字符串的内容进行改变时，只修改资源文件即可，无需修改程序源代码。因此我们只需要将该资源文件的全部英文字符串修改为中文就能够达到汉化的目的了。
问题在于VB4.0中并没有提代可修改字符串资源文件（*.RES）的程序，为了编辑该文件，我们必须找一个资源编辑器，例如Visual C++中提供的AppStudio或者Borland C++中的RESourcesWorkShop。用资源编辑器将Setup1*.RES文件打开后，用中文替换掉所有的英文信息，然后保存就可以了。在替换中需要注意的是，凡是含有“｛Title｝”的部分不要改变，因为这一部分用来显示安装标题，它相当于一个变量，对于安装不同的应用程序有不同的内容。
经过对字符串资源文件这样的修改，在运行Setup程序时你就能看到漂亮的中文安装界面了。而你甚至不需要对源代码做任何修改，重新生成EXE文件后，整个汉化过程就全部完成了。
&?编译VB程序时不要自动使用快速代码优化
如果你第一次使用 VB 的本地代码优化选项，你可能会立即尝试选择“优化代码选项”。可是，你知道吗？这样做并不一定保证使你的程序得到最佳性能。
除非你拥有大量内存，不然程序的性能优化一般不会运行很快。因为这将导致程序装载速度缓慢，在内存不足的机器上特别明显，这样“优化代码选项”就可能让你的用户觉得好象比“优化大小选项”还慢。
基于以上原因，你可以考虑用 P 代码编译你的程序，特别是大型的、UI 和数据库加强的程序。本地“优化代码选项”所获得的性能并不一定可以弥补程序增长大小后带来的问题。
要决定你到底适合那种编译方式，请使用 VB 企业版上的 Application Performance Explorer (APE) 。
刘强
有很多深受欢迎的软件，如ARJ,UNDISK等都是在DOS环境下以命令行的形式出现的。其特点就是依靠大量的参数和开关变量来实现其丰富的功能。利用Visual Basic可以简单地把此类软件改写成WINDOWS版本，其中大量的开关参数可用菜单、列表框、组合框和复选框等一一映射成图形界面。而命令的调用。可以用VB提供的SHELL函数，其语法为：
shell（命令字符串[，窗口风格]）
如以下VB小程序：
Sub Command3D1_Click ()
Dim x
x = Shell("c:\tools\arj.exe a a:\demo c:\demo\*.*")
End Sub
但使用SHELL函数 会出现WINDOWS界面和DOS黑色界面的突然切换，显得不美观。如何解决这个问题呢？使用WINDOWS的API函数WinExec,可以在隐含的窗体中启动应用程序，使命令行程序完全在后台执行。下面给出一例，将ARJ完全WINDOWS化，其效果完全可以乱真。
Sub Command1_Click ( )
Dim cmd As String
Dim hWnd As Integer
cmd = "c:\dos\ARJ.pif " & list1.Text & " -" & LIST2.Text & " " & text2.Text & " " & text1.Text ’list1、list2输入参数，text1,text2输入文件路径
hWnd = WinExec(cmdline, 0) ’参数为0则隐藏窗体
If HWND < 32 Then ’hWin<32则启动应用程序失败
MsgBox "error!"
Exit Sub
End If
While GetModuleUsage(HWND%)
mousepointer = 11 ‘鼠标呈沙漏状
WAIT% = DoEvents()
Wend
mousepointer = 1 ’鼠标复原为箭头
End Sub
在此例中，笔者使用了WINDOWS的PIF编辑器将ARJ.EXE编辑成ARJ.PIF,是因为类似ARJ这样的软件是以全屏方式执行的，而WINEXEC函数只能隐藏以窗体方式运行的程序。在编辑PIF文件时显示方式选择“窗口”，执行方式选择“后台”，这样就解决了上面提到的界面突换的问题。而调用API函数GetModuleUsage以获得应用程序结束的标志，若运行完毕则返回TRUE，若未运行完毕则让出CPU控制权，为运行ARJ提供时机。
这样的小程序完全可以实现命令行软件的WINDOWS化，而且运行起来真假难辨，有兴趣的读者不妨试一试。
怎样在VB中控制WORD
李冬梅 马重阳
使用VB编程时，有时需要调用Microsoft Word对文字进行编辑、排版及输出。为实现这种调用，可以使用Shell函数、OLE自动化、在包容器中嵌入Word对象等方法。经过试用和比较，总结出了这几种方法的各自特点。
1 使用Shell函数直接调用
语法：Shell (pathname[,windowstyle]).Pathname是指要执行的程序的名字和任何必须的参数或命令行开关，可以包括目录和驱动器名；Windowstyle是执行程序的窗口风格的数字。
使用Shell调用Word比较简单，编程量小，但必须明确指定Word所在路径，这不利于移植，而且，不能对Word进行控制，不利于程序和Word之间的数据交换。
2 使用OLE自动化控制Microsoft Word
2.1 使用方法
(1)Word为OLE自动化提供一种称为“Basic”的对象，要在VB中控制Word ,首先要定义一个引用Word中“Basic”对象的对象变量：Dim Wordobj as Object
(2)将Word 中的“Basic”对象赋给该对象：Set Wordobj=CreateObject("Word.Basic")
(3)可以使用大多数WordBasic语句和函数控制Word或Word文档，使用方法和在Word宏中使用WordBasic指令的方法基本相同。
(4)关闭Word:Set Wordobj =Nothing。
注意：“Basic”对象不支持关闭它自己的一个方法。即若在OLE自动化中关闭了Word，则对象被置为Nothing，便不能再对对象进行操作，程序出错。
2.2 VB指令与WordBasic指令的差异
(1)有一些语句和函数不能使用，包括：控制结构，如While…Wend和If…Then…Else；声明语句，如Dim；定制对话框相关的语句：FileExit语句；要求数组变量作为参数的语句或函数。
(2)也有一些指令使用方法不同。①返回字符串以一个美元符（$）结束的WordBasic函数的关键字必须括在方括号中。例如，在WordBasic宏中的GetBookmark$()语句：mark$=GetBookmark$("Address")，若用VB调用，必须这样写mark$=Wordobj.[Ge-tBookmark$]("Address")。②选择一个命令按钮用“True”,不选择用“False”
2.3 对OLE自动化的说明
Word可以为OLE自动化给另一个应用提供对象，但是它不能使用OLE自动化访问其它应用中的对象。例如：VB和Excel可以使用OLE自动化访问Word，但是Word不能使用OLE自动化访问它们。
3 在包容器中嵌入Word对象
在VB中，要访问在包容器中嵌入的Word对象，首先要在项目中插入对象。做法如下：在窗体中插入OLE控件，对象类型选择“MicrosoftWord图片”或“Microsoft Word文档”，再按“确定”。
然后用Object属性访问文档或图片，并使用WordBasic语句和函数作用于它。嵌入的对象必须在可被访问之前被激活，可以使用Action属性激活OLE控件。例如，使用下面指令访问一个嵌入在称为OLE1的OLE控件中的文档：
Dim Wordobj as Object
OLE1.Action =7
Set Wordobj =OLE1.Object.Application. WordBasic
其他方面，使用方法同OLE自动化。使用在包容器中嵌入的Word对象，Word显示的窗口大小、位置与OLE控件定义的大小、位置相同，而且工具栏显示位置与Word脱离。这一点与OLE自动化相比，是个不足。
总之，要想在Microsoft Visual Basic中控制Microsoft Word，最好使用OLE自动化，通过使用WordBasic指令对Word进行全面控制，而且，用户使用起来与使用Microsoft Word一样，非常方便。
用VB制作Windows风格安装盘
张嵘
使用VB中的“安装大师”（Setup Wizard）可以制作出高水平，标准的“Windows式”安装盘。VB制作安装盘步骤如下：
1、在制作安装盘前必须关闭并退出VB环境，然后执行Setup Wizard。
2、安装开始，要求用户选择项目文件。屏幕中的Project file文本框可键入所要制作安装的应用项目，后缀名为MAK文件，也可按Select MAK file按钮来选择项目文件。
3、选中Next按钮，屏幕显示选择需要在安装盘中包含对应功能的附加文件。
4、按Next按钮，弹出对话框，供用户选择软盘类型及驱动器设置。
5、按Next按钮，屏幕提供选择加入或删除的文件。
6、按Next按钮，Setup Wizard首先检查硬盘中是否有足够的空间存放临时文件，然后进入DOS环境，压缩所需文件，重新调用VB建立Setup.exe文件。
7、屏幕提示将压缩好的程序及文件装入格式化好的空软盘中。
至此，你的安装盘便大功告成，在安装盘中包含了Setup.exe文件和压缩后的项目文件与附加文件以及VBRUN300.DLL文件等。在制作安装盘过程中应注意以下几个问题：
1、VB所提供的Setup Wizard只能制作用VB编写的程序，并且在制作前，应检查项目文件是否包含所有需要用的附加功能，否则制作出的安装盘缺某一个文件，就无法运行程序，还要返工重新制作。
2、所选项目文件中的所有表单文件、程序代码文件都应该存成ASCII文本格式。
3、在步骤2之中，可选择屏幕上的Rebuiled the Project'ｓ EXE file检查框，便可自动将MAK文件生成EXE文件。
4、用活Save Template和Open Template按钮。这两个按钮分别用来储存及打开．VBZ文件，由于制造安装盘有许多步骤，．VBZ文件就是用来记录这些步骤的，如果能够读入以前储存的．VBZ文件就可以连续跳到某一步骤去修改，不必每次都从头一步步地设置，可以大大提高效率。
当要用安装盘安装应用程序时，可以在Windows环境下运行Setup.exe文件将软件解压安装在硬盘上。当然，如果你想使你的安装盘具备安装应用程序特定部分的功能，这时，就需要使用VB提供的“安装工具”（Setup Toolkit），它在VB的\Setupkit子目录之中。
VB安装程序的汉化
伍涛
在用Visual Basic编写好自己的应用软件后，通常需要一个安装程序来安装它。VB本身提供了几种方法，一是使用“应用程序安装向导”（Application Setup Wizard），二是修改VB提供的安装示范程序Setup.EXE（该程序的工程文件及源代码在VB\SETUPKIT\Setup1）子目录下）。
第一种方法生成全是英文提示的安装程序。而如果采用第二种方法，软件开发人员不但可以将全部的安装信息汉化，而且还可以根据自己的需要对此程序进行修改达到特定的目的，例如加密、检查产品序列号等等，因此更为灵活。
在VB3.0中，修改英文提示信息只需要在窗体代码中找到各个字符串，然后将其改为中文就可以了，但是在VB4.0中，源代码中并没有直接使用英文字符串，而是用VB4.0中新提供的字符串资源加载函数LoadRESString将定义在Setup１*.RES（16位版本为Setup116.RES，32位版本为Setup132.RES）中的字符串资源加载到程序中。这样做的最大好处就是当需要对字符串的内容进行改变时，只修改资源文件即可，无需修改程序源代码。因此我们只需要将该资源文件的全部英文字符串修改为中文就能够达到汉化的目的了。
问题在于VB4.0中并没有提代可修改字符串资源文件（*.RES）的程序，为了编辑该文件，我们必须找一个资源编辑器，例如Visual C++中提供的AppStudio或者Borland C++中的RESourcesWorkShop。用资源编辑器将Setup1*.RES文件打开后，用中文替换掉所有的英文信息，然后保存就可以了。在替换中需要注意的是，凡是含有“｛Title｝”的部分不要改变，因为这一部分用来显示安装标题，它相当于一个变量，对于安装不同的应用程序有不同的内容。
经过对字符串资源文件这样的修改，在运行Setup程序时你就能看到漂亮的中文安装界面了。而你甚至不需要对源代码做任何修改，重新生成EXE文件后，整个汉化过程就全部完成了。
&?编译VB程序时不要自动使用快速代码优化
如果你第一次使用 VB 的本地代码优化选项，你可能会立即尝试选择“优化代码选项”。可是，你知道吗？这样做并不一定保证使你的程序得到最佳性能。
除非你拥有大量内存，不然程序的性能优化一般不会运行很快。因为这将导致程序装载速度缓慢，在内存不足的机器上特别明显，这样“优化代码选项”就可能让你的用户觉得好象比“优化大小选项”还慢。
基于以上原因，你可以考虑用 P 代码编译你的程序，特别是大型的、UI 和数据库加强的程序。本地“优化代码选项”所获得的性能并不一定可以弥补程序增长大小后带来的问题。
要决定你到底适合那种编译方式，请使用 VB 企业版上的 Application Performance Explorer (APE) 。