VisualBasic 软件设计中的几个问题----为中国网络技术提供点滴动力-iyit.net-易特网络技术！

　　通行证: 用户密码

域名空间　下载中心　 社区论坛　信息公告 MY小屋

联系我们
设为首页
加入收藏

QQ,ASP,PHP,JSP,XML,SQL,.Net,编程程序网页图象建站经验私服




	当前位置：首页>>编程开发>>VB编程>>正文	新版上线！[旧版]

注:打开慢时请稍等

VisualBasic 软件设计中的几个问题

http://www.iyit.net 日期：2006-5-22 17:04:35 来源：网络转载点击：

【参加讨论】在软件开发过程中，有一些看似很简单的问题，却很容易被一般的开发人员所忽略，这些“Bugs” 的存在，影响我们软件走向商品化。下面所列出的是笔者在使用Visual Basic 开发软件时，碰到了几个这类问题，这里给出其解决方法，供大家探讨交流。

一  防止应用程序加载两份
当我们的应用程序在Windows 下运行后，在操作过程中，有时会把它最小化隐藏起来，或者切换到程序管理器下进行其它操作，而后又想进入原来的应用程序，这时如果忘记了刚才启动的应用程序，又去重新启动该应用程序，在内存中就同时加载了两份同样的应用程序，这样不但占用了内存空间，而且容易引起误操作，造成数据的损失。为了避免这种情况发生，就需要程序能够给出提示“ 已经加载过” 或直接进入第一次被加载的应用程序中。对于这个问题，看起来比较难办，其实我们只要对Windows 管理应用程序的机理有所了解，就很容易解决。
我们知道，对于每一个运行着的应用程序，Windows 都分配给一个唯一的“ 句柄(Handle)” 和一个模块代码(Module)。当同时运行两份相同的程序时，两份程序的模块代码都相同，因此，只要找到内存中两个相同的模块代码，我们就知道有两份程序在运行，从而可以控制它。Windows 提供的两个接口函数GetModuleHandle 和GetModuleUsage 可以完成此任务。具体方法如下，首先在一个新的模块文件( *.Bas) 中声明API 函数。

Declare Function GetModuleHandle Lib"Kernel"(ByVallpProgName$)

Declare Function GetModuleUsage Lib"Kernel"(ByVal hModule)

同时建立一个子过程，名字为main，子过程中的代码如下：

Sub Main()
On Error GoTo errMain‘错误处理
Dim hModule% ‘模块句柄
Dim AppCount% ‘应用程序的个数
appPath$=app.Path + "\" ‘应用程序的启动路径
hModule %=GetModuleHandle(appPath$+app.EXEName+".exe")‘获得该程序的句柄。
AppCount %=GetModuleUsage(hModule)‘获得模块代码，即运行的应用程序数目。
lf AppCount%>1 Then‘同一应用程序数大于1
MsgBox"程序已经加载",64
End ‘结束当前启动的应用程序
Elsc
mainForm.Show ‘mainForm是程序的主窗体
End lf
Exit Sub
errMain:
lf Err<>0 Then
MsgBox"启动程序时发生错误"，64
Exit Sub
End lf
End Sub
该过程完成后，在VB3.0 主菜单［options ］下，选择［Project ］菜单项，设定［Start up From ］项为Sub main，即程序运行时，最先从Sub main 子程序开始。这样保证上面的代码一定被执行。Sub main 是VB3.0 约定的子过程名，不能用其它的名字来代替。
重新生成EXE 文件，在程序管理器下，启动该应用程序，然后把产生的窗体最小化，接着从程序管理器下再运行它，用户将看到一个消息框，告诉用户，应用程序已被加载过了，第二份程序终止执行。上面的程序仅用来防止加载二份程序，但还没有做到当不能启动第二份时，自动进入到第一份程序。要做到这一点，所涉及的程序较复杂，这里就不详细介绍了。

二判断Windows 的安装路径
在我们开发的软件中，有时会直接调用Windows 提供的小应用程序，如计算器、计事本等；或需要把一些特殊的文件放到Windows 或SYSTEM 的路径下。通常，Windows 都安装在C: ＼WINDOWS 目录下，但用户可以任意修改Windows 的主目录名，因此，在我们的软件中，就需要判断Windows 的安装路径。对于这个问题，Windows 提供了两个API 函数：GetWindowsDirectory 和GetSystemDirectory，可以返回Windows 目录和SYSTEM 目录的名称。
为此，编制一个通用函数 GetWinDir，它返回Windows 的安装目录名称。类似，可以写出GetSysDir，略。

在*.BAS 模块文件中声明API 函数

Declare Function GetWindowsDirectory Lib "Kernel" (ByVal IpBuffer As String,ByV al nSize As Integer) as IntegerFunction GetWinDir () As String Dim Windir$ Windir$=Space$(144) ‘144 是WINDOWS 目录名称理论上的最大长度。

lf GetWindowsDirectory(Windir$,144)=0Then
MsgBox" 不能确定WINDOWS 的安装路径"，16
GetWinDir=""
Else
Windir$=ALLTrim$(Windir$)
if Right$(Windir$,1)<>“\” then Windir$=Windir$+“\”
‘加上反斜杠
GetWinDir=Windir$
End lf
End Function
其中ALLTRIM 是用来去掉字符串中空字符的函数
FunctionALLTrim(FatStr$)As String
'this Function delete Space char in string of FatStr$
Dim SlimStr$,I%
SlimStr$=FatStr$
I%=lnStr(SlimStr$,Chr$(0)) ‘ 空格的位置
IfI% Then SlimStr$=Left$(SlimStr$,I%-1)
SlimStr$=Ltrim$(Rtrim$)(SlimStr$))
AIITrim$=SlimStr$
End Function
三  在关掉窗体前提示保存数据
一般说来，通常用5 种方式可以关闭一个应用程序：
1. 用户选择了当前窗体Control Box 中的［关闭］命令
2. 激发程序中的结束命令代码( 如End，Unload)
3. 退出Windows
4. 在Windows 的任务列表中关闭应用程序。
5. 多文档操作时，关闭主MDI 窗体，引起子MDI 窗体关闭。
在关闭一个应用程序前，我们要给用户一个机会，提示“ 是否保存数据”，或者取消“ 关闭” 的操作。在VB 中，窗体的关闭引发的是Form _Unload 事件，我们可以对该事件进行编程，来控制“ 关闭” 操作。假设现已有一个过程FileSave 用来保存文件，则可以这样来编写程序。
Sub Form_Unload(CancelAs lnteger)
select cast Msagbox (“ 是否保存数据?”，3+32)
‘Yes，No，Cnacel 三种选择
case 6 ‘YES
FileSave ‘ 保存数据
case2‘cancel
Cancel=TRUE ‘ 取消关闭操作
case else ‘NO‘ 不保存，执行关闭操作
End select
End Sub
上面代码中的Cancel 变量，是Form _unload 事件本身的固有传出变量，它给Windows 控制过程传递消息，从而控制程序的走向。

上面三个例子，只是软件完善过程中的一些小问题，要使软件稳定可靠，需要做大量细致认真的工作。有些问题，我们可以通过发掘VB 本身的潜力，深入掌握一些过程的操作技巧来解决；而有些较复杂的问题，涉及到Windows 底层方面的操作，采用Windows 的API 函数，可以很容易实现。当然这需要对Windows 的函数和机理有一定的了解。随着Windows 编程水平的提高，我们会逐渐学会并喜欢利用API 函数来辅助完成程序编码。
编辑：黑鹰　[发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇：VB编程问与答
下一篇：VB编程的一些心得
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。

		相关文章